awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues 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
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)))))) (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 (spaceline-define-segment *vc
"Version control info" "Version control info"
(when vc-mode (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 ;; search indicators
(defface mode-line-count-face nil "") (defface mode-line-count-face nil "")