dotemacs

commit 487e04741a1f703f29a0a117ce12ee13b60889c2
parent b1763422852f90aad77abb9ef220317165cce657
Author: Lukas Henkel <lh@entf.net>
Date:   Mon, 27 Dec 2021 18:57:48 +0100

Macro for defining multiple keys in a specific map

Diffstat:
M
init.el
 | 
20
++++++++++++++------

1 file changed, 14 insertions(+), 6 deletions(-)
diff --git a/init.el b/init.el
@@ -57,6 +57,13 @@
           `(global-set-key (kbd ,(car x)) #',(cdr x)))
         keys-alist)))
 
+(defmacro lh/define-keys (keymap keys-alist)
+  `(progn
+     ,@(seq-map
+        (lambda (x)
+          `(define-key ,keymap (kbd ,(car x)) #',(cdr x)))
+        keys-alist)))
+
 (lh/global-set-keys
  (("C-x C-M-t" . transpose-regions)
   ("C-x K" . kill-this-buffer)
@@ -111,12 +118,13 @@
   ("C-c n f" . org-roam-node-find)
   ("C-c n i" . org-roam-node-insert)))
 
-(define-key isearch-mode-map (kbd "M-e") #'consult-isearch)
-(define-key isearch-mode-map (kbd "M-s e") #'consult-isearch)
-(define-key isearch-mode-map (kbd "M-s l") #'consult-line)
-
-(define-key paredit-mode-map (kbd "M-s") nil)
-(define-key paredit-mode-map (kbd "M-S") #'paredit-splice-sexp)
+(lh/define-keys isearch-mode-map
+                (("M-e" . consult-isearch)
+                 ("M-s e" . consult-isearch)
+                 ("M-s l" . consult-line)))
+(lh/define-keys paredit-mode-map
+                (("M-s" . nil)
+                 ("M-S" . paredit-splice-sexp)))
 
 (add-hook 'elfeed-search-mode-hook
           (lambda()