From: Karl Fogel <kfogel@red-bean.com>
To: Org Mode <emacs-orgmode@gnu.org>
Subject: Re: Displaying deadline datestamp in todo agenda list?
Date: Mon, 23 May 2016 16:53:13 -0500 [thread overview]
Message-ID: <87bn3wo306.fsf@red-bean.com> (raw)
In-Reply-To: <87oa7wu1si.fsf@red-bean.com>
Sigh, sorry. I messed up one important background fact in my original post, by mistakenly presenting these as the example Org Mode entries I was working with:
> * STARTED <2016-05-23> Org Mode scheduling test KIWI.
> DEADLINE: <2016-05-23>
>
> * TODO <2016-05-25> Org Mode scheduling test MELON.
> DEADLINE: <2016-05-25>
>
> * STARTED <2016-05-24> Org Mode scheduling test LIME.
> DEADLINE: <2016-05-24>
>
> * STARTED <2016-06-16> Org Mode scheduling test TARDIGRADE.
> SCHEDULED: <2016-05-23> DEADLINE: <2016-06-16>
The above is wrong (I copied-and-pasted from a later incarnation that included redundant timestamps). The block should look like below, i.e., *without* datestamps in the todo headings:
* STARTED Org Mode scheduling test KIWI.
DEADLINE: <2016-05-23>
* TODO Org Mode scheduling test MELON.
DEADLINE: <2016-05-25>
* STARTED Org Mode scheduling test LIME.
DEADLINE: <2016-05-24>
* STARTED Org Mode scheduling test TARDIGRADE.
SCHEDULED: <2016-05-23> DEADLINE: <2016-06-16>
The rest of the post is as before, and I'll just reproduce it here (with the mistake corrected) in case it's easier for people to follow up to:
-----------------------------------
Original post, but with correction:
-----------------------------------
I'm using the DEADLINE keyword with TODO entries, and I'd like the DEADLINE date to be displayed as a datestamp next to each TODO item, when I list deadlined todo items. In other words, I don't want to have to duplicate the DEADLINE timestamp as a timestamp on the TODO line itself in my Org Mode file -- since the timestamp is already present as the value of the DEADLINE keyword, can't Org Mode just use it?
Assume I have these Org Mode entries:
* STARTED Org Mode scheduling test KIWI.
DEADLINE: <2016-05-23>
* TODO Org Mode scheduling test MELON.
DEADLINE: <2016-05-25>
* STARTED Org Mode scheduling test LIME.
DEADLINE: <2016-05-24>
* STARTED Org Mode scheduling test TARDIGRADE.
SCHEDULED: <2016-05-23> DEADLINE: <2016-06-16>
And I have this custom code to bind "d" to show just the TODO items that have deadlines, in my `org-agenda' keymap:
(defun ots-org-entry-skip-non-deadline ()
"Return non-nil iff this org entry does not have the DEADLINE keyword."
(if (not (org-entry-get (point) "DEADLINE"))
(progn (outline-next-heading) (1- (point)))))
(defvar ots-org-agenda-custom-commands-updated-p nil
"If non-nil, we've already updated `org-agenda-custom-commands',
so don't do it again.")
;; TBD: Oh, could use `org-add-agenda-custom-command' to do this.
(unless ots-org-agenda-custom-commands-updated-p
(unless (boundp 'org-agenda-custom-commands)
(setq org-agenda-custom-commands ()))
(setq org-agenda-custom-commands
(cons '("d" "Deadlines and scheduled work" alltodo ""
((org-agenda-skip-function 'ots-org-entry-skip-non-deadline)
;; Add code here to control deadline date display?
(org-agenda-prefix-format '((agenda . " %i %-12:c%?-12t% s")
(timeline . " % s")
(todo . " %i %-12:c %s")
(tags . " %i %-12:c")
(search . " %i %-12:c")))
(org-agenda-sorting-strategy '(deadline-up))))
org-agenda-custom-commands))
(setq ots-org-agenda-custom-commands-updated-p t))
Now if I do `M-x org-agenda' and then type `d', the four items are displayed like this:
Global list of TODO items of type: ALL
Available with ‘N r’: (0)[ALL] (1)TODO (2)STARTED (3)DONE
OTS: STARTED Org Mode scheduling test KIWI.
OTS: STARTED Org Mode scheduling test LIME.
OTS: TODO Org Mode scheduling test MELON.
OTS: STARTED Org Mode scheduling test TARDIGRADE.
But what I want is for each to show its corresponding DEADLINE datestamp, say like this:
Global list of TODO items of type: ALL
Available with ‘N r’: (0)[ALL] (1)TODO (2)STARTED (3)DONE
OTS: <2016-05-23> STARTED Org Mode scheduling test KIWI.
OTS: <2016-05-24> STARTED Org Mode scheduling test LIME.
OTS: <2016-05-25> TODO Org Mode scheduling test MELON.
OTS: <2016-06-16> STARTED Org Mode scheduling test TARDIGRADE.
I haven't found any way to make that happen. After reading various Info pages, I started digging into the Org Mode code. Now I'm looking at `org-agenda-get-todos' in org-agenda.el, which calls `org-agenda-format-item', passing "" as the first argument (EXTRA). The doc string for `org-agenda-format-item' says:
"EXTRA must be a string to replace the `%s' specifier in the prefix format."
I thought that maybe passing (org-agenda-get-deadlines) there instead of "" would supply `org-agenda-format-item' with the information it needs, but alas, that doesn't work and in fact the third call or so of `org-agenda-get-deadlines' raises an error. (The doc strings for `org-agenda-get-todos and `org-agenda-get-deadlines' don't say all that much; it's quite possible I'm misunderstanding what the latter is for.)
However, if I pass a hardcoded non-empty value of EXTRA to the call to `org-agenda-format-item', it works. That is, if I pass the hardcoded string "DEADLINE: <2016-05-24>" as the EXTRA argument in `org-agenda-get-todos', thus changing this line:
txt (org-agenda-format-item "" txt level category tags t)
to this:
txt (org-agenda-format-item "FISH" txt level category tags t)
...I get this result:
Global list of TODO items of type: ALL
Available with ‘N r’: (0)[ALL] (1)TODO (2)STARTED (3)DONE
OTS: FISH STARTED Org Mode scheduling test KIWI.
OTS: FISH STARTED Org Mode scheduling test LIME.
OTS: FISH TODO Org Mode scheduling test MELON.
OTS: FISH STARTED Org Mode scheduling test TARDIGRADE.
Okay, that's roughly what I expected, given that in my custom setting of `org-agenda-custom-commands', I set `org-agenda-prefix-format' so that the `todo' entry's value has "%s" at the end.
So this looks promising. But now the question is, what is the Right Way to fetch the value of the DEADLINE keyword for the given TODO entry, at that point in the code, so I can pass that instead of "FISH"? I had thought `org-agenda-get-deadlines' might do it, but that doesn't work.
Or am I going about this all wrong? Hints welcome. I hope it's clear what my goal is here, and I think it's a goal that others who use the DEADLINE keyword for TODO items might share. This would be a great way to manage deadlines, if it worked :-).
Best regards,
-Karl
next prev parent reply other threads:[~2016-05-23 21:53 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-05-23 17:06 Displaying deadline datestamp in todo agenda list? Karl Fogel
2016-05-23 21:53 ` Karl Fogel [this message]
2016-05-25 17:56 ` Matt Lundin
2016-05-25 18:33 ` Matt Lundin
2016-05-25 23:23 ` Karl Fogel
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87bn3wo306.fsf@red-bean.com \
--to=kfogel@red-bean.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).