Detect parent with SCHEDULED or DEADLINE

[Christophe Schockaert <R3vLibre@citadels.eu>]

Hi fellow org-moders,


I am seeking to list all actions in "NEXT" state that are not planned
yet (scheduled, deadline or planning tag such as WEEK, MONTH, and other
well known :).

I will consider as planned an action which is in a subtree of a parent
action which is itself planned.

That's easy for tags, since I have inheritance, but according to
http://article.gmane.org/gmane.emacs.orgmode/49215, there is no
inheritance for SCHEDULED and DEADLINE properties.

So, I inspired myself from the proposed solution and I wrote the
following function, used in an agenda block :

#+BEGIN_SRC lisp
;; Function to skip scheduled or deadline
(defun r3v/skip-inherited-scheduled-or-deadline ()
  "Skip tasks that inherit from SCHEDULED or DEADLINE"
  (let ((next-headline (save-excursion (or (outline-next-heading) (point-max))))
        (inherited-scheduled (org-entry-get-with-inheritance "SCHEDULED"))
        (inherited-deadline (org-entry-get-with-inheritance "DEADLINE")))
    ;; I will consider the scheduled part if I can make it work with
    ;; deadlines first
    (if (org-not-nil inherited-deadline)
        next-headline
      nil)))

;; Extract from agenda block
    (tags "-WAITING-CANCELLED-WEEK-MONTH-SOMEDAY/NEXT"
          ((org-agenda-overriding-header "Non planned 'NEXT' actions")
           (org-agenda-skip-function 'r3v/skip-inherited-scheduled-or-deadline)
           ;; I don't think this one is needed, but in case I enabled it:
           (org-use-property-inheritance t)
           (org-agenda-todo-ignore-scheduled t)
           (org-agenda-todo-ignore-deadlines t)
           (org-agenda-todo-ignore-with-date t)
           (org-tags-match-list-sublevels t)
           (org-agenda-sorting-strategy
            '(priority-down todo-state-down effort-up category-up))))
#+END_SRC

However, it never detects a deadline, or scheduled property, *even if
assigned on the heading itself*.

I tried that on a very simple subtree :

#+BEGIN_SRC org
* TODO Parent todo
DEADLINE: <2016-04-15 ven.>
:PROPERTIES:
:ParentProp:   ValPar
:END:
** NEXT SubAction
:PROPERTIES:
:SubProp:   Val
:END:
#+END_SRC


I also tried to eval the following expression, manually from the tree :

#+BEGIN_SRC lisp
;;;;; With DEADLINE properties, the behavior acts strangely ;;;;;

(org-entry-get nil "DEADLINE")
;; As expected:
;; - On "Parent todo", returns <2016-04-15 ven.>
;; - On "SubAction", returns nil

(org-entry-get nil "DEADLINE" t)
;; As expected:
;; - On "Parent todo", returns <2016-04-15 ven.>
;; /!\ NOT expected:
;; - On "SubAction", still returns nil

(org-entry-get-with-inheritance "DEADLINE")
;; /!\ NOT expected:
;; - On "Parent todo", returns nil
;; - On "SubAction", returns nil


;;;;; With custom properties, it works as I expect it ;;;;;

(org-entry-get nil "ParentProp")
;; - On "Parent todo", returns "ValPar"
;; - On "SubAction", returns nil

(org-entry-get nil "ParentProp" t)
;; - On "Parent todo", returns "ValPar"
;; - On "SubAction", returns "ValPar"

(org-entry-get-with-inheritance "ParentProp")
;; - On "Parent todo", returns "ValPar"
;; - On "SubAction", returns "ValPar"
#+END_SRC


Globally, org-use-property-inheritance is set to nil.

I currently have Org "8.3.3-43-g0b97a5-elpaplus" from ELPA as reported.

There might also be an easier way I didn't think of to achieve what I
want (list actions not planned), but I would also like to understand
what's wrong or what should be done to make the function work.


Any help will be appreciated :)
Kind Regards,

Christophe



-- 
--------------->  mailto:R3vLibre@citadels.eu
Once it's perfectly aimed, the flying arrow goes straight to its target.
Thus, don't worry when things go right.
There will be enough time to worry about if they go wrong.
Then, it's time to fire a new arrow towards another direction.
Don't sink.  Adapt yourself !  The archer has to shoot accurately and quickly.
[Words of Erenthar, the bowman ranger] <---------------<<<<