emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] Displaying deadline datestamp in todo agenda list?


From: Matt Lundin
Subject: Re: [O] Displaying deadline datestamp in todo agenda list?
Date: Wed, 25 May 2016 12:56:05 -0500
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.1.50 (gnu/linux)

Karl Fogel <address@hidden> 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)) 

Hi Karl,

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]