Change cursor shape to box for emacs and lisp states

This commit is contained in:
syl20bnr 2014-10-14 23:06:40 -04:00
parent a6ce1b6ad6
commit 803e9929af

View file

@ -142,7 +142,7 @@ which require an initialization must be listed explicitly in the list.")
"Return the color string associated to STATE."
(cdr (assq state spacemacs-state-colors)))
(defun set-default-evil-emacs-state-cursor ()
(setq evil-emacs-state-cursor `(,(spacemacs/state-color 'emacs) (bar . 2))))
(setq evil-emacs-state-cursor `(,(spacemacs/state-color 'emacs) box)))
(defun set-default-evil-normal-state-cursor ()
(setq evil-normal-state-cursor `(,(spacemacs/state-color 'normal) box)))
(defun set-default-evil-insert-state-cursor ()
@ -152,7 +152,7 @@ which require an initialization must be listed explicitly in the list.")
(defun set-default-evil-motion-state-cursor ()
(setq evil-motion-state-cursor `(,(spacemacs/state-color 'motion) box)))
(defun set-default-evil-lisp-state-cursor ()
(setq evil-lisp-state-cursor `(,(spacemacs/state-color 'lisp) (bar . 2))))
(setq evil-lisp-state-cursor `(,(spacemacs/state-color 'lisp) box)))
(defun evil-insert-state-cursor-hide ()
(setq evil-insert-state-cursor `(,(spacemacs/state-color 'insert) (hbar . 0))))
(set-default-evil-emacs-state-cursor)