TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Store mode based prefixes in keymaps

This commit is contained in:
JAremko 2020-12-18 09:35:20 +02:00 committed by Eugene Yaremenko
parent eb31481c17
commit b869a05ebc
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
core/core-keybindings.el
View File

@ -73,15 +73,22 @@ used as the prefix command."
(concat dotspacemacs-major-mode-emacs-leader-key
" " (substring prefix 1))))
(unless long-name (setq long-name name))
(let ((prefix-name (cons name long-name)))
(which-key-add-major-mode-key-based-replacements mode
full-prefix-emacs prefix-name
full-prefix prefix-name)
(when (and is-major-mode-prefix dotspacemacs-major-mode-leader-key)
(which-key-add-major-mode-key-based-replacements mode major-mode-prefix prefix-name))
(when (and is-major-mode-prefix dotspacemacs-major-mode-emacs-leader-key)
(which-key-add-major-mode-key-based-replacements
mode major-mode-prefix-emacs prefix-name)))))
(let ((prefix-name (cons name long-name))
(is-minor-mode-prefix (not is-major-mode-prefix))
(smap (intern (format "spacemacs-%s-map" mode))))
(if (spacemacs//init-leader-mode-map mode smap is-minor-mode-prefix)
(which-key-add-keymap-based-replacements (symbol-value smap)
(if is-major-mode-prefix (substring prefix 1) prefix) `(,name))
(which-key-add-major-mode-key-based-replacements mode
full-prefix-emacs prefix-name
full-prefix prefix-name)
(when is-major-mode-prefix
(when dotspacemacs-major-mode-leader-key
(which-key-add-major-mode-key-based-replacements
mode major-mode-prefix prefix-name))
(when dotspacemacs-major-mode-emacs-leader-key
(which-key-add-major-mode-key-based-replacements
mode major-mode-prefix-emacs prefix-name)))))))
(put 'spacemacs/declare-prefix-for-mode 'lisp-indent-function 'defun)
(defun spacemacs/set-leader-keys (key def &rest bindings)