FIX properly query qtp deadline
This commit is contained in:
parent
225ad0efbc
commit
cd66eef37c
|
@ -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)))
|
||||
(list))))
|
||||
(`(:quarterly :complete ,comptime)
|
||||
(list (format-comptime "quarterly plan" comptime)))
|
||||
(`(:weekly :leaf :active ,_)
|
||||
|
|
Loading…
Reference in New Issue