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

Add function spacemacs/set-evil-cursor-color

Browse source
This commit is contained in:
syl20bnr 2015-02-14 23:54:21 -05:00
parent 9059a486fe
commit afff22ebb4
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
spacemacs/packages.el
View file

@ -568,6 +568,15 @@ which require an initialization must be listed explicitly in the list.")
(set-default-evil-visual-state-cursor)
(set-default-evil-motion-state-cursor)
(set-default-evil-lisp-state-cursor)
(defun spacemacs/set-evil-cursor-color (state color)
"Change the evil cursor COLOR for STATE."
(let ((face (intern (format "spacemacs-%s-face" (symbol-name state))))
(func (intern (format "set-default-evil-%s-state-cursor"
(symbol-name state)))))
(set-face-attribute face nil :background "#FFFFEF")
(funcall func)))
(evil-mode 1))
:config
(progn