From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Christian Faulhammer Newsgroups: gmane.emacs.devel Subject: Re: Status of VC Bazaar support? Date: Fri, 31 Oct 2008 20:57:29 +0100 Message-ID: <20081031205729.3ae0c73d@terra.solaris> References: <87ej48ucxp.fsf@cyd.mit.edu> <20081025005018.3ecdd3ad@terra.solaris> <200810270738.m9R7cHO7020963@mothra.ics.uci.edu> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="Sig_/Grk6HB0kBc9AXLCxJAeU4ex"; protocol="application/pgp-signature"; micalg=PGP-SHA1 X-Trace: ger.gmane.org 1225483118 11976 80.91.229.12 (31 Oct 2008 19:58:38 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 31 Oct 2008 19:58:38 +0000 (UTC) Cc: Chong Yidong , emacs-devel@gnu.org To: Dan Nicolaescu Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Oct 31 20:59:39 2008 connect(): Connection refused Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1Kw09i-0007Lr-Vp for ged-emacs-devel@m.gmane.org; Fri, 31 Oct 2008 20:59:39 +0100 Original-Received: from localhost ([127.0.0.1]:41232 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Kw08b-0002GU-2T for ged-emacs-devel@m.gmane.org; Fri, 31 Oct 2008 15:58:29 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Kw08W-0002GN-3r for emacs-devel@gnu.org; Fri, 31 Oct 2008 15:58:24 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Kw08T-0002Fu-QQ for emacs-devel@gnu.org; Fri, 31 Oct 2008 15:58:23 -0400 Original-Received: from [199.232.76.173] (port=38341 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Kw08T-0002Fr-L3 for emacs-devel@gnu.org; Fri, 31 Oct 2008 15:58:21 -0400 Original-Received: from mo-p05-ob.rzone.de ([81.169.146.182]:15956) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1Kw08T-0002fz-Hn for emacs-devel@gnu.org; Fri, 31 Oct 2008 15:58:21 -0400 X-RZG-CLASS-ID: mo05 X-RZG-AUTH: :K2kKYU+nW/MMMlTokcN5Yot1/Bj/FTl+WviP6RIJci0HRMpbh/x+X6ShOQjVOj0+68XVNBUONm8= Original-Received: from terra.solaris (p54AE7D55.dip.t-dialin.net [84.174.125.85]) by post.webmailer.de (mrclete mo9) (RZmta 17.14) with ESMTP id m00e4ek9VJlikx ; Fri, 31 Oct 2008 20:58:17 +0100 (MET) (envelope-from: ) In-Reply-To: <200810270738.m9R7cHO7020963@mothra.ics.uci.edu> X-Mailer: Claws Mail 3.6.1 (GTK+ 2.12.11; i686-pc-linux-gnu) X-detected-operating-system: by monty-python.gnu.org: Solaris 10 (beta) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:105227 --Sig_/Grk6HB0kBc9AXLCxJAeU4ex Content-Type: multipart/mixed; boundary="MP_/ZFgj4ERHio4maOVuI8XP_U4" --MP_/ZFgj4ERHio4maOVuI8XP_U4 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: quoted-printable Content-Disposition: inline Hi, Dan Nicolaescu : > Christian Faulhammer writes: > > I just noticed today the following: > > When calling vc-dir on a bzr repository one gets: > >=20 > > "VC backend : Bzr > > Working dir: /tmp/bzr/ > > Extra : Please add backend specific headers here. It's > > easy! " >=20 > Someone that uses bzr needs to decide what kind of info is useful to > have in the bzr specific headers.=20 >=20 > Probably some of the output of "bzr info" needs to go there. >=20 > 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 --=20 Christian Faulhammer, Gentoo Lisp project , #gentoo-lisp on FreeNode --MP_/ZFgj4ERHio4maOVuI8XP_U4 Content-Type: text/x-patch; name=bzr-status-headers.patch Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename=bzr-status-headers.patch --- /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" fi= les) (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 =20 (defun vc-bzr-revision-completion-table (files) @@ -723,5 +736,9 @@ '(add-to-list 'vc-directory-exclusion-list vc-bzr-admin-dirname t)) =20 (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 --MP_/ZFgj4ERHio4maOVuI8XP_U4-- --Sig_/Grk6HB0kBc9AXLCxJAeU4ex Content-Type: application/pgp-signature; name=signature.asc Content-Disposition: attachment; filename=signature.asc -----BEGIN PGP SIGNATURE----- Version: GnuPG v2.0.9 (GNU/Linux) iEYEARECAAYFAkkLYykACgkQNQqtfCuFneNaJQCeJX/HggqdknnZkOzN1X6QL08Q KAEAoJNhngtreP68WrpmyE+XiK2Lp2Ja =a2C+ -----END PGP SIGNATURE----- --Sig_/Grk6HB0kBc9AXLCxJAeU4ex--