pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Tag-based behavior changes?

Browse source
This commit is contained in:
Benson Chu 2022-10-13 06:25:41 -05:00
parent e9c9aad514
commit 5ebecab01c
1 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/org-project/opr-projects.el
View file

@ -105,14 +105,18 @@
(if (when-let (s (org-entry-get (point) "SCHEDULED"))
(org-time> s (org-matcher-time "<now>")))
'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