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

FIX use actual goal title when grouping tasks by goals

This commit is contained in:
Nathan Dwarshuis 2022-02-20 13:01:50 -05:00
parent 99117cd9f2
commit 6f40699e7b
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -931,7 +931,7 @@ valid keyword or none of its parents have valid keywords."
(setq this-point (car (match-data)) (setq this-point (car (match-data))
this-level (length (match-string 1)) this-level (length (match-string 1))
this-todo (match-string 2) this-todo (match-string 2)
this-title (-if-let (s (match-string 3)) s "") this-title (-if-let (s (match-string 3)) (s-trim s) "")
this-tags (-some-> (match-string-no-properties 4) this-tags (-some-> (match-string-no-properties 4)
(split-string ":" t)) (split-string ":" t))
this-key nil) this-key nil)
@ -2309,8 +2309,9 @@ FUTURE-LIMIT in a list."
(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 ;; TODO this is the literal ID, I want the headline text
(substring-no-properties i) (->> (org-x-dag-id->title i)
"Unlinked"))))))))) (substring-no-properties))
"0. Unlinked")))))))))
(provide 'org-x-dag) (provide 'org-x-dag)
;;; org-x-dag.el ends here ;;; org-x-dag.el ends here