ebe4c60264
This reverts commit 29c78ce841 and all other fixes
that have been made afterwards.
The motivation is that use-package is seen by many as a replacement for
`require`. Is use-package always defer the loading of packages then is breaks
this use case, this does not respect POLA so even if it was making Spacemacs
loading faster (up to 3s faster on some startup on my machine) we just cannot
use it, it would be irresponsible. Spacemacs should be easy to use, loading
performance will come with time but it is not a priority.
478 lines
20 KiB
EmacsLisp
478 lines
20 KiB
EmacsLisp
;;; packages.el --- Mandatory Bootstrap Layer packages File
|
||
;;
|
||
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors
|
||
;;
|
||
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
||
;; URL: https://github.com/syl20bnr/spacemacs
|
||
;;
|
||
;; This file is not part of GNU Emacs.
|
||
;;
|
||
;;; License: GPLv3
|
||
|
||
(setq spacemacs-bootstrap-packages
|
||
'(
|
||
(async :step bootstrap)
|
||
(bind-map :step bootstrap)
|
||
(bind-key :step bootstrap)
|
||
(diminish :step bootstrap)
|
||
(evil :step bootstrap)
|
||
(hydra :step bootstrap)
|
||
(use-package :step bootstrap)
|
||
(which-key :step bootstrap)
|
||
))
|
||
|
||
;; Note: `use-package' cannot be used for bootstrap packages configuration
|
||
|
||
(defun spacemacs-bootstrap/init-async ())
|
||
|
||
(defun spacemacs-bootstrap/init-bind-key ())
|
||
|
||
(defun spacemacs-bootstrap/init-diminish ()
|
||
(when (not (configuration-layer/package-used-p 'spaceline))
|
||
(add-hook 'after-load-functions 'spacemacs/diminish-hook)))
|
||
|
||
(defun spacemacs-bootstrap/init-bind-map ()
|
||
(require 'bind-map)
|
||
(bind-map spacemacs-default-map
|
||
:prefix-cmd spacemacs-cmds
|
||
:keys (dotspacemacs-emacs-leader-key)
|
||
:evil-keys (dotspacemacs-leader-key)
|
||
:override-minor-modes t
|
||
:override-mode-name spacemacs-leader-override-mode))
|
||
|
||
(defun spacemacs-bootstrap/init-evil ()
|
||
;; ensure that the search module is set at startup
|
||
;; must be called before evil is required to really take effect.
|
||
(spacemacs/set-evil-search-module dotspacemacs-editing-style)
|
||
(add-hook 'spacemacs-editing-style-hook 'spacemacs/set-evil-search-module)
|
||
|
||
;; evil-mode is mandatory for Spacemacs to work properly
|
||
;; evil must be require explicitly, the autoload seems to not
|
||
;; work properly sometimes.
|
||
(require 'evil)
|
||
(evil-mode 1)
|
||
|
||
;; Use evil as a default jump handler
|
||
(push 'evil-goto-definition spacemacs-default-jump-handlers)
|
||
|
||
(require 'cl)
|
||
;; State cursors
|
||
(cl-loop for (state color shape) in spacemacs-evil-cursors
|
||
do (spacemacs/add-evil-cursor state color shape))
|
||
(add-hook 'spacemacs-post-theme-change-hook 'spacemacs/set-state-faces)
|
||
|
||
;; evil ex-command
|
||
(define-key evil-normal-state-map (kbd dotspacemacs-ex-command-key) 'evil-ex)
|
||
(define-key evil-visual-state-map (kbd dotspacemacs-ex-command-key) 'evil-ex)
|
||
(define-key evil-motion-state-map (kbd dotspacemacs-ex-command-key) 'evil-ex)
|
||
(setq evil-ex-substitute-global dotspacemacs-ex-substitute-global)
|
||
|
||
;; evil-want-Y-yank-to-eol must be set via customize to have an effect
|
||
(customize-set-variable 'evil-want-Y-yank-to-eol dotspacemacs-remap-Y-to-y$)
|
||
|
||
;; bind evil-jump-forward for GUI only.
|
||
(define-key evil-motion-state-map [C-i] 'evil-jump-forward)
|
||
|
||
;; Make the current definition and/or comment visible.
|
||
(define-key evil-normal-state-map "zf" 'reposition-window)
|
||
;; toggle maximize buffer
|
||
(define-key evil-window-map (kbd "o") 'spacemacs/toggle-maximize-buffer)
|
||
(define-key evil-window-map (kbd "C-o") 'spacemacs/toggle-maximize-buffer)
|
||
;; make cursor keys work
|
||
(define-key evil-window-map (kbd "<left>") 'evil-window-left)
|
||
(define-key evil-window-map (kbd "<right>") 'evil-window-right)
|
||
(define-key evil-window-map (kbd "<up>") 'evil-window-up)
|
||
(define-key evil-window-map (kbd "<down>") 'evil-window-down)
|
||
(spacemacs/set-leader-keys "re" 'evil-show-registers)
|
||
;; motions keys for help buffers
|
||
(evil-define-key 'motion help-mode-map (kbd "<escape>") 'quit-window)
|
||
(evil-define-key 'motion help-mode-map (kbd "<tab>") 'forward-button)
|
||
(evil-define-key 'motion help-mode-map (kbd "S-<tab>") 'backward-button)
|
||
(evil-define-key 'motion help-mode-map (kbd "]") 'help-go-forward)
|
||
(evil-define-key 'motion help-mode-map (kbd "gf") 'help-go-forward)
|
||
(evil-define-key 'motion help-mode-map (kbd "[") 'help-go-back)
|
||
(evil-define-key 'motion help-mode-map (kbd "gb") 'help-go-back)
|
||
(evil-define-key 'motion help-mode-map (kbd "gh") 'help-follow-symbol)
|
||
|
||
;; It's better that the default value is too small than too big
|
||
(setq-default evil-shift-width 2)
|
||
;; After major mode has changed, reset evil-shift-width
|
||
(add-hook 'after-change-major-mode-hook 'spacemacs//set-evil-shift-width 'append)
|
||
|
||
;; Keep the region active when shifting
|
||
(when dotspacemacs-retain-visual-state-on-shift
|
||
(evil-map visual "<" "<gv")
|
||
(evil-map visual ">" ">gv"))
|
||
|
||
;; move selection up and down
|
||
(when dotspacemacs-visual-line-move-text
|
||
(define-key evil-visual-state-map "J" (concat ":m '>+1" (kbd "RET") "gv=gv"))
|
||
(define-key evil-visual-state-map "K" (concat ":m '<-2" (kbd "RET") "gv=gv")))
|
||
|
||
(evil-ex-define-cmd "enew" 'spacemacs/new-empty-buffer)
|
||
|
||
(define-key evil-normal-state-map (kbd "K") 'spacemacs/evil-smart-doc-lookup)
|
||
(define-key evil-normal-state-map (kbd "gd") 'spacemacs/jump-to-definition)
|
||
(define-key evil-normal-state-map (kbd "gD") 'spacemacs/jump-to-definition-other-window)
|
||
|
||
;; scrolling transient state
|
||
(spacemacs|define-transient-state scroll
|
||
:title "Scrolling Transient State"
|
||
:doc "
|
||
Buffer^^^^ Full page^^^^ Half page^^^^ Line/column^^^^
|
||
──────^^^^───────────── ─────────^^^^──── ─────────^^^^─────── ───────────^^^^─────
|
||
[_<_/_>_] beginning/end [_f_/_b_] down/up [_J_/_K_] down/up [_j_/_k_] down/up
|
||
^ ^ ^ ^ ^ ^ ^ ^ [_H_/_L_] left/right [_h_/_l_] left/right
|
||
^ ^ ^ ^ ^ ^ ^ ^ [_d_/_u_] down/up ^ ^ ^ ^"
|
||
:bindings
|
||
;; buffer
|
||
("<" evil-goto-first-line)
|
||
(">" evil-goto-line)
|
||
;; full page
|
||
("f" evil-scroll-page-down)
|
||
("b" evil-scroll-page-up)
|
||
;; half page
|
||
("d" evil-scroll-down)
|
||
("u" evil-scroll-up)
|
||
("J" evil-scroll-down)
|
||
("K" evil-scroll-up)
|
||
("H" evil-scroll-left)
|
||
("L" evil-scroll-right)
|
||
;; lines and columns
|
||
("j" evil-scroll-line-down)
|
||
("k" evil-scroll-line-up)
|
||
("h" evil-scroll-column-left)
|
||
("l" evil-scroll-column-right))
|
||
(spacemacs/set-leader-keys
|
||
;; buffer
|
||
"N<" 'spacemacs/scroll-transient-state/evil-goto-first-line
|
||
"N>" 'spacemacs/scroll-transient-state/evil-goto-line
|
||
;; full page
|
||
"Nf" 'spacemacs/scroll-transient-state/evil-scroll-page-down
|
||
"Nb" 'spacemacs/scroll-transient-state/evil-scroll-page-up
|
||
;; half page
|
||
"Nd" 'spacemacs/scroll-transient-state/evil-scroll-down
|
||
"Nu" 'spacemacs/scroll-transient-state/evil-scroll-up
|
||
"NJ" 'spacemacs/scroll-transient-state/evil-scroll-down
|
||
"NK" 'spacemacs/scroll-transient-state/evil-scroll-up
|
||
"NH" 'spacemacs/scroll-transient-state/evil-scroll-left
|
||
"NL" 'spacemacs/scroll-transient-state/evil-scroll-right
|
||
;; lines and columns
|
||
"Nj" 'spacemacs/scroll-transient-state/evil-scroll-line-down
|
||
"Nk" 'spacemacs/scroll-transient-state/evil-scroll-line-up
|
||
"Nh" 'spacemacs/scroll-transient-state/evil-scroll-column-left
|
||
"Nl" 'spacemacs/scroll-transient-state/evil-scroll-column-right)
|
||
|
||
;; pasting transient-state
|
||
(evil-define-command spacemacs//transient-state-0 ()
|
||
:keep-visual t
|
||
:repeat nil
|
||
(interactive)
|
||
(if current-prefix-arg
|
||
(progn
|
||
(setq this-command #'digit-argument)
|
||
(call-interactively #'digit-argument))
|
||
(setq this-command #'evil-beginning-of-line
|
||
hydra-deactivate t)
|
||
(call-interactively #'evil-beginning-of-line)))
|
||
|
||
(spacemacs|define-transient-state paste
|
||
:title "Pasting Transient State"
|
||
:doc "\n[%s(length kill-ring-yank-pointer)/%s(length kill-ring)] \
|
||
[_C-j_/_C-k_] cycles through yanked text, [_p_/_P_] pastes the same text \
|
||
above or below. Anything else exits."
|
||
:bindings
|
||
("C-j" evil-paste-pop)
|
||
("C-k" evil-paste-pop-next)
|
||
("p" evil-paste-after)
|
||
("P" evil-paste-before)
|
||
("0" spacemacs//transient-state-0))
|
||
|
||
(when dotspacemacs-enable-paste-transient-state
|
||
(define-key evil-normal-state-map
|
||
"p" 'spacemacs/paste-transient-state/evil-paste-after)
|
||
(define-key evil-normal-state-map
|
||
"P" 'spacemacs/paste-transient-state/evil-paste-before))
|
||
;; fold transient state
|
||
(when (eq 'evil dotspacemacs-folding-method)
|
||
(spacemacs|define-transient-state fold
|
||
:title "Code Fold Transient State"
|
||
:doc "
|
||
Close^^ Open^^ Toggle^^ Other^^
|
||
───────^^────── ─────^^─────────── ─────^^──────────── ─────^^───
|
||
[_c_] at point [_o_] at point [_a_] around point [_q_] quit
|
||
^^ [_O_] recursively ^^
|
||
[_m_] all [_r_] all"
|
||
:foreign-keys run
|
||
:bindings
|
||
("a" evil-toggle-fold)
|
||
("c" evil-close-fold)
|
||
("o" evil-open-fold)
|
||
("O" evil-open-fold-rec)
|
||
("r" evil-open-folds)
|
||
("m" evil-close-folds)
|
||
("q" nil :exit t)
|
||
("C-g" nil :exit t)
|
||
("<SPC>" nil :exit t)))
|
||
(spacemacs/set-leader-keys "z." 'spacemacs/fold-transient-state/body)
|
||
|
||
;; define text objects
|
||
(spacemacs|define-text-object "$" "dollar" "$" "$")
|
||
(spacemacs|define-text-object "*" "star" "*" "*")
|
||
(spacemacs|define-text-object "8" "block-star" "/*" "*/")
|
||
(spacemacs|define-text-object "|" "bar" "|" "|")
|
||
(spacemacs|define-text-object "%" "percent" "%" "%")
|
||
(spacemacs|define-text-object "/" "slash" "/" "/")
|
||
(spacemacs|define-text-object "_" "underscore" "_" "_")
|
||
(spacemacs|define-text-object "-" "hyphen" "-" "-")
|
||
(spacemacs|define-text-object "~" "tilde" "~" "~")
|
||
(spacemacs|define-text-object "=" "equal" "=" "=")
|
||
(spacemacs|define-text-object "«" "double-angle-bracket" "«" "»")
|
||
(spacemacs|define-text-object "｢" "corner-bracket" "｢" "｣")
|
||
(spacemacs|define-text-object "‘" "single-quotation-mark" "‘" "’")
|
||
(spacemacs|define-text-object "“" "double-quotation-mark" "“" "”")
|
||
(evil-define-text-object evil-pasted (count &rest args)
|
||
(list (save-excursion (evil-goto-mark ?\[) (point))
|
||
(save-excursion (evil-goto-mark ?\]) (point))))
|
||
(define-key evil-inner-text-objects-map "P" 'evil-pasted)
|
||
;; define text-object for entire buffer
|
||
(evil-define-text-object evil-inner-buffer (count &optional beg end type)
|
||
(list (point-min) (point-max)))
|
||
(define-key evil-inner-text-objects-map "g" 'evil-inner-buffer)
|
||
|
||
;; turn off evil in corelv buffers
|
||
(push '("\\*LV\\*") evil-buffer-regexps)
|
||
|
||
;; replace `dired-goto-file' with `helm-find-files', since `helm-find-files'
|
||
;; can do the same thing and with fuzzy matching and other features.
|
||
(with-eval-after-load 'dired
|
||
(evil-define-key 'normal dired-mode-map "J" 'spacemacs/helm-find-files)
|
||
(define-key dired-mode-map "j" 'spacemacs/helm-find-files)
|
||
(evil-define-key 'normal dired-mode-map (kbd dotspacemacs-leader-key)
|
||
spacemacs-default-map))
|
||
|
||
;; support smart 1parens-strict-mode
|
||
(when (configuration-layer/package-used-p 'smartparens)
|
||
(defadvice evil-delete-backward-char-and-join
|
||
(around spacemacs/evil-delete-backward-char-and-join activate)
|
||
(if (bound-and-true-p smartparens-strict-mode)
|
||
(call-interactively 'sp-backward-delete-char)
|
||
ad-do-it)))
|
||
|
||
;; Define history commands for comint
|
||
(when (eq dotspacemacs-editing-style 'vim)
|
||
(evil-define-key 'insert comint-mode-map
|
||
(kbd "C-k") 'comint-previous-input
|
||
(kbd "C-j") 'comint-next-input))
|
||
(evil-define-key 'normal comint-mode-map
|
||
(kbd "C-k") 'comint-previous-input
|
||
(kbd "C-j") 'comint-next-input)
|
||
|
||
;; ignore repeat
|
||
(evil-declare-ignore-repeat 'spacemacs/next-error)
|
||
(evil-declare-ignore-repeat 'spacemacs/previous-error))
|
||
|
||
(defun spacemacs-bootstrap/init-hydra ()
|
||
(require 'hydra)
|
||
(setq hydra-key-doc-function 'spacemacs//hydra-key-doc-function
|
||
hydra-head-format "[%s] "))
|
||
|
||
(defun spacemacs-bootstrap/init-use-package ()
|
||
(require 'use-package)
|
||
(setq use-package-verbose init-file-debug
|
||
;; inject use-package hooks for easy customization of stock package
|
||
;; configuration
|
||
use-package-inject-hooks t))
|
||
|
||
(defun spacemacs-bootstrap/init-which-key ()
|
||
(require 'which-key)
|
||
|
||
(spacemacs|add-toggle which-key
|
||
:mode which-key-mode
|
||
:documentation
|
||
"Display a buffer with available key bindings."
|
||
:evil-leader "tK")
|
||
|
||
(spacemacs/set-leader-keys "hk" 'which-key-show-top-level)
|
||
|
||
;; Needed to avoid nil variable error before update to recent which-key
|
||
(defvar which-key-replacement-alist nil)
|
||
;; Replace rules for better naming of functions
|
||
(let ((new-descriptions
|
||
;; being higher in this list means the replacement is applied later
|
||
'(
|
||
("spacemacs/\\(.+\\)" . "\\1")
|
||
("spacemacs/toggle-\\(.+\\)" . "\\1")
|
||
("spacemacs/alternate-buffer" . "last buffer")
|
||
("spacemacs/toggle-mode-line-\\(.+\\)" . "\\1")
|
||
("avy-goto-word-or-subword-1" . "avy word")
|
||
("shell-command" . "shell cmd")
|
||
("spacemacs/default-pop-shell" . "open shell")
|
||
("spacemacs/helm-project-smart-do-search-region-or-symbol" . "smart search w/input")
|
||
("spacemacs/helm-project-smart-do-search" . "smart search")
|
||
("spacemacs/search-project-auto-region-or-symbol" . "search project w/input")
|
||
("spacemacs/search-project-auto" . "search project")
|
||
("helm-descbinds" . "show keybindings")
|
||
("sp-split-sexp" . "split sexp")
|
||
("avy-goto-line" . "avy line")
|
||
("universal-argument" . "universal arg")
|
||
("er/expand-region" . "expand region")
|
||
("helm-apropos" . "apropos")
|
||
("spacemacs/toggle-hybrid-mode" . "hybrid (hybrid-mode)")
|
||
("spacemacs/toggle-holy-mode" . "emacs (holy-mode)")
|
||
("evil-lisp-state-\\(.+\\)" . "\\1")
|
||
("spacemacs/\\(.+\\)-transient-state/\\(.+\\)" . "\\2")
|
||
("spacemacs/\\(.+\\)-transient-state/body" . "\\1-transient-state")
|
||
("helm-mini\\|ivy-switch-buffer" . "list-buffers")
|
||
("spacemacs-layouts/non-restricted-buffer-list-\\(helm\\|ivy\\)" . "global-list-buffers"))))
|
||
(dolist (nd new-descriptions)
|
||
;; ensure the target matches the whole string
|
||
(push (cons (cons nil (concat "\\`" (car nd) "\\'")) (cons nil (cdr nd)))
|
||
which-key-replacement-alist)))
|
||
|
||
;; Group together sequence and identical key entries in the which-key popup
|
||
;; SPC h k- Top-level bindings
|
||
;; Remove spaces around the two dots ".."
|
||
(push '(("\\(.*\\)1 .. 9" . "digit-argument") .
|
||
("\\11..9" . "digit-argument"))
|
||
which-key-replacement-alist)
|
||
|
||
;; And remove the modifier key(s) before the last nr in the sequence
|
||
(push '(("\\(.*\\)C-0 .. C-5" . "digit-argument") .
|
||
("\\1C-0..5" . "digit-argument"))
|
||
which-key-replacement-alist)
|
||
|
||
(push '(("\\(.*\\)C-7 .. C-9" . "digit-argument") .
|
||
("\\1C-7..9" . "digit-argument"))
|
||
which-key-replacement-alist)
|
||
|
||
(push '(("\\(.*\\)C-M-0 .. C-M-9" . "digit-argument") .
|
||
("\\1C-M-0..9" . "digit-argument"))
|
||
which-key-replacement-alist)
|
||
|
||
;; Rename the entry for M-0 in the SPC h k Top-level bindings,
|
||
;; and for 0 in the SPC- Spacemacs root
|
||
(push '(("\\(.*\\)0" . "winum-select-window-0-or-10") .
|
||
("\\10" . "select window 0 or 10"))
|
||
which-key-replacement-alist)
|
||
|
||
;; Rename the entry for M-1 in the SPC h k Top-level bindings,
|
||
;; and for 1 in the SPC- Spacemacs root, to 1..9
|
||
(push '(("\\(.*\\)1" . "winum-select-window-1") .
|
||
("\\11..9" . "select window 1..9"))
|
||
which-key-replacement-alist)
|
||
|
||
;; Hide the entries for M-[2-9] in the SPC h k Top-level bindings,
|
||
;; and for [2-9] in the SPC- Spacemacs root
|
||
(push '((nil . "winum-select-window-[2-9]") . t)
|
||
which-key-replacement-alist)
|
||
|
||
;; SPC- Spacemacs root
|
||
;; Combine the ` (backtick) and ² (superscript 2) key entries
|
||
(push '(("\\(.*\\)`" . "winum-select-window-by-number") .
|
||
("\\1`,²" . "select window by number"))
|
||
which-key-replacement-alist)
|
||
|
||
;; hide the "² -> winum-select-window-by-number" entry
|
||
(push '(("\\(.*\\)²" . nil) . t)
|
||
which-key-replacement-alist)
|
||
|
||
;; SPC b- buffers
|
||
;; rename the buffer-to-window-1 entry, to 1..9
|
||
(push '(("\\(.*\\)1" . "buffer-to-window-1") .
|
||
("\\11..9" . "buffer to window 1..9"))
|
||
which-key-replacement-alist)
|
||
|
||
;; hide the "[2-9] -> buffer-to-window-[2-9]" entries
|
||
(push '((nil . "buffer-to-window-[2-9]") . t)
|
||
which-key-replacement-alist)
|
||
|
||
;; SPC k- lisp
|
||
;; rename "1 .. 9 -> digit-argument" to "1..9 -> digit-argument"
|
||
(push '(("\\(.*\\)1 .. 9" . "evil-lisp-state-digit-argument") .
|
||
("\\11..9" . "digit-argument"))
|
||
which-key-replacement-alist)
|
||
|
||
;; SPC x i- inflection
|
||
;; rename "k -> string-inflection-kebab-case"
|
||
;; to "k,- -> string-inflection-kebab-case"
|
||
(push '(("\\(.*\\)k" . "string-inflection-kebab-case") .
|
||
("\\1k,-" . "string-inflection-kebab-case"))
|
||
which-key-replacement-alist)
|
||
|
||
;; hide the "- -> string-inflection-kebab-case" entry
|
||
(push '(("\\(.*\\)-" . "string-inflection-kebab-case") . t)
|
||
which-key-replacement-alist)
|
||
|
||
;; rename "u -> string-inflection-underscore"
|
||
;; to "u,_ -> string-inflection-underscore"
|
||
(push '(("\\(.*\\)u" . "string-inflection-underscore") .
|
||
("\\1u,_" . "string-inflection-underscore"))
|
||
which-key-replacement-alist)
|
||
|
||
;; hide the "_ -> string-inflection-underscore" entry
|
||
(push '(("\\(.*\\)_" . "string-inflection-underscore") . t)
|
||
which-key-replacement-alist)
|
||
|
||
;; C-c C-w-
|
||
;; rename the eyebrowse-switch-to-window-config-0 entry, to 0..9
|
||
(push '(("\\(.*\\)0" . "eyebrowse-switch-to-window-config-0") .
|
||
("\\10..9" . "eyebrowse-switch-to-window-config-0..9"))
|
||
which-key-replacement-alist)
|
||
|
||
;; hide the "[1-9] -> eyebrowse-switch-to-window-config-[1-9]" entries
|
||
(push '((nil . "eyebrowse-switch-to-window-config-[1-9]") . t)
|
||
which-key-replacement-alist)
|
||
|
||
;; Combine the c and C-c key entries
|
||
(push '(("\\(.*\\)C-c C-w c" . "eyebrowse-create-window-config") .
|
||
("\\1c,C-c" . "eyebrowse-create-window-config"))
|
||
which-key-replacement-alist)
|
||
|
||
;; hide the "C-c -> eyebrowse-create-window-config" entry
|
||
(push '(("\\(.*\\)C-c C-w C-c" . "eyebrowse-create-window-config") . t)
|
||
which-key-replacement-alist)
|
||
|
||
;; C-c C-d-
|
||
;; Combine the d and C-d key entries
|
||
(push '(("\\(.*\\)C-c C-d d" . "elisp-slime-nav-describe-elisp-thing-at-point") .
|
||
("\\1d,C-d" . "elisp-slime-nav-describe-elisp-thing-at-point"))
|
||
which-key-replacement-alist)
|
||
|
||
;; hide the "C-d -> elisp-slime-nav-describe-elisp-thing-at-point" entry
|
||
(push '(("\\(.*\\)C-c C-d C-d" . "elisp-slime-nav-describe-elisp-thing-at-point") . t)
|
||
which-key-replacement-alist)
|
||
|
||
(dolist (leader-key `(,dotspacemacs-leader-key ,dotspacemacs-emacs-leader-key))
|
||
(which-key-add-key-based-replacements
|
||
(concat leader-key " m") "major mode commands"
|
||
(concat leader-key " " dotspacemacs-emacs-command-key) "M-x"))
|
||
|
||
(which-key-add-key-based-replacements
|
||
dotspacemacs-leader-key '("root" . "Spacemacs root")
|
||
dotspacemacs-emacs-leader-key '("root" . "Spacemacs root")
|
||
(concat dotspacemacs-leader-key " m")
|
||
'("major-mode-cmd" . "Major mode commands")
|
||
(concat dotspacemacs-emacs-leader-key " m")
|
||
'("major-mode-cmd" . "Major mode commands"))
|
||
|
||
;; disable special key handling for spacemacs, since it can be
|
||
;; disorienting if you don't understand it
|
||
(pcase dotspacemacs-which-key-position
|
||
(`right (which-key-setup-side-window-right))
|
||
(`bottom (which-key-setup-side-window-bottom))
|
||
(`right-then-bottom (which-key-setup-side-window-right-bottom)))
|
||
|
||
(setq which-key-special-keys nil
|
||
which-key-use-C-h-for-paging t
|
||
which-key-prevent-C-h-from-cycling t
|
||
which-key-echo-keystrokes 0.02
|
||
which-key-max-description-length 32
|
||
which-key-sort-order 'which-key-key-order-alpha
|
||
which-key-idle-delay dotspacemacs-which-key-delay
|
||
which-key-idle-secondary-delay 0.01
|
||
which-key-allow-evil-operators t)
|
||
|
||
(which-key-mode)
|
||
(spacemacs|diminish which-key-mode " Ⓚ" " K"))
|