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