[Orgmode] Re: Trouble setting variables in custom agenda command

[Bernt Hansen]

Carsten Dominik <address@hidden> writes:

> Could anyone please try to reproduce this?
>
> Thanks.
>
> - Carsten
>

This works as described by Christopher for me.

GNU Emacs 22.2.1 (i486-pc-linux-gnu, X toolkit, Xaw3d scroll bars) of
2008-11-09 on raven, modified by Debian

Org-mode version 6.27trans (release_6.27a-52-g45d80c3)

| Keystrokes                  | Notes                                        |
|-----------------------------+----------------------------------------------|
| emacs -q -l ~/minimal.emacs | Start emacs for testing                      |
| C-x C-f /tmp/x.x            | Visit file with test setting                 |
| M-S->                       | Go to bottom of file                         |
| C-x C-e                     | Execute - setting org-agenda-custom-commands |
| C-c a c                     | Run custom agenda "The Cycle"                |
|-----------------------------+----------------------------------------------|

and it looks like this:

,----[ x.agenda.txt ]
| Day-agenda (W23):
| Wednesday   3 June 2009
|   x:          In  -3 d.:  TODO Test task
|   x:          In   2 d.:  TODO First task
`----

I can turn on log mode with l to get this

,----[ x.agenda.txt ]
| Day-agenda (W23):
| Wednesday   3 June 2009
|                8:00...... ----------------
|   x:           9:10- 9:12 Clocked:   (0:02) TODO Test task - State "STARTED"  
  from "TODO"       [2009-06-02 Tue 09:13]
|   x:           9:13- 9:14 Clocked:   (0:01) TODO Test task - State "STARTED"  
  from "TODO"       [2009-06-02 Tue 09:13]
|               10:00...... ----------------
|               12:00...... ----------------
|               14:00...... ----------------
|               16:00...... ----------------
|               18:00...... ----------------
|               20:00...... ----------------
|   x:          In  -3 d.:  TODO Test task
|   x:          In   2 d.:  TODO First task
`----

and turn on column mode with C-c C-x C-c to get this

,----[ x.agenda.txt ]
| Day-agenda (W23):
| Wednesday   3 June 2009
|                8:00...... ----------------
|   x:           9:10- 9:12 Clocked:   (0:02) TODO Test task - State "STARTED"  
  from "TODO"       [2009-06-02 Tue 09:13]
|   x:           9:13- 9:14 Clocked:   (0:01) TODO Test task - State "STARTED"  
  from "TODO"       [2009-06-02 Tue 09:13]
|               10:00...... ----------------
|               12:00...... ----------------
|               14:00...... ----------------
|               16:00...... ----------------
|               18:00...... ----------------
|               20:00...... ----------------
|   x:          In  -3 d.:  TODO Test task
|   x:          In   2 d.:  TODO First task
`----

Test files follow:

,----[ minimal.emacs ]
| (add-to-list 'load-path (expand-file-name "~/git/org-mode/lisp"))
| (add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\|txt\\)$" . 
org-mode))
| (require 'org-install)
| (global-set-key "\C-cl" 'org-store-link)
| (global-set-key "\C-ca" 'org-agenda)
| (global-set-key "\C-cb" 'org-iswitchb)
| (setq org-log-done (quote time))
| (setq org-log-into-drawer t)
| (setq org-agenda-files '("/tmp/x.org"))
`----

,----[ x.org ]
| #_STARTUP:
| * TODO First task
|   DEADLINE: <2009-06-05 Fri>
|   - Note taken on [2009-06-03 Wed 14:51] \\
|     some log message
| * QUOTE foo
| Some test quote
| * TODO Test task
| DEADLINE: <2009-05-10 Sun +1w>
| - State "DONE"       from ""           [2009-06-03 Wed 14:50]
| :LOGBOOK:
| CLOCK: [2009-06-03 Wed 09:13]--[2009-06-03 Wed 09:14] =>  0:01
| - State "STARTED"    from "TODO"       [2009-06-02 Tue 09:13]
| - State "DONE"       from "STARTED"    [2009-06-02 Tue 09:12]
| - State "STARTED"    from "TODO"       [2009-06-02 Tue 09:12]
| CLOCK: [2009-06-03 Wed 09:10]--[2009-06-03 Wed 09:12] =>  0:02
| :END:
| * More stuff
`----

,----[ x.x ]
|     (setq org-agenda-custom-commands
|           '(("c" "The Cycle"
|               ((agenda ""
|                        (
|                         (org-agenda-overriding-columns-format "%75ITEM 
%7Effort{:} %7CLOCKSUM{Total} %15TAGS %SCHEDULED")  ;; no
|                         (org-agenda-view-columns-initially t)                 
                                             ;; no
|                         (org-agenda-start-with-log-mode t)                    
                                             ;; no
|                         (org-agenda-ndays 1)                                  
                                             ;; yes
|                         (org-agenda-skip-function                             
                                             ;; yes
|                          '(org-agenda-skip-entry-if 'notregexp "\\* TODO")))))
|                nil nil)))
`----

-Bernt