;;; packages.el --- Mandatory Bootstrap Layer packages File ;; ;; Copyright (c) 2012-2022 Sylvain Benner & Contributors ;; ;; Author: Sylvain Benner ;; URL: https://github.com/syl20bnr/spacemacs ;; ;; This file is not part of GNU Emacs. ;; ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see . (defconst spacemacs-bootstrap-packages '( ;; bootstrap packages, ;; `use-package' cannot be used for bootstrap packages configuration (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) ;; pre packages, initialized after the bootstrap packages ;; these packages can use use-package (dotenv-mode :step pre) (evil-evilified-state :location (recipe :fetcher local) :step pre :protected t) (pcre2el :step pre) (holy-mode :location (recipe :fetcher local) :step pre) (hybrid-mode :location (recipe :fetcher local) :step pre) (spacemacs-theme :location built-in) dash)) ;; bootstrap packages (defun spacemacs-bootstrap/init-async ()) (defun spacemacs-bootstrap/init-bind-key ()) (defun spacemacs-bootstrap/init-diminish () (unless (configuration-layer/package-used-p 'spaceline) (add-hook 'after-load-functions 'spacemacs/diminish-hook))) (defun spacemacs-bootstrap/init-dotenv-mode () (use-package dotenv-mode :defer t)) (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. ;; `evil-collection' wants this value (setq evil-want-keybinding nil) (require 'evil) (evil-mode 1) (when (and (fboundp 'evil-set-undo-system) (configuration-layer/package-used-p 'undo-tree)) (evil-set-undo-system 'undo-tree)) ;; Use evil as a default jump handler (add-to-list 'spacemacs-default-jump-handlers 'evil-goto-definition) (require 'cl-lib) ;; 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 vim-style-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 vim-style-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) ;; Make set-selective-display more discoverable to Evil folks (define-key evil-normal-state-map "z$" 'spacemacs/toggle-selective-display) ;; 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 "") 'evil-window-left) (define-key evil-window-map (kbd "") 'evil-window-right) (define-key evil-window-map (kbd "") 'evil-window-up) (define-key evil-window-map (kbd "") 'evil-window-down) (spacemacs/set-leader-keys "re" 'evil-show-registers "sc" 'spacemacs/evil-search-clear-highlight) ;; motions keys for help buffers (evil-define-key 'motion help-mode-map (kbd "") 'quit-window) (evil-define-key 'motion help-mode-map (kbd "") 'forward-button) (evil-define-key 'motion help-mode-map (kbd "S-") '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 vim-style-retain-visual-state-on-shift (evil-map visual "<" "" ">gv")) ;; move selection up and down (when vim-style-visual-line-move-text (define-key evil-visual-state-map "J" 'drag-stuff-down) (define-key evil-visual-state-map "K" 'drag-stuff-up)) (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|transient-state-format-hint scroll spacemacs--scroll-ts-full-hint (format "\n[_?_] toggle help Line/Column^^^^ Half Page^^^^ Full Page^^ Buffer^^^^ Other ───────────^^^^───── ─────────^^^^─────── ─────────^^ ──────^^^^─── ─────^^─── [_k_]^^ up [_u_/_K_] up [_b_] up [_<_/_g_] beg [_q_] quit [_j_]^^ down [_d_/_J_] down [_f_] down [_>_/_G_] end [_h_/_l_] left/right [_H_/_L_] left/right")) (spacemacs|define-transient-state scroll :title "Scrolling Transient State" :hint-is-doc t :dynamic-hint (spacemacs//scroll-ts-hint) :bindings ("?" spacemacs//scroll-ts-toggle-hint) ;; lines and columns ("j" evil-scroll-line-down) ("k" evil-scroll-line-up) ("h" evil-scroll-column-left) ("l" evil-scroll-column-right) ;; 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) ;; full page ("f" evil-scroll-page-down) ("b" evil-scroll-page-up) ;; buffer ("<" evil-goto-first-line) (">" evil-goto-line) ("g" evil-goto-first-line) ("G" evil-goto-line) ;; other ("q" nil :exit t)) (spacemacs/set-leader-keys ;; 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 ;; 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 ;; full page "Nf" 'spacemacs/scroll-transient-state/evil-scroll-page-down "Nb" 'spacemacs/scroll-transient-state/evil-scroll-page-up ;; buffer "N<" 'spacemacs/scroll-transient-state/evil-goto-first-line "N>" 'spacemacs/scroll-transient-state/evil-goto-line "Ng" 'spacemacs/scroll-transient-state/evil-goto-first-line "NG" 'spacemacs/scroll-transient-state/evil-goto-line) ;; 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) ("" 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 ?\]) (1+ (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) ;; special-mode buffers are read-only and therefore should open in ;; motion-state (evilified state is too aggressive, e.g. evil-local-set-key ;; has no effect) (add-to-list 'evil-motion-state-modes 'special-mode) ;; turn off evil in corelv buffers (add-to-list 'evil-buffer-regexps '("\\*LV\\*")) ;; replace `dired-goto-file' with equivalent helm and ivy functions: ;; `spacemacs/helm-find-files' fuzzy matching and other features ;; `spacemacs/counsel-find-file' more `M-o' actions (with-eval-after-load 'dired (define-key dired-mode-map "j" (cond ((configuration-layer/layer-used-p 'helm) 'spacemacs/helm-find-files) ((configuration-layer/layer-used-p 'ivy) 'spacemacs/counsel-find-file)))) ;; 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) (add-to-list 'use-package-keywords :spacebind t) (add-to-list 'use-package-keywords :spacediminish t)) (defun spacemacs-bootstrap/init-which-key () (require 'which-key) (setq which-key-add-column-padding 1 which-key-allow-multiple-replacements t which-key-echo-keystrokes 0.02 which-key-idle-delay dotspacemacs-which-key-delay which-key-idle-secondary-delay 0.01 which-key-max-description-length 32 which-key-max-display-columns nil which-key-min-display-lines 6 which-key-prevent-C-h-from-cycling t which-key-sort-order 'which-key-prefix-then-key-order which-key-sort-uppercase-first nil which-key-special-keys nil which-key-use-C-h-for-paging t which-key-allow-evil-operators t) (spacemacs|add-toggle which-key :mode which-key-mode :documentation "Display a buffer with available key bindings." :evil-leader "tK") (spacemacs/declare-prefix "tk" "which-key-persistent") (setq which-key-toggle-of-message "To exit which-key-persistent-mode use `which-key-toggle-persistent'.") (spacemacs|add-toggle which-key-toggle-persistent :status which-key-persistent-popup :on (setq which-key-persistent-popup t) :off (setq which-key-persistent-popup nil) :documentation "Toggle on/off which-key-persistent-popup." :evil-leader "tkk") (spacemacs|add-toggle which-key-major-mode-map :status which-key-persistent-popup :on (progn (setq which-key-persistent-popup t) (which-key-show-major-mode)) :off (which-key-show-major-mode) :documentation "Show persistent major mode keymap. Press \\[which-key-toggle-persistent] to hide." :off-message which-key-toggle-of-message :evil-leader "tkm") (spacemacs|add-toggle which-key-full-major-mode-map :status which-key-persistent-popup :on (progn (setq which-key-persistent-popup t) (which-key-show-full-major-mode)) :off (which-key-show-full-major-mode) :documentation "Show persistent full major mode keymap. Press \\[which-key-toggle-persistent] to hide." :off-message which-key-toggle-of-message :evil-leader "tkM") (spacemacs|add-toggle which-key-top-level :status which-key-persistent-popup :on (progn (setq which-key-persistent-popup t) (which-key-show-top-level)) :off (which-key-show-top-level) :documentation "Show persistent top level keymap. Press \\[which-key-toggle-persistent] to hide." :off-message which-key-toggle-of-message :evil-leader "tkt") (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) ;; Reset to the default or customized value before adding our values in order ;; to make this initialization code idempotent. (custom-reevaluate-setting 'which-key-replacement-alist) ;; Replace rules for better naming of functions (let ((new-descriptions ;; being higher in this list means the replacement is applied later '( ("spacemacs/\\(.+\\)" . "\\1") ("spacemacs//\\(.+\\)" . "\\1") ("spacemacs-\\(.+\\)" . "\\1") ("spacemacs/toggle-\\(.+\\)" . "\\1") ("\\(.+\\)-transient-state/\\(.+\\)" . "\\2") ("\\(.+\\)-transient-state/body" . "\\1-transient-state") ("spacemacs-layouts/non-restricted-buffer-list-\\(helm\\|ivy\\)" . "global-list-buffers") ("spacemacs/toggle-mode-line-\\(.+\\)" . "\\1") ("evil-lisp-state-\\(.+\\)" . "\\1") ("helm-mini\\|ivy-switch-buffer" . "list-buffers") ("lazy-helm/\\(.+\\)" . "\\1") ("lazy-helm/spacemacs/\\(.+\\)" . "\\1")))) (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" . "Move buffer to window 1") . ("\\11..9" . "Move buffer to window 1..9")) which-key-replacement-alist) ;; hide the "[2-9] -> buffer-to-window-[2-9]" entries (push '((nil . "Move 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 n- narrow/numbers ;; Combine + and = (push '(("\\(.*\\)+" . "evil-numbers/inc-at-pt") . ("\\1+,=" . "evil-numbers/inc-at-pt")) which-key-replacement-alist) ;; hide "= -> evil-numbers/inc-at-pt" entry (push '(("\\(.*\\)=" . "evil-numbers/inc-at-pt") . t) which-key-replacement-alist) ;; Combine - and _ (push '(("\\(.*\\)-" . "evil-numbers/dec-at-pt") . ("\\1-,_" . "evil-numbers/dec-at-pt")) which-key-replacement-alist) ;; hide "_ -> evil-numbers/dec-at-pt" entry (push '(("\\(.*\\)_" . "evil-numbers/dec-at-pt") . t) 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) (which-key-add-key-based-replacements dotspacemacs-leader-key '("root" . "Spacemacs root") dotspacemacs-emacs-leader-key '("root" . "Spacemacs root")) ;; 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))) (which-key-mode) (spacemacs|diminish which-key-mode " Ⓚ" " K")) ;; pre packages (defun spacemacs-bootstrap/init-evil-evilified-state () (use-package evil-evilified-state) (define-key evil-evilified-state-map (kbd dotspacemacs-leader-key) spacemacs-default-map)) ;; we own pcre2el here, so that it's always available to ivy and helm ;; (necessary when using spacemacs-base distribution) (defun spacemacs-bootstrap/init-pcre2el () (use-package pcre2el :defer t)) (defun spacemacs-bootstrap/init-holy-mode () (spacemacs|unless-dumping-and-eval-after-loaded-dump holy-mode (use-package holy-mode :commands holy-mode :init (progn (when (eq 'emacs dotspacemacs-editing-style) (holy-mode)) (spacemacs|add-toggle holy-mode :status holy-mode :on (progn (when (bound-and-true-p hybrid-mode) (hybrid-mode -1) (spacemacs/declare-prefix "tEh" "hybrid (hybrid-mode)")) (holy-mode) (spacemacs/declare-prefix "tEe" "vim (evil-mode")) :off (progn (holy-mode -1) (spacemacs/declare-prefix "tEe" "emacs (holy-mode)")) :off-message "evil-mode enabled." :documentation "Globally toggle holy mode." :evil-leader "tEe") (spacemacs|diminish holy-mode " Ⓔe" " Ee"))))) (defun spacemacs-bootstrap/init-hybrid-mode () (spacemacs|unless-dumping-and-eval-after-loaded-dump hybrid-mode (use-package hybrid-mode :config (progn (when (eq 'hybrid dotspacemacs-editing-style) (hybrid-mode)) (spacemacs|add-toggle hybrid-mode :status hybrid-mode :on (progn (when (bound-and-true-p holy-mode) (holy-mode -1) (spacemacs/declare-prefix "tEe" "emacs (holy-mode)")) (hybrid-mode) (spacemacs/declare-prefix "tEh" "vim (evil-mode)")) :off (progn (hybrid-mode -1) (spacemacs/declare-prefix "tEh" "hybrid (hybrid-mode)")) :off-message "evil-mode enabled." :documentation "Globally toggle hybrid mode." :evil-leader "tEh") (spacemacs|diminish hybrid-mode " Ⓔh" " Eh"))))) (defun spacemacs-bootstrap/init-spacemacs-theme () (use-package spacemacs-theme :defer t)) (defun spacemacs-bootstrap/init-dash () (use-package dash :defer t))