VC colors

gistfile1.el

(defvar my-vc-alist '(;; Everything is ok:
                      (up-to-date some-green-face)
                      ;; Kinda important:
                      (edited some-yellow-face)
                      (added some-yellow-face)
                      ;; Most important:
                      ;; ...
                     ))

(setq mode-line-format
  (list ;; ...
         '(:eval (let ((file-name (buffer-file-name)))
              (if file-name
                  (let ((state-face (assoc (vc-state file-name)
                                           my-vc-alist))
                        (revision (vc-working-revision file-name)))
                    (propertize (concat "%b"
                                        (when revision
                                          (concat " [" revision "]")))
                                'face (cadr state-face)))
                  "%b")))
        ;; ...
  ))