From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bernt Hansen Subject: Re: Trouble setting variables in custom agenda command Date: Wed, 03 Jun 2009 15:10:08 -0400 Message-ID: <87my8puoa7.fsf@gollum.intra.norang.ca> References: <20090527020507.GA5071@owl.prv.maya.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MBvqs-0002yH-NN for emacs-orgmode@gnu.org; Wed, 03 Jun 2009 15:10:18 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MBvqp-0002x9-4s for emacs-orgmode@gnu.org; Wed, 03 Jun 2009 15:10:18 -0400 Received: from [199.232.76.173] (port=46418 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MBvqo-0002x5-Sj for emacs-orgmode@gnu.org; Wed, 03 Jun 2009 15:10:14 -0400 Received: from mho-01-ewr.mailhop.org ([204.13.248.71]:59866) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1MBvqo-00064z-Fw for emacs-orgmode@gnu.org; Wed, 03 Jun 2009 15:10:14 -0400 In-Reply-To: (Carsten Dominik's message of "Wed\, 3 Jun 2009 17\:17\:42 +0200") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-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: Carsten Dominik Cc: Christopher DeMarco , emacs-orgmode@gnu.org Carsten Dominik 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