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

ADD project goal scanner

This commit is contained in:
Nathan Dwarshuis 2022-02-21 18:57:24 -05:00
parent d895b38ec0
commit b121becde5
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1687,6 +1687,18 @@ FUTURE-LIMIT in a list."
(not (org-x-dag-id->is-done-p it))) (not (org-x-dag-id->is-done-p it)))
(format-key it-category it)))) (format-key it-category it))))
(defun org-x-dag-scan-projects-with-goals ()
(cl-flet
((split-parent-goals
(s)
(let ((id (get-text-property 1 'x-id s)))
(-if-let (goal-ids (org-x-dag-id->goals id))
(--map (org-add-props s nil 'x-goal-id it) goal-ids)
(list (org-add-props s nil 'x-goal-id nil))))))
(->> (org-x-dag-scan-projects)
(--filter (org-x-dag-id->is-toplevel-p (get-text-property 1 'x-id it)))
(-mapcat #'split-parent-goals))))
(defun org-x-dag-scan-iterators () (defun org-x-dag-scan-iterators ()
(cl-flet* (cl-flet*
((format-result ((format-result
@ -2308,7 +2320,6 @@ FUTURE-LIMIT in a list."
'((:auto-map '((:auto-map
(lambda (line) (lambda (line)
(-if-let (i (get-text-property 1 'x-goal-id line)) (-if-let (i (get-text-property 1 'x-goal-id line))
;; TODO this is the literal ID, I want the headline text
(->> (org-x-dag-id->title i) (->> (org-x-dag-id->title i)
(substring-no-properties)) (substring-no-properties))
"0. Unlinked"))))))))) "0. Unlinked")))))))))