Re: [O] Can I use an already defined agenda view in another agenda command?

[Matt Lundin]

M <address@hidden> writes:

> Salut Bastien,
>
> thanks a lot - that helps a little, however this will only work temporarily
> and already for the next "r" refresh, the combined agendas are not there any
> more, just one, if I am not mistaken.
>
> My question was more targeting in the direction if it could be possible to
> define one basic setup once and then create some different "flavors" of it
> without duplicating the configuration code to have a consistent setup...
>
> Example: 
> I'm having a block agenda which I use during my daily work and which shows
> me the deadlines of today, the appointments of today and the tasks scheduled
> today (and those overdue).
>
> That's fine for the day, but for my daily planning I do once in the morning
> it would be nice to use that same setup, but also see deadlines which are e.
> g. 10 days in the future and the scheduled tasks which will come up the next
> day(s).
>
> So my idea was: i can define the basic setup once, and then "cite" it and
> extend it for other agenda setups.

Here's an example of how something like this could be done:

--8<---------------cut here---------------start------------->8---
(defmacro my-agenda (days)
  `(list 'agenda ""
         (list (list 'org-deadline-warning-days ,days))))

(setq my-next-actions
      '("n" "All next actions" todo "TODO|NOW|NEXT"
        ((org-agenda-todo-ignore-scheduled 'future)
         (org-agenda-todo-ignore-deadlines 'far)
         (org-agenda-dim-blocked-tasks t))))

(setq my-projects
      '("q" "Projects" todo "PROJECT"
        ((org-agenda-todo-ignore-deadlines t)
         (org-agenda-prefix-format " %i %-12:c%l"))))

(setq org-agenda-custom-commands
      `(,my-next-actions
        ,my-projects
        ("k" "Combined"
         (,(cddr my-next-actions)
          ,(cddr my-projects)))
        ("d" "Short deadlines"
         (,(my-agenda 1)))
        ("D" "Long deadlines"
         (,(my-agenda 21)))))
--8<---------------cut here---------------end--------------->8---

Matt