diff options
| -rw-r--r-- | .emacs.d/lisp/init-org.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/.emacs.d/lisp/init-org.el b/.emacs.d/lisp/init-org.el index 2e27d34..3efe427 100644 --- a/.emacs.d/lisp/init-org.el +++ b/.emacs.d/lisp/init-org.el @@ -11,8 +11,11 @@ "A block showing weekly schedule.") (defvar gx/org-agenda-block--stuck-projects - '(org-ql-block '(and (tags "PROJECT") - (not (or (done) (todo "SOMEDAY"))) + '(org-ql-block '(and (or (tags "PROJECT") + (not (ancestors (todo)))) + (todo) + (not (or (done) (todo "SOMEDAY") + (todo "NEXT") (scheduled))) (not (descendants (todo "NEXT"))) (not (descendants (scheduled)))) ((org-ql-block-header "Stuck Projects"))) |