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

REF make name less confusing

This commit is contained in:
Nathan Dwarshuis 2022-03-25 23:33:55 -04:00
parent 1516ad0fbc
commit 35a29ad1b4
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
local/lib/dag/dag.el
View File

@ -379,14 +379,13 @@ ZS."
(!cdr to-insert*)) (!cdr to-insert*))
(list adjlist (dag--prune-broken-edges broken-ht)))) (list adjlist (dag--prune-broken-edges broken-ht))))
(defun dag-alist-to-dag (parent-adjlist) (defun dag-plist-to-dag (parent-adjlist)
"Convert PARENT-ADJLIST to a DAG. "Convert PARENT-ADJLIST to a DAG.
PARENT-ADJLIST is an alist where each member represents a PARENT-ADJLIST is a list of plists where each member represents a
node in which the car is a identifying the node and the cdr is a node in which the :id is the node ID, :parents are the ID's of
list of other keys representing edges to the parents of the car. the parents of the ID in :id, and :node-meta is arbitrary
The set of all car keys must be equivalent to the set of all cdr metadata associated with the node.
keys.
Return a DAG object." Return a DAG object."
(-let (((a b) (dag--alist-to-ht parent-adjlist))) (-let (((a b) (dag--alist-to-ht parent-adjlist)))

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

@ -2060,7 +2060,7 @@ removed from, added to, or edited within the DAG respectively."
(defun org-x-dag-update-dag (to-insert to-remove) (defun org-x-dag-update-dag (to-insert to-remove)
(let* ((dag (org-x-dag->dag)) (let* ((dag (org-x-dag->dag))
(dag* (if (dag-is-empty-p dag) (dag-alist-to-dag to-insert) (dag* (if (dag-is-empty-p dag) (dag-plist-to-dag to-insert)
(dag-edit-nodes to-remove to-insert dag)))) (dag-edit-nodes to-remove to-insert dag))))
(plist-put org-x-dag :dag dag*))) (plist-put org-x-dag :dag dag*)))