awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

map!: support variables for keys

Browse Source
This commit is contained in:
Henrik Lissner
2017-05-28 16:14:37 +02:00
parent e8d454a251
commit 15e8a37186
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
core/core-keybinds.el
View File

@ -178,10 +178,7 @@ Example
forms)))
(:prefix
(let ((def (pop rest)))
(setq prefix
(if (or (symbolp def) (listp def))
`(vconcat ,prefix (if (stringp ,def) (kbd ,def) ,def))
`(vconcat ,prefix ,(if (stringp def) (kbd def) def))))
(setq prefix `(vconcat ,prefix (kbd ,def)))
(when desc
(push `(doom--keybind-register ,(key-description (eval prefix))
,desc ',modes)
@ -200,11 +197,14 @@ Example
;; It's a key-def pair
((or (stringp key)
(characterp key)
(vectorp key))
(vectorp key)
(symbolp key))
(unwind-protect
(catch 'skip
(when (stringp key)
(setq key (kbd key)))
(cond ((symbolp key)
(setq key `(kbd ,key)))
((stringp key)
(setq key (kbd key))))
(when prefix
(setq key (append prefix (list key))))
(unless (> (length rest) 0)