From 57e743c0602ac6a50ed7d152c30ad5f58b4ea3d1 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Wed, 20 Apr 2022 20:40:56 -0400 Subject: [PATCH] FIX actually assign something to the dlp network table (mildly imperative) --- local/lib/org-x/org-x-dag.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el index f74d79c..d0f5c1d 100644 --- a/local/lib/org-x/org-x-dag.el +++ b/local/lib/org-x/org-x-dag.el @@ -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.