github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-24 03:00:10 +00:00
Code Issues Projects Releases Packages Wiki Activity

Refactor evil-state.

Browse source
This commit is contained in:
Vincent Zhang 2018-10-29 22:47:34 +08:00
parent 5dfe1deccb
commit c60dd1279a
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
doom-modeline.el
View file

@ -1088,15 +1088,15 @@ See `mode-line-percent-position'.")
"The current evil state. Requires `evil-mode' to be enabled." "The current evil state. Requires `evil-mode' to be enabled."
(when (bound-and-true-p evil-local-mode) (when (bound-and-true-p evil-local-mode)
(let ((tag (evil-state-property evil-state :tag t))) (let ((tag (evil-state-property evil-state :tag t)))
(propertize (s-trim-right tag) 'face (propertize tag 'face
(if (doom-modeline--active) (if (doom-modeline--active)
(cond ((eq tag evil-normal-state-tag) 'doom-modeline-evil-normal-state) (cond ((evil-normal-state-p) 'doom-modeline-evil-normal-state)
((eq tag evil-emacs-state-tag) 'doom-modeline-evil-emacs-state) ((evil-emacs-state-p) 'doom-modeline-evil-emacs-state)
((eq tag evil-insert-state-tag) 'doom-modeline-evil-insert-state) ((evil-insert-state-p) 'doom-modeline-evil-insert-state)
((eq tag evil-motion-state-tag) 'doom-modeline-evil-motion-state) ((evil-motion-state-p) 'doom-modeline-evil-motion-state)
((eq tag evil-visual-state-tag) 'doom-modeline-evil-visual-state) ((evil-visual-state-p) 'doom-modeline-evil-visual-state)
((eq tag evil-operator-state-tag) 'doom-modeline-evil-operator-state) ((evil-operator-state-p) 'doom-modeline-evil-operator-state)
((eq tag evil-replace-state-tag) 'doom-modeline-evil-replace-state))))))) ((evil-replace-state-p) 'doom-modeline-evil-replace-state)))))))
;; ;;