From mboxrd@z Thu Jan  1 00:00:00 1970
From: Adam Porter <adam@alphapapa.net>
Subject: Re: How to rename the agenda in org-mode?
Date: Sun, 3 Apr 2016 19:37:53 +0000 (UTC)
Message-ID: <loom.20160403T213726-711@post.gmane.org>
References: <87h9fi6f3j.fsf@skimble.plus.com>
	<871t6m25ik.fsf@nicolasgoaziou.fr>
	<87vb3y1u4v.fsf@skimble.plus.com> <87fuv2a7b0.fsf@ucl.ac.uk>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:56486)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1amnqX-0002Kn-3W
	for emacs-orgmode@gnu.org; Sun, 03 Apr 2016 15:38:05 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1amnqT-0008Lq-Tr
	for emacs-orgmode@gnu.org; Sun, 03 Apr 2016 15:38:05 -0400
Received: from plane.gmane.org ([80.91.229.3]:41224)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1amnqT-0008Lm-N3
	for emacs-orgmode@gnu.org; Sun, 03 Apr 2016 15:38:01 -0400
Received: from list by plane.gmane.org with local (Exim 4.69)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1amnqQ-0006zE-Tv
	for emacs-orgmode@gnu.org; Sun, 03 Apr 2016 21:37:59 +0200
Received: from 172-0-42-27.lightspeed.ltrkar.sbcglobal.net ([172.0.42.27])
	by main.gmane.org with esmtp (Gmexim 0.1 (Debian))
	id 1AlnuQ-0007hv-00
	for <emacs-orgmode@gnu.org>; Sun, 03 Apr 2016 21:37:58 +0200
Received: from adam by 172-0-42-27.lightspeed.ltrkar.sbcglobal.net with local
	(Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00
	for <emacs-orgmode@gnu.org>; Sun, 03 Apr 2016 21:37:58 +0200
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org

Eric S Fraga <e.fraga <at> ucl.ac.uk> writes:

> 
> On Sunday,  3 Apr 2016 at 18:26, Sharon Kimble wrote:
> 
> [...]
> 
> > Okay, so how can I get the name shortened please? I've just measured it
> > and its actually taking up 3.5 inches! That is ridiculous and shouldn't
> > happen, so how can it be abbreviated or shortened?
> 
> Isn't this really a tabbar question?  Maybe look at providing your own
> function for displaying the tab when an agenda is displayed.  See
> tabbar-tab-label-function?  


Yes, I think this will do what you want:

(advice-add 'tabbar-buffer-tab-label :before-until
              (lambda (tab)
                (with-current-buffer (buffer-name (tabbar-tab-value tab))
                  (when (equal major-mode 'org-agenda-mode))
                  "Agenda")))