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:48:29 +0000 (UTC)
Message-ID: <loom.20160403T214744-879@post.gmane.org>
References: <87h9fi6f3j.fsf@skimble.plus.com>
	<871t6m25ik.fsf@nicolasgoaziou.fr>
	<87vb3y1u4v.fsf@skimble.plus.com> <87fuv2a7b0.fsf@ucl.ac.uk>
	<loom.20160403T213726-711@post.gmane.org>
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]:58181)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1amo0o-0005Z2-Q2
	for emacs-orgmode@gnu.org; Sun, 03 Apr 2016 15:48:43 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1amo0j-0001am-Oe
	for emacs-orgmode@gnu.org; Sun, 03 Apr 2016 15:48:42 -0400
Received: from plane.gmane.org ([80.91.229.3]:41499)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1amo0j-0001ag-Hu
	for emacs-orgmode@gnu.org; Sun, 03 Apr 2016 15:48:37 -0400
Received: from list by plane.gmane.org with local (Exim 4.69)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1amo0h-00034S-KI
	for emacs-orgmode@gnu.org; Sun, 03 Apr 2016 21:48:35 +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:48:35 +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:48:35 +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

Oops, that'll teach me to edit elisp without aggressive-indent-mode.  :) 
This should work:

(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"))))