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

FIX compile errors

This commit is contained in:
Nathan Dwarshuis 2022-04-26 23:11:42 -04:00
parent a11da5061d
commit 21449ad792
1 changed files with 6 additions and 6 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

@ -644,10 +644,10 @@ used for optimization."
(let ((it-comptime (complete-time ,c nil))) (let ((it-comptime (complete-time ,c nil)))
,done-form)) ,done-form))
(t (t
(org-x-dag-left "Closed %s must be marked CANC/DONE" type-name))) (org-x-dag-left "Closed %s must be marked CANC/DONE" ,type-name)))
(cond (cond
((member it-todo org-x-done-keywords) ((member it-todo org-x-done-keywords)
(org-x-dag-left "DONE/CANC %s must be closed" type-name)) (org-x-dag-left "DONE/CANC %s must be closed" ,type-name))
(t (t
,open-form))))))) ,open-form)))))))
@ -2648,7 +2648,7 @@ FUTURE-LIMIT in a list."
(defmacro org-x-dag-with-unmasked-action-ids (files id-form) (defmacro org-x-dag-with-unmasked-action-ids (files id-form)
(declare (indent 1)) (declare (indent 1))
`(org-x-dag-with-ids files `(org-x-dag-with-ids ,files
(pcase (either-from-right (org-x-dag-id->bs it) nil) (pcase (either-from-right (org-x-dag-id->bs it) nil)
(`(:action . ,bs) (`(:action . ,bs)
(-let (((&plist :local it-local :ancestry a) bs)) (-let (((&plist :local it-local :ancestry a) bs))
@ -2773,7 +2773,7 @@ FUTURE-LIMIT in a list."
(org-x-dag-with-ids files (org-x-dag-with-ids files
(pcase (either-from-right (org-x-dag-id->bs it) nil) (pcase (either-from-right (org-x-dag-id->bs it) nil)
(`(:lifetime . ,bs) (`(:lifetime . ,bs)
(-let (((&plist-get :ancestry a :local l) bs)) (-let (((&plist :ancestry a :local l) bs))
(when (and (not (plist-get a :canceled-parent-p)) (eq l :active)) (when (and (not (plist-get a :canceled-parent-p)) (eq l :active))
(-when-let (ns (org-x-dag-id->ns it)) (-when-let (ns (org-x-dag-id->ns it))
(-let (((&plist :planned p :fulfilled f) (-let (((&plist :planned p :fulfilled f)
@ -2781,7 +2781,7 @@ FUTURE-LIMIT in a list."
(mk-item it :lifetime p f nil)))))) (mk-item it :lifetime p f nil))))))
;; TODO need to grab deadlines from the network status (when done) ;; TODO need to grab deadlines from the network status (when done)
(`(:endpoint . ,bs) (`(:endpoint . ,bs)
(-let (((&plist-get :ancestry a :local l) bs)) (-let (((&plist :ancestry a :local l) bs))
(when (and (not (plist-get a :canceled-parent-p)) (eq l :active)) (when (and (not (plist-get a :canceled-parent-p)) (eq l :active))
(-when-let (ns (org-x-dag-id->ns it)) (-when-let (ns (org-x-dag-id->ns it))
(-let (((&plist :planned p :fulfilled f :committed c) (-let (((&plist :planned p :fulfilled f :committed c)
@ -4041,7 +4041,7 @@ FUTURE-LIMIT in a list."
;; "TODO" ;; "TODO"
(`(,(or :lifetime :survival) . ,d) (`(,(or :lifetime :survival) . ,d)
(-let* (((&plist :ancestry a :local _) d) (-let* (((&plist :ancestry a :local _) d)
(ancestry-status (if (plist-get a :canceled-parent-p)))) (ancestry-status (plist-get a :canceled-parent-p)))
(list "Active" (format "Mask Status: %s" ancestry-status)))) (list "Active" (format "Mask Status: %s" ancestry-status))))
(`(:quarterly :active ,dead) (`(:quarterly :active ,dead)