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

View File

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