diff --git a/init.el b/init.el index 843ccf7..f513547 100644 --- a/init.el +++ b/init.el @@ -778,7 +778,8 @@ With given ARG, display files in `db/important-document-path’." ("FUN" . ?f) ("UNTAGGED" . ?u) (:endgroup . nil) - ("NOTE" . ?n)) + ("NOTE" . ?n) + ("PERIODIC" . ?p)) org-fast-tag-selection-single-key 'expert) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index f15e3db..745ec9f 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -282,8 +282,9 @@ In ~%s~: (org-back-to-heading t)) (while (and (not parent-task) (org-up-heading-safe)) - (let ((tags (nth 5 (org-heading-components)))) - (unless (and tags (member "NOP" (split-string tags ":" t))) + (let ((tags (org-get-tags nil 'local))) + (unless (or (member "NOP" tags) + (member "PERIODIC" tags)) (setq parent-task (point))))) parent-task))))