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

cleanup

Browse source
This commit is contained in:
JAremko 2020-12-06 06:24:54 +02:00 committed by Eugene Yaremenko
parent 97418aaa4f
commit f761d1e389
1 changed files with 9 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
core/core-keybindings.el
View file

@ -73,34 +73,15 @@ 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))
(map (intern (format "%s-map" mode))))
;; It should be safe to add replacements into the mode map if
;; it exists.
;; FIXME: Figure out how this brakes inserting spaces.
(if nil ;; ((boundp map))
(progn
;; NOTE: Looks like `which-key-add-keymap-based-replacements'
;; doesn't support short + long name pair.
(which-key-add-keymap-based-replacements
(symbol-value map) full-prefix name)
(when is-major-mode-prefix
(when dotspacemacs-major-mode-leader-key
(which-key-add-keymap-based-replacements
(symbol-value map) major-mode-prefix name))
(when dotspacemacs-major-mode-emacs-leader-key
(which-key-add-keymap-based-replacements
(symbol-value map) major-mode-prefix-emacs 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)))))))
(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)))))
(put 'spacemacs/declare-prefix-for-mode 'lisp-indent-function 'defun)
(defun spacemacs/set-leader-keys (key def &rest bindings)