diff options
| -rw-r--r-- | org-clubhouse.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/org-clubhouse.el b/org-clubhouse.el index 3d18d937687b..50388b3dad3b 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)))) |