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

Slightly change evil-state.

Browse source
This commit is contained in:
Vincent Zhang 2018-09-11 17:41:00 +08:00
parent dcb106fb5f
commit 54c2824125
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
doom-modeline.el
View file

@ -451,7 +451,7 @@ active.")
if (= d 0) collect (string-to-char " ") if (= d 0) collect (string-to-char " ")
else collect (string-to-char ".")) else collect (string-to-char "."))
(if (eq idx len) "\"};" "\",\n"))))) (if (eq idx len) "\"};" "\",\n")))))
'xpm t :ascent 'center))))) 'xpm t :ascent 'center)))))
(defun doom-modeline-buffer-file-name () (defun doom-modeline-buffer-file-name ()
"Propertized variable `buffer-file-name' based on `+doom-modeline-buffer-file-name-style'." "Propertized variable `buffer-file-name' based on `+doom-modeline-buffer-file-name-style'."
@ -1029,7 +1029,7 @@ 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 tag 'face (propertize (s-trim-right tag) 'face
(if (doom-modeline--active) (if (doom-modeline--active)
(cond ((eq tag evil-normal-state-tag) 'doom-modeline-evil-normal-state) (cond ((eq tag evil-normal-state-tag) 'doom-modeline-evil-normal-state)
((eq tag evil-emacs-state-tag) 'doom-modeline-evil-emacs-state) ((eq tag evil-emacs-state-tag) 'doom-modeline-evil-emacs-state)