From 96a3e08ff080203a68a1ec62f8f05542dfe5e9e0 Mon Sep 17 00:00:00 2001
From: Griffin Smith <root@gws.fyi>
Date: Wed, 19 Jun 2019 10:34:06 -0400
Subject: [PATCH] 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(-)

diff --git a/org-clubhouse.el b/org-clubhouse.el
index 4f162d955..18509fa82 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))