[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)))
- [O] Sharing: Agenda skip function to remove future-scheduled items,
James Harkins <=