From 5ebecab01cef2c3ba2adbc97823dba4f336fed5c Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Thu, 13 Oct 2022 06:25:41 -0500 Subject: [PATCH] Tag-based behavior changes? --- lisp/org-project/opr-projects.el | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/lisp/org-project/opr-projects.el b/lisp/org-project/opr-projects.el index d2f2595..1d653a6 100644 --- a/lisp/org-project/opr-projects.el +++ b/lisp/org-project/opr-projects.el @@ -105,14 +105,18 @@ (if (when-let (s (org-entry-get (point) "SCHEDULED")) (org-time> s (org-matcher-time ""))) 'active - (pcase state - ("EMPTY" (empty-status?)) - ("SEQ" (seq-status?)) - ("META" (meta-status? greedy-active)) - ("ONE" (when (eq 'project (opr/ambiguous-task-or-project)) - (seq-status?))) - ("TODO" (when (eq 'project (opr/ambiguous-task-or-project)) - (seq-status?))))))))))) + (let ((status (pcase state + ("EMPTY" (empty-status?)) + ("SEQ" (seq-status?)) + ("META" (meta-status? greedy-active)) + ("ONE" (when (eq 'project (opr/ambiguous-task-or-project)) + (seq-status?))) + ("TODO" (when (eq 'project (opr/ambiguous-task-or-project)) + (seq-status?)))))) + (if (and (member "invis_when_active" (org-get-tags)) + (eq status 'active)) + 'invis + status))))))))) (provide 'opr-projects) ;;; opr-projects.el ends here