Add hybrid-style-visual-feedback variable

This commit is contained in:
syl20bnr 2018-06-08 02:32:05 -04:00
parent 3a2740f7e6
commit 5004e05d44
3 changed files with 7 additions and 1 deletions

View File

@ -807,6 +807,7 @@ style configuration:
| Variables | Description | | Variables | Description |
|---------------------------------------+----------------------------------------------------------------------------------------| |---------------------------------------+----------------------------------------------------------------------------------------|
| =hybrid-style-visual-feedback= | If non-nil then objects are briefly highlighted |
| =hybrid-style-default-state= | The default state when opening a new buffer. Set it to =emacs= for a more emacsy style | | =hybrid-style-default-state= | The default state when opening a new buffer. Set it to =emacs= for a more emacsy style |
| =hybrid-style-enable-hjkl-bindings= | If non-nil then packages will configure =h j k l= key bindings for navigation | | =hybrid-style-enable-hjkl-bindings= | If non-nil then packages will configure =h j k l= key bindings for navigation |
| =hybrid-style-enable-evilified-state= | If non-nil buffer are =evilified= when supported, if nil then =emacs= state is enabled | | =hybrid-style-enable-evilified-state= | If non-nil buffer are =evilified= when supported, if nil then =emacs= state is enabled |
@ -816,6 +817,7 @@ Default configuration is:
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq-default dotspacemacs-editing-style '(hybrid :variables (setq-default dotspacemacs-editing-style '(hybrid :variables
hybrid-style-visual-feedback nil
hybrid-style-enable-evilified-state t hybrid-style-enable-evilified-state t
hybrid-style-enable-hjkl-bindings nil hybrid-style-enable-hjkl-bindings nil
hybrid-style-use-evil-search-module nil hybrid-style-use-evil-search-module nil

View File

@ -13,5 +13,8 @@
(defvar vim-style-visual-feedback nil (defvar vim-style-visual-feedback nil
"If non-nil objects are briefly highlighted performing an action.") "If non-nil objects are briefly highlighted performing an action.")
(defvar hybrid-style-visual-feedback nil
"If non-nil objects are briefly highlighted performing an action.")
(defvar evil-lisp-safe-structural-editing-modes '() (defvar evil-lisp-safe-structural-editing-modes '()
"A list of major mode symbols where safe structural editing is supported.") "A list of major mode symbols where safe structural editing is supported.")

View File

@ -117,7 +117,8 @@
(setq evil-goggles-pulse nil (setq evil-goggles-pulse nil
evil-goggles-async-duration 0.1 evil-goggles-async-duration 0.1
evil-goggles-blocking-duration 0.05) evil-goggles-blocking-duration 0.05)
(if vim-style-visual-feedback (if (or vim-style-visual-feedback
hybrid-style-visual-feedback)
(evil-goggles-mode) (evil-goggles-mode)
(evil-goggles-mode -1))) (evil-goggles-mode -1)))
:config :config