From cd66eef37ca44b2670af2314dcef6fb53a0ad857 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Sun, 22 May 2022 17:58:57 -0400 Subject: [PATCH] FIX properly query qtp deadline --- local/lib/org-x/org-x-dag.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el index f87e68a..e8074e8 100644 --- a/local/lib/org-x/org-x-dag.el +++ b/local/lib/org-x/org-x-dag.el @@ -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 ,_)