From 9a82ddc69699b933d3d8efba07597456e8ce9ca1 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Thu, 12 May 2022 21:26:32 -0400 Subject: [PATCH] FIX weekly agenda view bugs --- local/lib/org-x/org-x-dag.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el index fcc5c8e..8a5f36a 100644 --- a/local/lib/org-x/org-x-dag.el +++ b/local/lib/org-x/org-x-dag.el @@ -4803,9 +4803,9 @@ In the order of display (-let* ((ns (get-text-property 1 'x-network-status line)) (day (get-text-property 1 'x-day line)) ;; TODO not sure if this will work anymore - ;; (n (car (rassoc day org-x-dag-weekly-tags))) + (day-name (alist-get day org-x-dag-weekly-tags)) ((rank text) - (if (not ns) '(0 "No Netowrk Status") + (if (not ns) '(0 "No Network Status") (-let (((&plist :planned p :committed c) ns)) (cond ((and p c) @@ -4816,7 +4816,7 @@ In the order of display '(2 "Uncommitted | Planned")) (t '(1 "Unfulfilled | Unplanned"))))))) - (format "%d.%d %s (%s)" day rank day text)))))))))) + (format "%d.%d %-10s (%s)" day rank day-name text)))))))))) (defun org-x-dag-agenda-tasks () "Show the tasks agenda view.