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

FIX actually assign something to the dlp network table (mildly imperative)

This commit is contained in:
Nathan Dwarshuis 2022-04-20 20:40:56 -04:00
parent 49c8d1d134
commit 57e743c060
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

@ -1438,13 +1438,15 @@ used for optimization."
(org-x-dag-ns-with-valid ns adjlist :daily links
`((:action ,is-valid-action))
(lambda (id this-h res)
(-let (((&alist :action a) res))
(org-x-dag-ht-add-links id ht-a :planned (-map #'car a))
(-let (((&alist :weekly w :quarterly q :survival s)
(--group-by (nth 1 it) a)))
(add-planned id ht-w w)
(add-planned id ht-q q)
(add-planned id ht-s s))))))))
(-let* (((&alist :action a) res)
((&alist :weekly w :quarterly q :survival s)
(--group-by (nth 1 it) a))
(a-ids (-map #'car a)))
(org-x-dag-ht-add-links id ht-a :planned a-ids)
(ht-set this-h id (either :right `(:committed ,a-ids)))
(add-planned id ht-w w)
(add-planned id ht-q q)
(add-planned id ht-s s)))))))
(defun org-x-dag-ht-map-down (adjlist h-key ns get-fun set-fun def-fun)
"Map a network status of a node to its descendents.