commit - b1763422852f90aad77abb9ef220317165cce657
commit + 487e04741a1f703f29a0a117ce12ee13b60889c2
blob - 1b6dfa2c360536f93b0db3da457c31ae748f0e2e
blob + df4a502d7f1ffb7c42aed2008695c89100cf2391
--- init.el
+++ 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,13 +118,14 @@
   ("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)
+(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)))
 
-(define-key paredit-mode-map (kbd "M-s") nil)
-(define-key paredit-mode-map (kbd "M-S") #'paredit-splice-sexp)
-
 (add-hook 'elfeed-search-mode-hook
           (lambda()
             (define-key elfeed-search-mode-map (kbd "G") #'elfeed-update)))