From: Matt Lundin <mdl@imapmail.org>
To: Karl Fogel <kfogel@red-bean.com>
Cc: Org Mode <emacs-orgmode@gnu.org>
Subject: Re: Displaying deadline datestamp in todo agenda list?
Date: Wed, 25 May 2016 13:33:44 -0500 [thread overview]
Message-ID: <87h9dmrnqv.fsf@fastmail.fm> (raw)
In-Reply-To: <87bn3wo306.fsf@red-bean.com> (Karl Fogel's message of "Mon, 23 May 2016 16:53:13 -0500")
Karl Fogel <kfogel@red-bean.com> writes:
> 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))
>
[My apologies for the previous email: I accidentally had format=flowed
enabled.]
Here's a working implementation, using org-agenda-add-custom-command and
the built-in mechanism for skipping non-deadline entries (you can get
rid of ots-org-entry-skip-non-deadline). I also added some justification
(the -22) to accommodate my rather long timestamp strings. Adjust as
needed:
(org-add-agenda-custom-command
'("d" "Deadlines and scheduled work" alltodo ""
((org-agenda-skip-function '(org-agenda-skip-entry-if 'notdeadline))
(org-agenda-prefix-format '((todo . " %i %-22(org-entry-get nil \"DEADLINE\") %-12:c %s")))
(org-agenda-sorting-strategy '(deadline-up)))))
Matt
next prev parent reply other threads:[~2016-05-25 18:34 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
2016-05-25 17:56 ` Matt Lundin
2016-05-25 18:33 ` Matt Lundin [this message]
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=87h9dmrnqv.fsf@fastmail.fm \
--to=mdl@imapmail.org \
--cc=emacs-orgmode@gnu.org \
--cc=kfogel@red-bean.com \
/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).