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

12
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 (org-x-dag-ns-with-valid ns adjlist :daily links
`((:action ,is-valid-action)) `((:action ,is-valid-action))
(lambda (id this-h res) (lambda (id this-h res)
(-let (((&alist :action a) res)) (-let* (((&alist :action a) res)
(org-x-dag-ht-add-links id ht-a :planned (-map #'car a)) ((&alist :weekly w :quarterly q :survival s)
(-let (((&alist :weekly w :quarterly q :survival s) (--group-by (nth 1 it) a))
(--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-w w)
(add-planned id ht-q q) (add-planned id ht-q q)
(add-planned id ht-s s)))))))) (add-planned id ht-s s)))))))
(defun org-x-dag-ht-map-down (adjlist h-key ns get-fun set-fun def-fun) (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. "Map a network status of a node to its descendents.