From bb97402cbe78f1e7a7f69c3a89d509b3cc257a36 Mon Sep 17 00:00:00 2001
From: Alex Dao <alex@urbint.com>
Date: Mon, 26 Mar 2018 17:47:03 -0400
Subject: [PATCH] feat: support setting story type on creation

Adds an interactive menu for selecting story type on story creation.
---
 org-clubhouse.el | 46 ++++++++++++++++++++++++++++++++++++----------
 1 file changed, 36 insertions(+), 10 deletions(-)

diff --git a/org-clubhouse.el b/org-clubhouse.el
index f232a67d0..c1b9d7bc1 100644
--- a/org-clubhouse.el
+++ b/org-clubhouse.el
@@ -68,6 +68,11 @@ If unset all projects will be synchronized")
     ("[X]"    . "Merged")
     ("CLOSED" . "Merged")))
 
+(defvar org-clubhouse-story-types
+  '(("feature" . "Feature")
+    ("bug"     . "Bug")
+    ("chore"   . "Chore")))
+
 ;;;
 ;;; Utilities
 ;;;
@@ -404,6 +409,19 @@ If unset all projects will be synchronized")
                (message "%d" milestone-id)
                (funcall cb milestone-id)))))
 
+(defun org-clubhouse-prompt-for-story-type (cb)
+  (ivy-read
+   "Select a story type: "
+   (-map #'cdr org-clubhouse-story-types)
+   :history 'org-clubhouse-story-history
+   :action (lambda (selected)
+             (let ((story-type
+                    (->> org-clubhouse-story-types
+                         (-find (lambda (proj)
+                                    (string-equal (cdr proj) selected)))
+                         car)))
+               (funcall cb story-type)))))
+
 ;;;
 ;;; Epic creation
 ;;;
@@ -467,7 +485,7 @@ If the epics already have a CLUBHOUSE-EPIC-ID, they are filtered and ignored."
 ;;;
 
 (cl-defun org-clubhouse-create-story-internal
-    (title &key project-id epic-id)
+    (title &key project-id epic-id story-type)
   (assert (and (stringp title)
                (integerp project-id)
                (or (null epic-id) (integerp epic-id))))
@@ -478,13 +496,15 @@ If the epics already have a CLUBHOUSE-EPIC-ID, they are filtered and ignored."
    (json-encode
     `((name . ,title)
       (project_id . ,project-id)
-      (epic_id . ,epic-id)))))
+      (epic_id . ,epic-id)
+      (story_type . ,story-type)))))
 
 (defun org-clubhouse-populate-created-story (elt story)
   (let ((elt-start  (plist-get elt :begin))
         (story-id   (alist-get 'id story))
         (epic-id    (alist-get 'epic_id story))
-        (project-id (alist-get 'project_id story)))
+        (project-id (alist-get 'project_id story))
+        (story-type (alist-get 'story_type story)))
 
     (save-excursion
       (goto-char elt-start)
@@ -504,6 +524,9 @@ If the epics already have a CLUBHOUSE-EPIC-ID, they are filtered and ignored."
                          (org-clubhouse-link-to-project project-id)
                          (alist-get project-id (org-clubhouse-projects))))
 
+      (org-set-property "story-type"
+                        (alist-get-equal story-type org-clubhouse-story-types))
+
       (org-todo "TODO"))))
 
 (defun org-clubhouse-create-story (&optional beg end)
@@ -525,13 +548,16 @@ If the stories already have a CLUBHOUSE-ID, they are filtered and ignored."
        (when project-id
          (org-clubhouse-prompt-for-epic
            (lambda (epic-id)
-             (-map (lambda (elt)
-               (let* ((title (plist-get elt :title))
-                      (story (org-clubhouse-create-story-internal
-                            title
-                            :project-id project-id
-                            :epic-id epic-id)))
-               (org-clubhouse-populate-created-story elt story))) new-elts))))))))
+             (org-clubhouse-prompt-for-story-type
+                (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))) new-elts))))))))))
 
 ;;;
 ;;; Story updates