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

Add which-key prefixes for major-mode leaders 

Without this, prefixes configured for `SPC m` bindings don't show up for
the major mode leaders.
This commit is contained in:
Markus Bertheau 2015-09-14 07:47:36 +02:00 committed by syl20bnr
parent 3f2e885811
commit 1054e6e7ce
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
core/core-keybindings.el
View File

@ -40,14 +40,23 @@ be added. PREFIX is a string describing a key sequence. NAME is a symbol name
used as the prefix command."
(let ((command (intern (concat (symbol-name mode) name)))
(full-prefix (concat dotspacemacs-leader-key " " prefix))
(full-prefix-emacs (concat dotspacemacs-emacs-leader-key " " prefix)))
(full-prefix-emacs (concat dotspacemacs-emacs-leader-key " " prefix))
(is-major-mode-prefix (string-prefix-p "m" prefix))
(major-mode-prefix (concat dotspacemacs-major-mode-leader-key " " (substring prefix 1)))
(major-mode-prefix-emacs (concat dotspacemacs-major-mode-emacs-leader-key " " (substring prefix 1))))
(unless long-name (setq long-name name))
(if (fboundp 'which-key-declare-prefixes-for-mode)
(which-key-declare-prefixes-for-mode mode
full-prefix-emacs (cons name long-name)
full-prefix (cons name long-name))
(define-prefix-command command)
(evil-leader/set-key-for-mode mode prefix command))))
(let ((prefix-name (cons name long-name)))
(if (fboundp 'which-key-declare-prefixes-for-mode)
(progn
(which-key-declare-prefixes-for-mode mode
full-prefix-emacs prefix-name
full-prefix prefix-name)
(when is-major-mode-prefix
(which-key-declare-prefixes-for-mode mode
major-mode-prefix prefix-name
major-mode-prefix-emacs prefix-name)))
(define-prefix-command command)
(evil-leader/set-key-for-mode mode prefix command)))))
(defun spacemacs/activate-major-mode-leader ()
"Bind major mode key map to `dotspacemacs-major-mode-leader-key'."