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

Puppet helped me find a bug!

Browse source 
WAIT behavior is now more consistent
This commit is contained in:
Puppet 2022-09-29 17:04:25 -05:00
parent df16c41aed
commit 28256511b3
6 changed files with 20 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/org-config/my-org-agenda-commands.el
View file

@ -258,7 +258,7 @@
(setq org-agenda-custom-commands (setq org-agenda-custom-commands
`(("p" . "\tprod") `(("p" . "\tprod")
,@(agenda-suite "all" "pa" "time") ,@(agenda-suite "all" "pa" "prod")
,@(agenda-suite "school" "ps" "time") ,@(agenda-suite "school" "ps" "time")
,@(agenda-suite "family" "pf" "time") ,@(agenda-suite "family" "pf" "time")
,@(agenda-suite "dev" "d" "dev") ,@(agenda-suite "dev" "d" "dev")

2
lisp/org-project/opr-tasks.el
View file

@ -63,7 +63,7 @@
("WAIT" (if (when-let (d (org-entry-get (point) "SCHEDULED")) ("WAIT" (if (when-let (d (org-entry-get (point) "SCHEDULED"))
(org-time> d (org-matcher-time "<today>"))) (org-time> d (org-matcher-time "<today>")))
'wait-active ;; BENSON_UPDATE_THIS: Change this to active? 'wait-active ;; BENSON_UPDATE_THIS: Change this to active?
'wait)) 'stuck))
(_ (when (or (member state opr/strict-tasks) (_ (when (or (member state opr/strict-tasks)
(and (member state opr/ambiguous) (and (member state opr/ambiguous)
(eq 'task (eq 'task

4
tests/files/meta-stuck-base.org
View file

@ -13,3 +13,7 @@
* META should be stuck even if there are deadlined dones * META should be stuck even if there are deadlined dones
** DONE Deadlined done task ** DONE Deadlined done task
DEADLINE: <2021-06-21 Mon> DEADLINE: <2021-06-21 Mon>
* META should be stuck if there are past-due waiting tasks
** WAIT for this to happen
SCHEDULED: <1970-01-01 Thu>
- State "WAIT" from [2022-09-29 Thu 16:53]

3
tests/files/wait-active.org Normal file
View file

@ -0,0 +1,3 @@
* WAIT Waiting tasks, when they are scheduled in the future, are wait-active
SCHEDULED: <2037-01-01 Thu>

5
tests/files/wait-stuck.org Normal file
View file

@ -0,0 +1,5 @@
* WAIT tasks are stuck if there is no schedule
* WAIT tasks are stuck if their scheduled date has passed
SCHEDULED: <1970-01-01 Thu>

6
tests/my-org-tests.el
View file

@ -67,6 +67,12 @@
(should (null (my/org-agenda-skip-unless-prod-tag))) (should (null (my/org-agenda-skip-unless-prod-tag)))
(should (not (null (my/org-agenda-skip-unless-dev-tag))))) (should (not (null (my/org-agenda-skip-unless-dev-tag)))))
(org-test/parents-should "wait-stuck.org"
(should (eq 'stuck (opr/type-of-task))))
(org-test/parents-should "wait-active.org"
(should (eq 'wait-active (opr/type-of-task))))
(ert-run-tests-interactively t) (ert-run-tests-interactively t)
;; (progn (setq org-disabled-tests nil) (mapcar (lambda (sym) (put sym 'ert--test nil)) (apropos-internal "" #'ert-test-boundp))) ;; (progn (setq org-disabled-tests nil) (mapcar (lambda (sym) (put sym 'ert--test nil)) (apropos-internal "" #'ert-test-boundp)))