Hi Alan,
Alan Schmitt <[email protected]> writes:
> #+BEGIN_SRC emacs-lisp
> (defun as/skip-future-tasks ()
> "Skip future tasks"
> (save-restriction
> (widen)
> (let ((subtree-end (save-excursion (org-end-of-subtree t))))
> (cond
> ((org-entry-scheduded-in-future-p)
> subtree-end)
> (t
> nil)))))
> #+END_SRC
>
> Any suggestion as how I might write such a predicate?
Coming late so maybe it's not useful anymore, but here is a stab:
(defun org-entry-scheduded-in-future-p ()
(interactive)
(let ((sc (org-get-scheduled-time (point)))
;; (dl (org-get-deadline-time (point)))
;; (ts (org-time-string-to-time (org-entry-get (point) "TIMESTAMP")))
(ct (current-time)))
(time-less-p ct sc)))
--
Bastien
