emacs-orgmode
[Top][All Lists]
Advanced

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

[O] Sharing: Agenda skip function to remove future-scheduled items


From: James Harkins
Subject: [O] Sharing: Agenda skip function to remove future-scheduled items
Date: Tue, 14 Oct 2014 12:43:48 +0800
User-agent: Wanderlust/2.15.9 (Almost Unreal) SEMI-EPG/1.14.7 (Harue) FLIM/1.14.9 (Gojō) APEL/10.8 EasyPG/1.0.0 Emacs/23.3 (x86_64-pc-linux-gnu) MULE/6.0 (HANACHIRUSATO)

I often ask questions, or complain about things (or both at the same time), so 
it's nice to share something.

I was making a block agenda, splitting up tasks by location (loosely inspired 
by GTD). But I realized that I didn't want to see items that are scheduled for 
the future, because this is my agenda view for "what tasks are available right 
now." For example, if I have a task to update my grade sheet, it doesn't make 
sense to do that before I've taught the lessons -- so I don't want to see the 
task until it's actually due.

I didn't find a straightforward way to use a property search such as "scheduled 
is nil or scheduled > today," but I did (with some false starts) hack up a skip 
function that seems to do the job. So, in the relevant blocks, I have 
(org-agenda-skip-function 'hjh-skip-future-scheduled), and... perfect.

(I'm sure it's not the most efficient, but I found elisp's time comparisons to 
be confusing, and I didn't want to consider time-of-day either. Performance is 
OK for my use.)

hjh

; agenda skip function to remove items scheduled for a future date
(defun hjh-skip-future-scheduled ()
  "Skip trees that are scheduled in the future"
  (let* ((subtree-end (save-excursion (org-end-of-subtree t)))
         (schedprop (cdr (assoc "SCHEDULED" (org-entry-properties))))
         (schedymd (if(stringp schedprop) (substring schedprop 0 10))))
    (if schedymd
        (if (string< (format-time-string "%Y-%m-%d" (current-time)) schedymd) 
subtree-end nil)
      nil)))





reply via email to

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