1 files changed, 8 insertions, 0 deletions

@@ -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.