From 96a3e08ff080203a68a1ec62f8f05542dfe5e9e0 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Wed, 19 Jun 2019 10:34:06 -0400 Subject: Don't output colons without labels If we pull down a story without labels, don't format the :: for those labels --- org-clubhouse.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'org-clubhouse.el') diff --git a/org-clubhouse.el b/org-clubhouse.el index 4f162d955bd4..18509fa823f5 100644 --- a/org-clubhouse.el +++ b/org-clubhouse.el @@ -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 - (alist-get 'labels) - ->list - (-map (apply-partially #'alist-get 'name)) - (s-join ":")) + (if-let ((labels (->> story + (alist-get 'labels) + ->list + (-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)) -- cgit 1.4.1