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

core-keybinds: enhance readability of which-key popup

Browse source
This commit is contained in:
Henrik Lissner 2017-03-07 14:56:41 -05:00
parent 48c09f8d46
commit 80c3584a78
1 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

16
core/core-keybinds.el
View file

@ -15,19 +15,17 @@
(def-package! which-key (def-package! which-key
:defer 1 :defer 1
:config :config
(setq which-key-sort-order 'which-key-prefix-then-key-order (setq which-key-sort-order 'which-key-key-order-alpha
which-key-sort-uppercase-first nil
which-key-add-column-padding 1
which-key-max-display-columns nil
which-key-min-display-lines 10
;; only pop-up for leader/localleader keys ;; only pop-up for leader/localleader keys
which-key-allow-regexps (list (format "^%s" (regexp-quote doom-leader-key)) which-key-allow-regexps (list (format "^%s" (regexp-quote doom-leader-key))
(format "^%s" (regexp-quote doom-localleader-key))) (format "^%s" (regexp-quote doom-localleader-key))))
;; perdy unicode icons
which-key-replacement-alist
(append '((("TAB" . nil) . ("↹" . nil))
(("RET" . nil) . ("⏎" . nil))
(("DEL" . nil) . ("⇤" . nil))
(("SPC" . nil) . ("␣" . nil)))
which-key-replacement-alist))
;; embolden local bindings ;; embolden local bindings
(set-face-attribute 'which-key-local-map-description-face nil :weight 'bold) (set-face-attribute 'which-key-local-map-description-face nil :weight 'bold)
(which-key-setup-side-window-bottom)
(which-key-mode +1) (which-key-mode +1)
(when (cdr doom--which-key-defs) (when (cdr doom--which-key-defs)
(apply 'which-key-add-key-based-replacements (cdr doom--which-key-defs)))) (apply 'which-key-add-key-based-replacements (cdr doom--which-key-defs))))