FIX ensure network status is passed to agenda view properly
This commit is contained in:
parent
cd66eef37c
commit
8fbf8afd10
|
@ -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"))
|
||||||
|
|
Loading…
Reference in New Issue