FIX use actual goal title when grouping tasks by goals
This commit is contained in:
parent
99117cd9f2
commit
6f40699e7b
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue