REF make name less confusing
This commit is contained in:
parent
1516ad0fbc
commit
35a29ad1b4
|
@ -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)))
|
||||||
|
|
|
@ -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*)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue