From 6f40699e7b505853e8c8b60fb73dee32b61b80a3 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Sun, 20 Feb 2022 13:01:50 -0500 Subject: [PATCH] FIX use actual goal title when grouping tasks by goals --- local/lib/org-x/org-x-dag.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el index 6eebf81..3e77958 100644 --- a/local/lib/org-x/org-x-dag.el +++ b/local/lib/org-x/org-x-dag.el @@ -931,7 +931,7 @@ valid keyword or none of its parents have valid keywords." (setq this-point (car (match-data)) this-level (length (match-string 1)) 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) (split-string ":" t)) this-key nil) @@ -2309,8 +2309,9 @@ FUTURE-LIMIT in a list." (lambda (line) (-if-let (i (get-text-property 1 'x-goal-id line)) ;; TODO this is the literal ID, I want the headline text - (substring-no-properties i) - "Unlinked"))))))))) + (->> (org-x-dag-id->title i) + (substring-no-properties)) + "0. Unlinked"))))))))) (provide 'org-x-dag) ;;; org-x-dag.el ends here