Re: Status of VC Bazaar support?

[Christian Faulhammer <opfer@gentoo.org>]

[-- Attachment #1.1: Type: text/plain, Size: 966 bytes --]

Hi,

Dan Nicolaescu <dann@ics.uci.edu>:

> Christian Faulhammer <opfer@gentoo.org> writes:
>   >  I just noticed today the following:
>   > When calling vc-dir on a bzr repository one gets:
>   > 
>   > "VC backend : Bzr
>   > Working dir: /tmp/bzr/
>   > Extra      : Please add backend specific headers here.  It's
>   > easy! "
> 
> Someone that uses bzr needs to decide what kind of info is useful to
> have in the bzr specific headers. 
> 
> Probably some of the output of "bzr info" needs to go there.
> 
> To do that, implement a function called `vc-bzr-dir-extra-headers'.
> Look in the other vc-*.el files for examples how to do that.

 Attached is a patch for a first inclusion.  I don't know if it is a
trivial change, but if not: I don't have papers filed to the FSF.

V-Li

-- 
Christian Faulhammer, Gentoo Lisp project
<URL:http://www.gentoo.org/proj/en/lisp/>, #gentoo-lisp on FreeNode

<URL:http://www.faulhammer.org/>

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: bzr-status-headers.patch --]
[-- Type: text/x-patch; name=bzr-status-headers.patch, Size: 1244 bytes --]

--- /usr/portage/distfiles/cvs-src/emacs/lisp/vc-bzr.el	2008-10-12 19:57:10.000000000 +0200
+++ /usr/share/emacs/23.0.60/lisp/vc-bzr.el	2008-10-31 21:26:20.000000000 +0100
@@ -664,6 +664,19 @@
   (apply 'vc-bzr-command "status" (current-buffer) 'async dir "-v" "-S" files)
   (vc-exec-after
    `(vc-bzr-after-dir-status (quote ,update-function))))
+
+(defun vc-bzr-status-extra-headers (dir)
+  (let ((str (with-output-to-string
+               (with-current-buffer standard-output
+                 (vc-bzr--call '(t nil) "info")))))
+    (concat
+     (propertize "Branch root: " 'face 'font-lock-type-face)
+     (propertize
+		 (if (and (string-match "branch root: \\(.+\\)$" str) (string-match "\\." (match-string 1 str)))
+		     "Current directory"
+		   (match-string 1 str))
+       'face 'font-lock-variable-name-face))))
+
 ;;; Revision completion
 
 (defun vc-bzr-revision-completion-table (files)
@@ -723,5 +736,9 @@
   '(add-to-list 'vc-directory-exclusion-list vc-bzr-admin-dirname t))
 
 (provide 'vc-bzr)
+
+(defun vc-bzr--call (buffer command &rest args)
+  (apply 'process-file "bzr" nil buffer nil command args))
+
 ;; arch-tag: 8101bad8-4e92-4e7d-85ae-d8e08b4e7c06
 ;;; vc-bzr.el ends here

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 197 bytes --]