diff options
| author | Case Duckworth | 2021-03-12 12:53:39 -0600 |
|---|---|---|
| committer | Case Duckworth | 2021-03-12 12:53:57 -0600 |
| commit | 49c282f301911fd37451d34170472b63bf21650b (patch) | |
| tree | 3be1e2b8703e8917600ded7f6a77d7432bf46d58 | |
| parent | Change `add-hook' to `acdw/hooks' (diff) | |
| download | emacs-49c282f301911fd37451d34170472b63bf21650b.tar.gz emacs-49c282f301911fd37451d34170472b63bf21650b.zip | |
Add `acdw/binds' to bind more than one key at once
I should probably change `acdw/bind-after-map' to use this macro...
| -rw-r--r-- | init.el | 8 | ||||
| -rw-r--r-- | lisp/acdw.el | 8 |
2 files changed, 13 insertions, 3 deletions
| diff --git a/init.el b/init.el index ee57b11..3466c12 100644 --- a/init.el +++ b/init.el | |||
| @@ -151,9 +151,11 @@ | |||
| 151 | (scroll-preserve-screen-position 1))) | 151 | (scroll-preserve-screen-position 1))) |
| 152 | 152 | ||
| 153 | ;; Bindings | 153 | ;; Bindings |
| 154 | (acdw/bind "C-h" ehelp-command :after ("ehelp" nil nil 'keymap)) | 154 | (acdw/binds (("C-h" ehelp-command :after ("ehelp" nil nil 'keymap)) |
| 155 | (acdw/bind [remap just-one-space] cycle-spacing) | 155 | ([remap just-one-space] cycle-spacing) |
| 156 | (acdw/bind "M-/" hippie-expand) | 156 | ("M-/" hippie-expand) |
| 157 | ("M-=" count-words) | ||
| 158 | ("C-x C-b" ibuffer))) | ||
| 157 | 159 | ||
| 158 | ;;; Startup | 160 | ;;; Startup |
| 159 | (acdw/set `((inhibit-startup-screen t) | 161 | (acdw/set `((inhibit-startup-screen t) |
| diff --git a/lisp/acdw.el b/lisp/acdw.el index 3ae480d..c9a2d9f 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
| @@ -205,6 +205,14 @@ The following keywords are recognized: | |||
| 205 | `(progn | 205 | `(progn |
| 206 | ,@command-list))) | 206 | ,@command-list))) |
| 207 | 207 | ||
| 208 | (defmacro acdw/binds (bindings) | ||
| 209 | "Bind multiple keys at once." | ||
| 210 | (let (bind-list) | ||
| 211 | (dolist (bind bindings) | ||
| 212 | (push `(acdw/bind ,@bind) bind-list)) | ||
| 213 | `(progn | ||
| 214 | ,@bind-list))) | ||
| 215 | |||
| 208 | ;; convenience | 216 | ;; convenience |
| 209 | (defmacro acdw/bind-after-map (file keymap bindings) | 217 | (defmacro acdw/bind-after-map (file keymap bindings) |
| 210 | "Wrap multiple calls of `acdw/bind' after FILE and with KEYMAP. | 218 | "Wrap multiple calls of `acdw/bind' after FILE and with KEYMAP. |