emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Refactor doom--define-leader-key helper

Browse source 
And mark it as a hack, which it is, Mr. Anderson.
This commit is contained in:
Henrik Lissner 2019-07-23 18:14:34 +02:00
parent 58ab20ec5f
commit 003febd54c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 11 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

25
core/core-keybinds.el
View file

@ -79,8 +79,8 @@ If any hook returns non-nil, all hooks after it are ignored.")
(defalias 'define-key! #'general-def)
(defalias 'unmap! #'general-unbind))
;; `map!' uses this instead of `define-leader-key!' because it consumes 20-30%
;; more startup time, so we reimplement it ourselves.
;; HACK `map!' uses this instead of `define-leader-key!' because it consumes
;; 20-30% more startup time, so we reimplement it ourselves.
(defmacro doom--define-leader-key (&rest keys)
(let (prefix forms wkforms)
(while keys
@ -100,19 +100,16 @@ If any hook returns non-nil, all hooks after it are ignored.")
,bdef)
forms))
(when-let (desc (cadr (memq :which-key udef)))
(push `(which-key-add-key-based-replacements
(general--concat t doom-leader-alt-key ,key)
,desc)
wkforms)
(push `(which-key-add-key-based-replacements
(general--concat t doom-leader-key ,key)
,desc)
wkforms))))))
(prependq!
wkforms `((which-key-add-key-based-replacements
(general--concat t doom-leader-alt-key ,key)
,desc)
(which-key-add-key-based-replacements
(general--concat t doom-leader-key ,key)
,desc))))))))
(macroexp-progn
(append (nreverse forms)
(when wkforms
`((after! which-key
,@(nreverse wkforms))))))))
(cons `(after! which-key ,@(nreverse wkforms))
(nreverse forms)))))
(defmacro define-leader-key! (&rest args)
"Define <leader> keys.