From mboxrd@z Thu Jan  1 00:00:00 1970
From: "Sebastien Vauban" <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org>
Subject: Trying to use a custom face for highlighting tags used in agenda
 filtering
Date: Wed, 26 Oct 2011 22:22:21 +0200
Message-ID: <80pqhjpkoy.fsf@somewhere.org>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org>
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-mXXj517/zsQ@public.gmane.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode-mXXj517/zsQ@public.gmane.org>
List-Help: <mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org
To: emacs-orgmode-mXXj517/zsQ@public.gmane.org

Hello,

I tried modifying the lines of defun org-agenda-set-mode-name, line 6764, so
that tags are highlighted in the mode-line.

#+begin_src emacs-lisp
	      (if (or org-agenda-filter (get 'org-agenda-filter
					     :preset-filter))
		  '(:eval (concat " {" (propertize (mapconcat
						    'identity
						    (append (get 'org-agenda-filter
								 :preset-filter)
							    org-agenda-filter) "")
						   'face 'compilation-warning
						   'help-echo "Tags used in filtering"
						   )
				  "}")
			  )
		"")
#+end_src

While my code seems correct, it is not applied -- or, maybe, the face is
overwritten by another one, in which case I don't know how to debug: I can't
do C-u C-x = on the mode-line...

Any idea?

Best regards,
  Seb

-- 
Sebastien Vauban