From mboxrd@z Thu Jan  1 00:00:00 1970
From: julien cubizolles <j.cubizolles@free.fr>
Subject: Re: agenda view tags filtering
Date: Mon, 16 Aug 2010 22:40:19 +0200
Message-ID: <1281991219.2342.74.camel@localhost>
References: <1281982647.2342.6.camel@localhost> <871v9y5s5k.fsf@gnu.org>
	<1281986353.2342.60.camel@localhost> <87r5hy9wh1.fsf@altern.org>
	<1281989422.2342.72.camel@localhost>  <87aaomxqdt.fsf@gnu.org>
Mime-Version: 1.0
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from [140.186.70.92] (port=54685 helo=eggs.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1Ol6Ts-0005FP-Mm
	for emacs-orgmode@gnu.org; Mon, 16 Aug 2010 16:40:29 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69)
	(envelope-from <j.cubizolles@free.fr>) id 1Ol6Tr-0003m9-FR
	for emacs-orgmode@gnu.org; Mon, 16 Aug 2010 16:40:28 -0400
Received: from smtp2-g21.free.fr ([212.27.42.2]:57587)
	by eggs.gnu.org with esmtp (Exim 4.69)
	(envelope-from <j.cubizolles@free.fr>) id 1Ol6Tq-0003lp-T7
	for emacs-orgmode@gnu.org; Mon, 16 Aug 2010 16:40:27 -0400
In-Reply-To: <87aaomxqdt.fsf@gnu.org>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/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: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Bastien <bastien.guerry@wikimedia.fr>
Cc: emacs-orgmode@gnu.org

Le lundi 16 ao=C3=BBt 2010 =C3=A0 22:18 +0200, Bastien a =C3=A9crit :

> I quickly checked the structure -- the `org-agenda-filter-preset
> variable should be inside another pair of parentheses.
>=20
> ,----
> | (setq org-agenda-custom-commands
> |       (quote (("t" "TEST"
> | 	       ((agenda ""
> | 		((org-agenda-skip-function
> | 		 (lambda ()
> | 		   (let* ((ts (org-entry-get nil "TIMESTAMP")))
> | 		     (if (or (not ts) (equal ts ""))
> | 			 (progn (outline-next-heading) (point))))))))
> | 		(tags-todo "classe")
> | 		(tags-todo "labo")
> | 		(tags-todo "@lyc=C3=A9e-classe-labo")
> | 		)
> | 	       ((org-agenda-filter-preset quote ("+lyc=C3=A9e")))
> | 	       ))))
> `----
>=20
> (Not tested.)

It works thanks, I also add to replace "quote" by a "'". The final
working version is then :

,----
|=20
| (setq org-agenda-custom-commands
|        (quote (("t" "TEST"
|               ((agenda ""
|                ((org-agenda-skip-function
|                 (lambda ()
|                   (let* ((ts (org-entry-get nil "TIMESTAMP")))
|                     (if (or (not ts) (equal ts ""))
|                         (progn (outline-next-heading) (point))))))))
|                (tags-todo "classe")
|                (tags-todo "labo")
|                (tags-todo "@lyc=C3=A9e-classe-labo")
|                )
|               ((org-agenda-filter-preset '("+lyc=C3=A9e")))
|               ))))
`----