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

FIX use the right date

This commit is contained in:
Nathan Dwarshuis 2022-04-20 20:07:06 -04:00
parent 2d16f347cd
commit 1f0035b995
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1571,10 +1571,10 @@ DEF-FUN and the output from GET-FUN (type :: a -> NS)."
(defun org-x-dag-get-network-status (sel-date adjlist links) (defun org-x-dag-get-network-status (sel-date adjlist links)
(cl-flet (cl-flet
((cur-links ((cur-links
(tag-fun links) (tag-fun date links)
(--filter (equal sel-date (->> (car it) (--filter (equal date (->> (car it)
(org-x-dag-adjlist-id-tags adjlist) (org-x-dag-adjlist-id-tags adjlist)
(funcall tag-fun))) (funcall tag-fun)))
links))) links)))
(-let* ((ns (->> (list :action (-let* ((ns (->> (list :action
:endpoint :endpoint
@ -1601,9 +1601,11 @@ DEF-FUN and the output from GET-FUN (type :: a -> NS)."
;; it is on the current plan, and I don't need to do any downstream ;; it is on the current plan, and I don't need to do any downstream
;; processing to distinguish between current and not current. Bonus, ;; processing to distinguish between current and not current. Bonus,
;; this is much faster (less stuff to deal with) ;; this is much faster (less stuff to deal with)
(cur-q (cur-links #'org-x-dag-quarter-tags-to-date q)) (q-date (org-x-dag-date-to-quarter-start sel-date))
(cur-w (cur-links #'org-x-dag-weekly-tags-to-date w)) (w-date (org-x-dag-date-to-week-start sel-date))
(cur-d (cur-links #'org-x-dag-daily-tags-to-date d))) (cur-q (cur-links #'org-x-dag-quarter-tags-to-date q-date q))
(cur-w (cur-links #'org-x-dag-weekly-tags-to-date w-date w))
(cur-d (cur-links #'org-x-dag-daily-tags-to-date sel-date d)))
;; add all links to the network status object (ew side effects) ;; add all links to the network status object (ew side effects)
(org-x-dag-ns-ltg adjlist l ns) (org-x-dag-ns-ltg adjlist l ns)
(org-x-dag-ns-svg adjlist s ns) (org-x-dag-ns-svg adjlist s ns)