diff options
| author | Guangxiong Lin <[email protected]> | 2022-03-13 11:45:11 +0800 |
|---|---|---|
| committer | Guangxiong Lin <[email protected]> | 2022-03-13 11:45:11 +0800 |
| commit | 74e491ad860d28512686efd8e631e49f33c0c321 (patch) | |
| tree | 2f571be15325423f5e080ee9b62045a824469eb2 | |
| parent | f23be18fff009ff614152fe3bd83222359b3d7ab (diff) | |
| download | dotfiles-74e491ad860d28512686efd8e631e49f33c0c321.tar.gz dotfiles-74e491ad860d28512686efd8e631e49f33c0c321.tar.bz2 dotfiles-74e491ad860d28512686efd8e631e49f33c0c321.zip | |
Update my definition of stuck projects (emacs)
| -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"))) |