Make a general keybindings list of dotted pairs and dolist over it

1 files changed, 33 insertions, 33 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index c9e5c8e..9286e0c 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -450,39 +450,39 @@ for all frames."
 
 ;;; General key bindings
 
-(b/keymap-global-set "C-c i" #'ielm)
-(b/keymap-global-set "C-c d" #'b/duplicate-line-or-region)
-(b/keymap-global-set "C-c j" #'b/join-line-top)
-(b/keymap-global-set "C-S-j" #'b/join-line-top)
-(b/keymap-global-set "C-c s c" #'b/*scratch*)
-(b/keymap-global-set "C-c v" #'b/invert-default-face)
-
-;; evaling and macro-expanding
-(b/keymap-global-set "C-c e b" #'eval-buffer)
-(b/keymap-global-set "C-c e e" #'eval-last-sexp)
-(b/keymap-global-set "C-c e m" #'pp-macroexpand-last-sexp)
-(b/keymap-global-set "C-c e r" #'eval-region)
-
-;; emacs things
-(b/keymap-global-set "C-c e i" #'emacs-init-time)
-(b/keymap-global-set "C-c e u" #'emacs-uptime)
-(b/keymap-global-set "C-c e v" #'emacs-version)
-
-;; finding
-(b/keymap-global-set "C-c f ." #'find-file)
-(b/keymap-global-set "C-c f l" #'find-library)
-(b/keymap-global-set "C-c f p" #'find-file-at-point)
-
-;; frames
-(b/keymap-global-set "C-c F m" #'make-frame-command)
-(b/keymap-global-set "C-c F d" #'delete-frame)
-
-;; help/describe
-(b/keymap-global-set "C-c h F" #'describe-face)
-
-;; (when (display-graphic-p)
-;;   ;; Too easy to accidentally suspend (freeze) Emacs GUI.
-;;   (b/keymap-global-unset "C-z"))
+(let ((kfs
+       '(("C-c i"   . ielm)
+         ("C-c d"   . b/duplicate-line-or-region)
+         ("C-c j"   . b/join-line-top)
+         ("C-S-j"   . b/join-line-top)
+         ("C-c s c" . b/*scratch*)
+         ("C-c v"   . b/invert-default-face)
+         ;; evaling and macro-expanding
+         ("C-c e b" . eval-buffer)
+         ("C-c e e" . eval-last-sexp)
+         ("C-c e m" . pp-macroexpand-last-sexp)
+         ("C-c e r" . eval-region)
+         ;; emacs things
+         ("C-c e i" . emacs-init-time)
+         ("C-c e u" . emacs-uptime)
+         ("C-c e v" . emacs-version)
+         ;; finding
+         ("C-c f ." . find-file)
+         ("C-c f l" . find-library)
+         ("C-c f p" . find-file-at-point)
+         ;; frames
+         ("C-c F m" . make-frame-command)
+         ("C-c F d" . delete-frame)
+         ;; help/describe
+         ("C-c h F" . describe-face))))
+  (dolist (kf kfs)
+    (let ((key (car kf))
+          (fun (cdr kf)))
+      (b/keymap-global-set key fun))))
+
+(when (display-graphic-p)
+  ;; Too easy to accidentally suspend (freeze) Emacs GUI.
+  (b/keymap-global-unset "C-z"))
 
 
 ;;; Essential packages