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:
parent
3f2e885811
commit
1054e6e7ce
|
@ -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))
|
||||
(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 (cons name long-name)
|
||||
full-prefix (cons name long-name))
|
||||
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))))
|
||||
(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'."
|
||||
|
|
Loading…
Reference in a new issue