2 files changed, 13 insertions, 3 deletions

@@ -151,9 +151,11 @@
             (scroll-preserve-screen-position 1)))
 
 ;; Bindings
-(acdw/bind "C-h" ehelp-command :after ("ehelp" nil nil 'keymap))
-(acdw/bind [remap just-one-space] cycle-spacing)
-(acdw/bind "M-/" hippie-expand)
+(acdw/binds (("C-h" ehelp-command :after ("ehelp" nil nil 'keymap))
+             ([remap just-one-space] cycle-spacing)
+             ("M-/" hippie-expand)
+             ("M-=" count-words)
+             ("C-x C-b" ibuffer)))
 
 ;;; Startup
 (acdw/set `((inhibit-startup-screen t)
@@ -205,6 +205,14 @@ The following keywords are recognized:
     `(progn
        ,@command-list)))
 
+(defmacro acdw/binds (bindings)
+  "Bind multiple keys at once."
+  (let (bind-list)
+    (dolist (bind bindings)
+      (push `(acdw/bind ,@bind) bind-list))
+    `(progn
+       ,@bind-list)))
+
 ;; convenience
 (defmacro acdw/bind-after-map (file keymap bindings)
   "Wrap multiple calls of `acdw/bind' after FILE and with KEYMAP.