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")))
| ))))
`----
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
