ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH update iterator itemizer

This commit is contained in:
Nathan Dwarshuis 2022-06-05 12:52:09 -04:00
parent cc1b881d40
commit 1d3b70ac5b
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
local/lib/org-x/org-x-dag.el
View File

@ -3123,9 +3123,10 @@ FUTURE-LIMIT in a list."
((get-status ((get-status
(data) (data)
(pcase data (pcase data
(`(:iter-empty) :empty) (`(:iter-empty :empty-complete ,_) :complete)
(`(:iter-active ,data) (`(:iter-empty :empty-active ,_) :empty)
(-let* (((&plist :dead d :sched s) data) (`(:iter-nonempty :nonempty-active ,data)
(-let* (((&plist :dead d :leading-sched s) data)
(d* (-some->> d (org-x-dag-timestamp-to-epoch))) (d* (-some->> d (org-x-dag-timestamp-to-epoch)))
(s* (-some->> s (org-x-dag-timestamp-to-epoch)))) (s* (-some->> s (org-x-dag-timestamp-to-epoch))))
(-if-let (epoch (if (and d* s*) (min d* s*) (or s* d*))) (-if-let (epoch (if (and d* s*) (min d* s*) (or s* d*)))
@ -3134,7 +3135,7 @@ FUTURE-LIMIT in a list."
:active :active
:refill) :refill)
:unknown))) :unknown)))
(`(:iter-complete ,_) :complete)))) (`(:iter-nonempty :nonempty-complete ,_) :complete))))
(org-x-dag-with-unmasked-action-ids files (org-x-dag-with-unmasked-action-ids files
(pcase it-local (pcase it-local
(`(:sp-iter . ,status-data) (`(:sp-iter . ,status-data)
@ -5169,7 +5170,7 @@ review phase)"
(let ((s (get-text-property 1 'x-status line))) (let ((s (get-text-property 1 'x-status line)))
(pcase s (pcase s
(:unknown "0. Unknown") (:unknown "0. Unknown")
(:complete "1. Refill") (:complete "1. Complete")
(:empty "2. Empty") (:empty "2. Empty")
(:refill "3. Refill") (:refill "3. Refill")
(:active "4. Active"))))))))))) (:active "4. Active")))))))))))