mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix: Actually pass description when creating story

Browse source 
Oops!

Fixes #12
This commit is contained in:
Griffin Smith 2019-02-18 12:06:28 -05:00
parent 4b4c0f1f4a
commit 5682f4bb57
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
org-clubhouse.el
View file

@ -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))))