From 239b3a97e133235b0f8e96b222062d20a34b354d Mon Sep 17 00:00:00 2001
From: Vincent Zhang <seagle0128@gmail.com>
Date: Thu, 3 Jan 2019 02:08:35 +0800
Subject: [PATCH] Show vcs segment in both active and inactive windows.

Similarly, display icon and text separately. No performance issue.
---
 doom-modeline.el | 94 +++++++++++++++++++++++++++---------------------
 1 file changed, 54 insertions(+), 40 deletions(-)

diff --git a/doom-modeline.el b/doom-modeline.el
index 385dba0..8df4148 100644
--- a/doom-modeline.el
+++ b/doom-modeline.el
@@ -222,6 +222,7 @@ It returns a file name which can be used directly as argument of
 (declare-function flycheck-previous-error 'flycheck)
 (declare-function flymake--backend-state-diags 'flymake)
 (declare-function flymake--diag-type 'flymake)
+(declare-function flymake--handle-report 'flymake)
 (declare-function flymake-disabled-backends 'flymake)
 (declare-function flymake-goto-next-error 'flymake)
 (declare-function flymake-goto-prev-error 'flymake)
@@ -992,52 +993,65 @@ mouse-1: Display minor modes menu"
 ;; vcs
 ;;
 
-(defvar-local doom-modeline--vcs nil)
-(defun doom-modeline--update-vcs (&rest _)
-  "Update vsc state in mode-line."
-  (setq doom-modeline--vcs
+(defvar-local doom-modeline--vcs-icon nil)
+(defun doom-modeline--update-vcs-icon (&rest _)
+  "Update icon of vsc state in mode-line."
+  (setq doom-modeline--vcs-icon
         (when (and vc-mode buffer-file-name)
           (let* ((backend (vc-backend buffer-file-name))
                  (state   (vc-state buffer-file-name backend)))
-            (let ((face    'mode-line-inactive)
-                  (active  (doom-modeline--active))
-                  (all-the-icons-default-adjust -0.1))
-              (concat "  "
-                      (cond ((memq state '(edited added))
-                             (if active (setq face 'doom-modeline-info))
-                             (doom-modeline-icon-octicon
-                              "git-compare"
-                              :face face
-                              :v-adjust -0.05))
-                            ((eq state 'needs-merge)
-                             (if active (setq face 'doom-modeline-info))
-                             (doom-modeline-icon-octicon "git-merge" :face face))
-                            ((eq state 'needs-update)
-                             (if active (setq face 'doom-modeline-warning))
-                             (doom-modeline-icon-octicon "arrow-down" :face face))
-                            ((memq state '(removed conflict unregistered))
-                             (if active (setq face 'doom-modeline-urgent))
-                             (doom-modeline-icon-octicon "alert" :face face))
-                            (t
-                             (if active (setq face 'doom-modeline-info))
-                             (doom-modeline-icon-octicon
-                              "git-branch"
-                              :face face
-                              :v-adjust -0.05)))
-                      doom-modeline-vspc
-                      (propertize (substring vc-mode (+ (if (eq backend 'Hg) 2 3) 2))
-                                  'face (if active face))
-                      " "))))))
-(add-hook 'after-revert-hook #'doom-modeline--update-vcs)
-(add-hook 'after-save-hook #'doom-modeline--update-vcs)
-(add-hook 'find-file-hook #'doom-modeline--update-vcs t)
-(advice-add #'vc-refresh-state :after #'doom-modeline--update-vcs)
+            (let ((all-the-icons-default-adjust -0.1))
+              (cond ((memq state '(edited added))
+                     (doom-modeline-icon-octicon "git-compare"
+                                                 :face 'doom-modeline-info
+                                                 :v-adjust -0.05))
+                    ((eq state 'needs-merge)
+                     (doom-modeline-icon-octicon "git-merge" :face 'doom-modeline-info))
+                    ((eq state 'needs-update)
+                     (doom-modeline-icon-octicon "arrow-down" :face 'doom-modeline-warning))
+                    ((memq state '(removed conflict unregistered))
+                     (doom-modeline-icon-octicon "alert" :face 'doom-modeline-urgent))
+                    (t
+                     (doom-modeline-icon-octicon "git-branch"
+                                                 :face 'doom-modeline-info
+                                                 :v-adjust -0.05))))))))
+(add-hook 'after-revert-hook #'doom-modeline--update-vcs-icon)
+(add-hook 'after-save-hook #'doom-modeline--update-vcs-icon)
+(add-hook 'find-file-hook #'doom-modeline--update-vcs-icon t)
+(advice-add #'vc-refresh-state :after #'doom-modeline--update-vcs-icon)
+
+(defvar-local doom-modeline--vcs-text nil)
+(defun doom-modeline--update-vcs-text (&rest _)
+  "Update text of vsc state in mode-line."
+  (setq doom-modeline--vcs-text
+        (when (and vc-mode buffer-file-name)
+          (let* ((backend (vc-backend buffer-file-name))
+                 (state   (vc-state buffer-file-name backend)))
+            (propertize (substring vc-mode (+ (if (eq backend 'Hg) 2 3) 2))
+                        'face (cond ((eq state 'needs-update)
+                                     'doom-modeline-warning)
+                                    ((memq state '(removed conflict unregistered))
+                                     'doom-modeline-urgent)
+                                    (t 'doom-modeline-info)))))))
+(add-hook 'after-revert-hook #'doom-modeline--update-vcs-text)
+(add-hook 'after-save-hook #'doom-modeline--update-vcs-text)
+(add-hook 'find-file-hook #'doom-modeline--update-vcs-text t)
+(advice-add #'vc-refresh-state :after #'doom-modeline--update-vcs-text)
 
 (doom-modeline-def-segment vcs
   "Displays the current branch, colored based on its state."
-  (if (doom-modeline--active)
-      (or doom-modeline--vcs (doom-modeline--update-vcs))
-    ""))
+  (let ((active (doom-modeline--active)))
+    (when-let ((icon (or doom-modeline--vcs-icon (doom-modeline--update-vcs-icon)))
+               (text (or doom-modeline--vcs-text (doom-modeline--update-vcs-text))))
+      (concat "  "
+              (if active
+                  icon
+                (propertize icon 'face `(:height 1.2 :family ,(all-the-icons-icon-family icon) :inherit)))
+              doom-modeline-vspc
+              (if active
+                  text
+                (propertize text 'face 'mode-line-inactive))
+              " "))))
 
 
 ;;