[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Orgmode] agenda view tags filtering
From: |
julien cubizolles |
Subject: |
Re: [Orgmode] agenda view tags filtering |
Date: |
Mon, 16 Aug 2010 22:40:19 +0200 |
Le lundi 16 août 2010 à 22:18 +0200, Bastien a écrit :
> I quickly checked the structure -- the `org-agenda-filter-preset
> variable should be inside another pair of parentheses.
>
> ,----
> | (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ée-classe-labo")
> | )
> | ((org-agenda-filter-preset quote ("+lycée")))
> | ))))
> `----
>
> (Not tested.)
It works thanks, I also add to replace "quote" by a "'". The final
working version is then :
,----
|
| (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ée-classe-labo")
| )
| ((org-agenda-filter-preset '("+lycée")))
| ))))
`----