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

feat: Populate description when creating stories

Browse source 
If a DESCRIPTION drawer exists on headlines being used to create
stories, it is populated as the description of the created story
This commit is contained in:
Griffin Smith 2019-02-15 16:12:33 -05:00
parent 627799d4dc
commit 3fc1a3445b
1 changed files with 25 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
org-clubhouse.el
View file

@ -239,9 +239,10 @@ not be prompted")
(append elt `(:children ,(reverse children)))))
(defun +org-element-contents (elt)
(buffer-substring-no-properties
(plist-get (cadr elt) :contents-begin)
(plist-get (cadr elt) :contents-end)))
(if-let ((begin (plist-get (cadr elt) :contents-begin))
(end (plist-get (cadr elt) :contents-end)))
(buffer-substring-no-properties begin end)
""))
(defun org-clubhouse-find-description-drawer ()
"Try to find a DESCRIPTION drawer in the current element."
@ -557,15 +558,17 @@ If the epics already have a CLUBHOUSE-EPIC-ID, they are filtered and ignored."
(alist-get-equal org-clubhouse-default-state (org-clubhouse-workflow-states)))
(cl-defun org-clubhouse-create-story-internal
(title &key project-id epic-id story-type)
(title &key project-id epic-id story-type description)
(assert (and (stringp title)
(integerp project-id)
(or (null epic-id) (integerp epic-id))))
(or (null epic-id) (integerp epic-id))
(or (null description) (stringp description))))
(let ((workflow-state-id (org-clubhouse-default-state-id))
(params `((name . ,title)
(project_id . ,project-id)
(epic_id . ,epic-id)
(story_type . ,story-type))))
(story_type . ,story-type)
(description . ,description))))
(when workflow-state-id
(push `(workflow_state_id . ,workflow-state-id) params))
@ -627,17 +630,22 @@ If the stories already have a CLUBHOUSE-ID, they are filtered and ignored."
(lambda (epic-id)
(let ((create-story
(lambda (story-type)
(-map (lambda (elt)
(let* ((title (plist-get elt :title))
(story (org-clubhouse-create-story-internal
title
:project-id project-id
:epic-id epic-id
:story-type story-type)))
(org-clubhouse-populate-created-story elt story)
(when (functionp then)
(funcall then story))))
new-elts))))
(-map
(lambda (elt)
(let* ((title (plist-get elt :title))
(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))))
(org-clubhouse-populate-created-story elt story)
(when (functionp then)
(funcall then story))))
new-elts))))
(if org-clubhouse-default-story-type
(funcall create-story org-clubhouse-default-story-type)
(org-clubhouse-prompt-for-story-type create-story))))))))))