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

FIX weekly agenda view bugs

This commit is contained in:
Nathan Dwarshuis 2022-05-12 21:26:32 -04:00
parent 45aed1a3d3
commit 9a82ddc696
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
local/lib/org-x/org-x-dag.el
View File

@ -4803,9 +4803,9 @@ In the order of display
(-let* ((ns (get-text-property 1 'x-network-status line)) (-let* ((ns (get-text-property 1 'x-network-status line))
(day (get-text-property 1 'x-day line)) (day (get-text-property 1 'x-day line))
;; TODO not sure if this will work anymore ;; 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) ((rank text)
(if (not ns) '(0 "No Netowrk Status") (if (not ns) '(0 "No Network Status")
(-let (((&plist :planned p :committed c) ns)) (-let (((&plist :planned p :committed c) ns))
(cond (cond
((and p c) ((and p c)
@ -4816,7 +4816,7 @@ In the order of display
'(2 "Uncommitted | Planned")) '(2 "Uncommitted | Planned"))
(t (t
'(1 "Unfulfilled | Unplanned"))))))) '(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 () (defun org-x-dag-agenda-tasks ()
"Show the tasks agenda view. "Show the tasks agenda view.