FIX ensure network status is passed to agenda view properly

This commit is contained in:
Nathan Dwarshuis 2022-05-22 18:05:32 -04:00
parent cd66eef37c
commit 8fbf8afd10
1 changed files with 11 additions and 5 deletions

View File

@ -3099,11 +3099,14 @@ FUTURE-LIMIT in a list."
((map-ns ((map-ns
(ns) (ns)
(-let (((&plist :planned p :committed c :scheduled-actions s) ns)) (-let (((&plist :planned p :committed c :scheduled-actions s) ns))
(list (-intersection p wkp-ids) c s)))) (list :planned (-intersection p wkp-ids)
:committed c
:scheduled-actions s))))
(org-x-dag-with-ids files (org-x-dag-with-ids files
(pcase (either-from-right (org-x-dag-id->bs it) nil) (pcase (either-from-right (org-x-dag-id->bs it) nil)
(`(:quarterly :active ,dead) (`(:quarterly :active ,p)
(let* ((tags (org-x-dag-id->tags it)) (-let* (((&plist :deadline dead) p)
(tags (org-x-dag-id->tags it))
(date (org-x-dag-quarter-tags-to-date tags))) (date (org-x-dag-quarter-tags-to-date tags)))
(when (org-x-dag-datetime= q-date date) (when (org-x-dag-datetime= q-date date)
;; TODO this network status thing should probably be a feature ;; TODO this network status thing should probably be a feature
@ -4916,7 +4919,10 @@ In the order of display
(-let* ((ns (get-text-property 1 'x-network-status line)) (-let* ((ns (get-text-property 1 'x-network-status line))
((rank text) ((rank text)
(if (not ns) '(0 "No Network Status") (if (not ns) '(0 "No Network Status")
(-let (((p s c) ns)) (-let (((&plist :planned p
:scheduled-actions s
:committed c)
ns))
(cond (cond
((and s c) ((and s c)
'(5 "Committed | Scheduled")) '(5 "Committed | Scheduled"))