gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mode-line: color coded vcs states + faces

Browse Source
This commit is contained in:
Henrik Lissner 2016-05-25 00:11:39 -04:00
parent a4060ac9f4
commit 9d0f5f247b
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
core/core-ui.el
View File

@ -233,10 +233,19 @@
(t (format ":%d%%%%" perc))))))
" "))
(defface mode-line-vcs-info nil '((t (:inherit warning))))
(defface mode-line-vcs-warning nil '((t (:inherit warning))))
(spaceline-define-segment *vc
"Version control info"
(when vc-mode
(concat "⎇ " (substring vc-mode (+ 2 (length (symbol-name (vc-backend buffer-file-name))))))))
(propertize
(concat "⎇ " (substring vc-mode (+ 2 (length (symbol-name (vc-backend buffer-file-name))))))
'face (when active
(let ((state (vc-state buffer-file-name)))
(cond ((memq state '(edited added))
'mode-line-vcs-info)
((memq state '(removed needs-merge needs-update conflict removed unregistered))
'mode-line-vcs-warning)))))))
;; search indicators
(defface mode-line-count-face nil "")