Don't output colons without labels
If we pull down a story without labels, don't format the :: for those labels
This commit is contained in:
parent
9d83cb22a1
commit
96a3e08ff0
1 changed files with 7 additions and 6 deletions
|
@ -964,7 +964,7 @@ which labels to set."
|
|||
(defun org-clubhouse--story-to-headline-text (level story)
|
||||
(let ((story-id (alist-get 'id story)))
|
||||
(format
|
||||
"%s %s %s :%s:
|
||||
"%s %s %s %s
|
||||
:PROPERTIES:
|
||||
:clubhouse-id: %s
|
||||
:END:
|
||||
|
@ -975,11 +975,12 @@ which labels to set."
|
|||
(org-clubhouse-workflow-state-id-to-todo-keyword
|
||||
(alist-get 'workflow_state_id story))
|
||||
(alist-get 'name story)
|
||||
(->> story
|
||||
(if-let ((labels (->> story
|
||||
(alist-get 'labels)
|
||||
->list
|
||||
(-map (apply-partially #'alist-get 'name))
|
||||
(s-join ":"))
|
||||
(-map (apply-partially #'alist-get 'name)))))
|
||||
(format ":%s:" (s-join ":" labels))
|
||||
"")
|
||||
(org-make-link-string
|
||||
(org-clubhouse-link-to-story story-id)
|
||||
(number-to-string story-id))
|
||||
|
|
Loading…
Reference in a new issue