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))
(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.