changelog shortlog graph tags branches changeset file revisions annotate raw help

Mercurial > core / emacs/keys.el

revision 35: b8b2433003ef
parent 34: 882a5c1e7b9f
child 38: a4186c03d6cf
     1.1--- a/emacs/keys.el	Sun Nov 05 00:33:48 2023 -0400
     1.2+++ b/emacs/keys.el	Sun Nov 05 01:09:36 2023 -0400
     1.3@@ -11,6 +11,32 @@
     1.4 ;;; Code:
     1.5 
     1.6 ;;; User keys
     1.7+;; paredit-map
     1.8+(defvar-keymap parens-map
     1.9+  :doc "parens-minor-mode keymap."
    1.10+  :repeat (:enter)
    1.11+  :prefix 'parens-map
    1.12+  "u" #'backward-up-list
    1.13+  "f" #'forward-sexp
    1.14+  "b" #'backward-sexp
    1.15+  "d" #'down-list
    1.16+  "k" #'kill-sexp
    1.17+  "n" #'paredit-forward
    1.18+  "p" #'paredit-backward
    1.19+  "K" #'paredit-kill
    1.20+  "]" #'paredit-forward-slurp-sexp
    1.21+  "[" #'paredit-backward-slurp-sexp
    1.22+  "}" #'paredit-forward-barf-sexp
    1.23+  "{" #'paredit-backward-barf-sexp
    1.24+  "C" #'paredit-convolute-sexp
    1.25+  "J" #'paredit-join-sexps
    1.26+  "S" #'paredit-split-sexp
    1.27+  "R" #'paredit-raise-sexp
    1.28+  "\\" #'indent-region
    1.29+  "/" #'undo
    1.30+  "t" #'transpose-sexps
    1.31+  "x" #'eval-defun)
    1.32+
    1.33 (defvar-keymap toggle-map
    1.34   :doc "User-specified keymap for mode toggles. Usually bound to 'C-c c SPC'."
    1.35   :prefix 'toggle-map
    1.36@@ -63,6 +89,7 @@
    1.37   "." status-map
    1.38   "r" review-map
    1.39   "q" server-map
    1.40+  "(" parens-map
    1.41   "d i" #'image-dired
    1.42   "<tab>" #'outline-cycle
    1.43   "<backtab>" #'outline-cycle-buffer
    1.44@@ -95,6 +122,7 @@
    1.45 ;;; Global
    1.46 (keymap-global-set "C-c c" user-map)
    1.47 (keymap-global-set "<remap> <tab-to-tab-stop>" #'imenu)
    1.48+(keymap-global-set "<XF86Paste>" parens-map)
    1.49 
    1.50 (provide 'keys)
    1.51 ;; keys.el ends here