From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: David House Newsgroups: gmane.emacs.devel Subject: Re: vc-mode-line Date: Tue, 10 Aug 2010 11:29:25 -0400 Message-ID: References: <83lj8tb2yg.fsf@gnu.org> <87mxt0ihtd.fsf@catnip.gol.com> <87wrs45s28.fsf@telefonica.net> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary=0015174be06662638e048d79cc38 X-Trace: dough.gmane.org 1281454178 23323 80.91.229.12 (10 Aug 2010 15:29:38 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 10 Aug 2010 15:29:38 +0000 (UTC) Cc: emacs-devel@gnu.org To: =?ISO-8859-1?Q?=D3scar_Fuentes?= Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Aug 10 17:29:37 2010 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.69) (envelope-from ) id 1Oiqlk-0007ZS-Qk for ged-emacs-devel@m.gmane.org; Tue, 10 Aug 2010 17:29:37 +0200 Original-Received: from localhost ([127.0.0.1]:39654 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Oiqlk-00051J-6q for ged-emacs-devel@m.gmane.org; Tue, 10 Aug 2010 11:29:36 -0400 Original-Received: from [140.186.70.92] (port=57069 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Oiqld-000514-Tw for emacs-devel@gnu.org; Tue, 10 Aug 2010 11:29:31 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1Oiqlc-0003tF-Gg for emacs-devel@gnu.org; Tue, 10 Aug 2010 11:29:29 -0400 Original-Received: from mail-ew0-f41.google.com ([209.85.215.41]:40524) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Oiqlc-0003sz-CO for emacs-devel@gnu.org; Tue, 10 Aug 2010 11:29:28 -0400 Original-Received: by ewy28 with SMTP id 28so4268761ewy.0 for ; Tue, 10 Aug 2010 08:29:26 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=domainkey-signature:mime-version:received:received:in-reply-to :references:date:message-id:subject:from:to:cc:content-type; bh=Qe5i13vwDM+7dtsBn3EnOYwXl61QAxLFEVDGT48TzCI=; b=Q2W5OhnFmc3w6Lah+onfBey2lrD3CLAh2QHNcmKjRQMWQAK8PAnw2B74OU0duvG9J2 VEqvWzR/6JeggjLzbiYZAkw2097mQ6ntwW3dWAMxVV3qcaIpMxuHQUyYMJxyFOM5gA9K /VoBZmYcea+2/idoYT29ChbeEjKfhzA/uaZOs= DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=mime-version:in-reply-to:references:date:message-id:subject:from:to :cc:content-type; b=q/GLes4d2yj1naQ4dHo/PkR1fA28dDX2o9DvUfURwemBNrFWVxw7FUtJnkmRfS9/bY vE5E4VTj9Hhpwiy2O8dPQWghgdXAJMvW6QcUftrLuFXgoktknrV0Lvtj2vCsdlmj/Ukx IKmf8quUZxmQ4m6+cRZxYaDn34bOOhMbuMswY= Original-Received: by 10.213.19.8 with SMTP id y8mr1293293eba.52.1281454166401; Tue, 10 Aug 2010 08:29:26 -0700 (PDT) Original-Received: by 10.14.121.16 with HTTP; Tue, 10 Aug 2010 08:29:25 -0700 (PDT) In-Reply-To: <87wrs45s28.fsf@telefonica.net> X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) 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:128547 Archived-At: --0015174be06662638e048d79cc38 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable On 5 August 2010 23:38, =D3scar Fuentes wrote: > Whatever you decide, please consider allowing for some colorized > clue. Associating background faces to VC states, for instance, so the > user can customize "green for unmodified, red for modified" etc. > > I guess that asking for images would be too contentious ;-) For a while now, I've been using the following customization to display a green circle for an unmodified file and an orange square for a modified one (versus the repository, I mean): (setq-default mode-line-format '(... (vc-mode (:eval (vc-icon))) ...) ;; Display a coloured square indicating the vc status of the current file (defun vc-icon () (let ((icon (if (vc-workfile-unchanged-p (buffer-file-name)) "in-vc.png" "modified-vc.png")) (bg (face-attribute 'mode-line :background))) (propertize " " 'display (find-image `((:type png :file ,icon :ascent center :background ,bg)))))= ) It relies on the attached two PNG images (I presume sending attachments to this mailing list works; if not, email me and I'll place them on imgur or somewhere similar). --0015174be06662638e048d79cc38 Content-Type: image/png; name="in-vc.png" Content-Disposition: attachment; filename="in-vc.png" Content-Transfer-Encoding: base64 X-Attachment-Id: f_gcowpma40 iVBORw0KGgoAAAANSUhEUgAAAA8AAAAPCAYAAAA71pVKAAAABmJLR0QA/wD/AP+gvaeTAAAACXBI WXMAAAsTAAALEwEAmpwYAAAAB3RJTUUH1wYNCgkVD01xPgAAAmJJREFUKM9VU81LVFEU/9373jQf or7BgRGJHMpiNja7lBamQVZE/4IECS7atmhhOLTIbX9CuahF7fqQJJCazNQMmigNKchFpIlPc2be x73nnhbvqdOFH+dufh/nHI5A/LZ2NsTdJ9d6gvTvS+vbq+dkqzfEDI8CpLWbrhx1irMZlZ+eGHmw lnPyDAACAN5XZ+2pSrk/OF69ye1uXyKDVlKwKQAohNAejLeNuqw5S9l6aXJ0uDzff3pIWVs7G+Le sxtnubc6niy4A4kMMmAIGIANxD5kAimT8As+7RZXvq6uzTxeXLd0z5eT9e7lcrLgDggJmwkwBBgF aTRgNMR+ZQOp4Xc1wr/HPn5aXLTtjsYwt7t9zLBZAUYDTBDGAMwAmsAMQEIGlnuGj3iX5Y/N6vlE Bm0UQlAIQSpyYopEOIp/KGQAK4mW778+X7RV0h0kBYsJzCZ2JIDiFHGNolMkBIbw2B2y43W0GBm7 cEQ2GsL8TxT7aQwBkPBsCpGhEELIA1WwaXKMB9hMNARhFNLSrmXntAfWPqCDGD5A4SGMikAKTApg DU4h+0YWOnpfeS4aFEJQAKGDaGgUQpKCMBFkHF+whlAN+Cc6e19Ks5eelnvOgvJg4olHjurAUVDk Cor+nDLZJUuln1svHr3bnluorPu0W9Twu4yBNPG6Dohh1D+F4ETgfOi0Srcnxx4uy5yT59Hh8nx2 rzQO13kd7KCuAzCFEDoEdNxzWIOX8LOVTlm6NXa1PJdz8iyar2ri/sipmtm88vPPygVj+4PCRoMC ZESYetudK860JfJP71yf+rZ/Vf8AUqOqY84sri8AAAAASUVORK5CYII= --0015174be06662638e048d79cc38 Content-Type: image/png; name="modified-vc.png" Content-Disposition: attachment; filename="modified-vc.png" Content-Transfer-Encoding: base64 X-Attachment-Id: f_gcowptro1 iVBORw0KGgoAAAANSUhEUgAAAA8AAAAPCAYAAAA71pVKAAAABmJLR0QA/wD/AP+gvaeTAAAACXBI WXMAAAsTAAALEwEAmpwYAAAAB3RJTUUH1wYNCTsTCRg+IwAAAT5JREFUKM9lk01KBEEMhb+Xbsat VxAUBzzCrAXP4QG8kiuPMtcQ5gS6GVCZquciVV3d2lAkBZW8n6R1+/D4cdifdwhh8rPAPUrKmKdm PL7vvufD/rx7fTmBDBauAUWoTEEJKJO4BNRQ5hOU4PntmkAIWQpDOJsIkJ15uyeldrcQik7Vjara GywtVLscupw8MwBlyo7QNY3CFejiQ1JjxoIiIa3Miv/o/GkEzJg0RfZ43NhUQVGaVYfTnVFDjjRh OxJRY6DXhYXWxWrIQ6MboluDgbhqhGYsfImUtFoSJ2oW9gYlTAlhGcuzLFRD7pZYOEepBbFL6DJq AA2ZMil3U+CGv6ZaIidQ1Y0TFjNVcJkGZ7eZrTWWjtjyJmntNhgt6MOcrXE1Frd1d//0ebj5udr8 VX0VcyG0mULLj6fp6xdMJMiVeZSwIQAAAABJRU5ErkJggg== --0015174be06662638e048d79cc38--