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

Fix: update vcs.

Browse source
This commit is contained in:
Vincent Zhang 2018-06-28 00:26:44 +08:00
parent c354cdde0c
commit bd097590a2
1 changed files with 32 additions and 40 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
doom-modeline.el
View file

@ -613,10 +613,8 @@ directory, the file name, and its state (modified, read-only or non-existent)."
;; vcs ;; vcs
;; ;;
(defvar-local doom-modeline--vcs nil) (doom-modeline-def-segment vcs
(defun doom-modeline--update-vcs () "Displays the current branch, colored based on its state."
"Update vsc status in mode-line."
(setq doom-modeline--vcs
(when (and vc-mode buffer-file-name) (when (and vc-mode buffer-file-name)
(let* ((backend (vc-backend buffer-file-name)) (let* ((backend (vc-backend buffer-file-name))
(state (vc-state buffer-file-name backend))) (state (vc-state buffer-file-name backend)))
@ -648,13 +646,7 @@ directory, the file name, and its state (modified, read-only or non-existent)."
" " " "
(propertize (substring vc-mode (+ (if (eq backend 'Hg) 2 3) 2)) (propertize (substring vc-mode (+ (if (eq backend 'Hg) 2 3) 2))
'face (if active face)) 'face (if active face))
" ")))))) " ")))))
(add-hook 'after-save-hook #'doom-modeline--update-vcs)
(add-hook 'find-file-hook #'doom-modeline--update-vcs t)
(doom-modeline-def-segment vcs
"Displays the current branch, colored based on its state."
doom-modeline--vcs)
;; ;;