[elpa] externals/vc-got c27df03 055/145: print more info in vc-got-dir-extra-headers

[ELPA Syncer]

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

    print more info in vc-got-dir-extra-headers
    
    added repository path and remote url to vc-got-dir-extra-headers
---
 vc-got.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/vc-got.el b/vc-got.el
index 81c60b3..261eeb1 100755
--- a/vc-got.el
+++ b/vc-got.el
@@ -387,10 +387,14 @@ DIR-OR-FILE."
                     (push s res)))
              finally (funcall update-function res nil))))
 
-(defun vc-got-dir-extra-headers (_dir)
-  (concat
-   (propertize "Branch     : " 'face 'font-lock-type-face)
-   (vc-got--current-branch)))
+(defun vc-got-dir-extra-headers (dir)
+  "Return a string for the `vc-dir' buffer heading for directory DIR."
+  (concat (propertize "Repository : " 'face 'font-lock-type-face)
+          (vc-got--repo-root) "\n"
+          (propertize "Remote URL : " 'face 'font-lock-type-face)
+          (vc-got-repository-url dir) "\n"
+          (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."