[elpa] externals/vc-got a8466f0 022/145: implement dir-extra-headers

[ELPA Syncer]

branch: externals/vc-got
commit a8466f02b7ba1629018f58c08c73d4fb2368c247
Author: Omar Polo <op@omarpolo.com>
Commit: Omar Polo <op@omarpolo.com>

    implement dir-extra-headers
    
    show the current branch for now
---
 vc-got.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/vc-got.el b/vc-got.el
old mode 100644
new mode 100755
index 05e3c02..42a2b5d
--- a/vc-got.el
+++ b/vc-got.el
@@ -40,7 +40,7 @@
 ;; * registered                         DONE
 ;; * state                              DONE
 ;; - dir-status-files                   DONE
-;; - dir-extra-headers                  NOT IMPLEMENTED
+;; - dir-extra-headers                  DONE
 ;; - dir-printer                        NOT IMPLEMENTED
 ;; - status-fileinfo-extra              NOT IMPLEMENTED
 ;; * working-revision                   DONE
@@ -333,6 +333,11 @@ DIR-OR-FILE."
 ;;   (vc-got-dir-status-files dir nil (lambda (res _t)
 ;;                                      (message "got %s" res))))
 
+(defun vc-got-dir-extra-headers (_dir)
+  (concat
+   (propertize "Branch     : " 'face 'font-lock-type-face)
+   (vc-got--current-branch)))
+
 (defun vc-got-working-revision (file)
   "Return the id of the last commit that touched the FILE or \"0\" for a new 
(but added) file."
   (or