about summary refs log tree commit diff
path: root/org-clubhouse.el
diff options
context:
space:
mode:
authorGriffin Smith <root@gws.fyi>2019-02-18T17·06-0500
committerGriffin Smith <root@gws.fyi>2019-02-18T17·06-0500
commit5682f4bb573c204c40688e932f1d7e7296213831 (patch)
tree98312b71ca2ffbcdc40c7d16478a5e328eb8611e /org-clubhouse.el
parent4b4c0f1f4a05a816ab520ca4e62f864fba650c01 (diff)
fix: Actually pass description when creating story
Oops!

Fixes #12
Diffstat (limited to 'org-clubhouse.el')
-rw-r--r--org-clubhouse.el13
1 files changed, 7 insertions, 6 deletions
diff --git a/org-clubhouse.el b/org-clubhouse.el
index 3d18d93768..50388b3dad 100644
--- a/org-clubhouse.el
+++ b/org-clubhouse.el
@@ -562,7 +562,7 @@ If the epics already have a CLUBHOUSE-EPIC-ID, they are filtered and ignored."
                   (project_id . ,project-id)
                   (epic_id . ,epic-id)
                   (story_type . ,story-type)
-                  (description . ,description))))
+                  (description . ,(or description "")))))
 
     (when workflow-state-id
       (push `(workflow_state_id . ,workflow-state-id) params))
@@ -627,15 +627,16 @@ If the stories already have a CLUBHOUSE-ID, they are filtered and ignored."
                      (-map
                       (lambda (elt)
                         (let* ((title (plist-get elt :title))
+                               (description
+                                (save-mark-and-excursion
+                                  (goto-char (plist-get elt :begin))
+                                  (org-clubhouse-find-description-drawer)))
                                (story (org-clubhouse-create-story-internal
                                        title
                                        :project-id project-id
                                        :epic-id epic-id
-                                       :story-type story-type))
-                               (description
-                                (save-mark-and-excursion
-                                  (goto-char (plist-get elt :begin))
-                                  (org-clubhouse-find-description-drawer))))
+                                       :story-type story-type
+                                       :description description)))
                           (org-clubhouse-populate-created-story elt story)
                           (when (functionp then)
                             (funcall then story))))