Agenda view: do not display tasks of projects scheduled in the future

Agenda view: do not display tasks of projects scheduled in the future

[Alan Schmitt]

Hello,

I would like to tweak my agenda views such that tasks belonging to
projects scheduled in the future are not shown. I've searched a bit
about this and I found out that deadlines and schedules are not
inherited, so that approach would not work. I'm thus trying to tweak a
custom skip function to jump over any headline scheduled for the future.

I looked into org.el but could not find a way to write a predicate
"org-entry-scheduled-in-future-p" that is true when an entry is
scheduled in the future. I would use it for the following skipping
command:

#+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?

Thanks,

Alan

Re: Agenda view: do not display tasks of projects scheduled in the future

[Bastien]

Hi Alan,

Alan Schmitt <alan.schmitt@polytechnique.org> 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

Re: Agenda view: do not display tasks of projects scheduled in the future

[Alan Schmitt]

Hi Bastien,

Bastien <bzg@gnu.org> writes:

> Hi Alan,
>
> Alan Schmitt <alan.schmitt@polytechnique.org> 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)))

This was most helpful, thank you. This is what I finally came up with (I
just added a check that there was a scheduled time):

  (defun org-entry-scheduled-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)))
      (and sc (time-less-p ct sc))))

By the way, is there a place where the functions such as
"org-get-scheduled-time" are documented? Or does one have to look at the
source?

Thanks again,

Alan

Re: Agenda view: do not display tasks of projects scheduled in the future

[Bastien]

Hi Alan,

Alan Schmitt <alan.schmitt@polytechnique.org> writes:

> By the way, is there a place where the functions such as
> "org-get-scheduled-time" are documented? Or does one have to look at the
> source?

Commands (i.e. interactive functions) are documented here:
http://orgmode.org/worg/doc.html#commands

but for functions you'll have to look at the source, yes.

-- 
 Bastien