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

FIX typos

This commit is contained in:
Nathan Dwarshuis 2022-04-19 23:54:31 -04:00
parent 3988971575
commit 0cf3695f06
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1354,16 +1354,16 @@ used for optimization."
((get-planned ((get-planned
(htbl ids) (htbl ids)
(--mapcat (org-x-dag-ht-get-maybe htbl it :planned) ids))) (--mapcat (org-x-dag-ht-get-maybe htbl it :planned) ids)))
(-let (((&alist :endpoint ht-e (-let* (((&alist :endpoint ht-e
:lifetime ht-l :lifetime ht-l
:survival ht-s :survival ht-s
:quarterly ht-q) :quarterly ht-q)
ns) ns)
(is-committed-leaf-p (is-committed-leaf-p
(lambda (adjlist id) (lambda (adjlist id)
(if (not (org-x-dag-ht-get-maybe ht-e id :committed)) (if (not (org-x-dag-ht-get-maybe ht-e id :committed))
(either :left "Linked to non-committed endpoint node") (either :left "Linked to non-committed endpoint node")
(org-x-dag-ns-is-leaf-p adjlist id))))) (org-x-dag-ns-is-leaf-p adjlist id)))))
(org-x-dag-ns-with-valid ns adjlist :action links (org-x-dag-ns-with-valid ns adjlist :action links
`((:survival org-x-dag-ns-is-leaf-p) `((:survival org-x-dag-ns-is-leaf-p)
(:endpoint ,is-committed-leaf-p) (:endpoint ,is-committed-leaf-p)
@ -1378,7 +1378,7 @@ used for optimization."
(either :right `(:committed ,s :survivalp t))) (either :right `(:committed ,s :survivalp t)))
(t (t
(either :right `(:committed (,@e ,@l) :survivalp nil)))) (either :right `(:committed (,@e ,@l) :survivalp nil))))
(ht-set this-h id this-ns)) (ht-set this-h id))
(when (-some->> (org-x-dag-adjlist-id-hl-meta-prop adjlist :planning id) (when (-some->> (org-x-dag-adjlist-id-hl-meta-prop adjlist :planning id)
(org-ml-get-property :scheduled)) (org-ml-get-property :scheduled))
(->> (-union (get-planned ht-e e) (get-planned ht-l l)) (->> (-union (get-planned ht-e e) (get-planned ht-l l))
@ -1400,7 +1400,7 @@ used for optimization."
(org-x-dag-ht-add-links id htbl :planned))) (org-x-dag-ht-add-links id htbl :planned)))
(get-planned-ht (get-planned-ht
(htbl id) (htbl id)
(--mapcat (org-x-dag-ht-get-maybe ht-e it :planned) c)) (--mapcat (org-x-dag-ht-get-maybe htbl it :planned) c))
(get-sched (get-sched
(id) (id)
(-some->> (org-x-dag-adjlist-id-hl-meta-prop adjlist :planning id) (-some->> (org-x-dag-adjlist-id-hl-meta-prop adjlist :planning id)