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

FIX properly query qtp deadline

This commit is contained in:
Nathan Dwarshuis 2022-05-22 17:58:57 -04:00
parent 225ad0efbc
commit cd66eef37c
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

@ -4495,12 +4495,13 @@ FUTURE-LIMIT in a list."
(ancestry-status (plist-get a :canceled-parent-p))) (ancestry-status (plist-get a :canceled-parent-p)))
(list "Active" (format "Mask Status: %s" ancestry-status)))) (list "Active" (format "Mask Status: %s" ancestry-status))))
(`(:quarterly :active ,dead) (`(:quarterly :active ,p)
(->> (if dead (->> (org-ml-to-trimmed-string dead) (-let (((&plist :deadline dl) p))
(->> (if dl (->> (org-ml-to-trimmed-string dl)
(format "deadline: %s")) (format "deadline: %s"))
"no deadline") "no deadline")
(format "Active with %s") (format "Active with %s")
(list))) (list))))
(`(:quarterly :complete ,comptime) (`(:quarterly :complete ,comptime)
(list (format-comptime "quarterly plan" comptime))) (list (format-comptime "quarterly plan" comptime)))
(`(:weekly :leaf :active ,_) (`(:weekly :leaf :active ,_)