From 386021bfdb17284acea9caae145351c74aac05b1 Mon Sep 17 00:00:00 2001
From: Correl Roush <correlr@aweber.com>
Date: Thu, 9 Jan 2020 14:28:37 -0500
Subject: [PATCH] Mo' Jira

---
 jira-api.el | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 51 insertions(+), 3 deletions(-)

diff --git a/jira-api.el b/jira-api.el
index d66c986..75ada84 100644
--- a/jira-api.el
+++ b/jira-api.el
@@ -58,12 +58,15 @@
   :group 'jira-api
   :type 'string)
 
-(defvar jira-api-agile-sprint-field 'customfield_10300
+(defvar jira-api-agile-sprint-field 'customfield_10007
   "JIRA Agile sprint field")
 
-(defvar jira-api-agile-story-points-field 'customfield_10003
+(defvar jira-api-agile-story-points-field 'customfield_10004
   "JIRA Agile story points field")
 
+(defvar jira-api-agile-definition-of-done-field 'customfield_11300
+  "JIRA Agile Definition of Done field")
+
 (defconst jira-api-timetracking-units
   '(("m" . 60)                          ; 60 minutes in an hour
     ("h" . 8)                           ; 8 hours in a day
@@ -195,5 +198,50 @@
            "/worklog")
    `((timeSpentSeconds . ,seconds))))
 
-(provide 'org-jira-rest)
+(defun jira-api-get-project-issue-types (project-key)
+  (let* ((metadata (jira-api-get
+                    (s-concat "/rest/api/latest/issue/createmeta?projectKeys="
+                              project-key
+                              "&expand=projects.issuetypes.fields")))
+       (projects (jira-api-get-attribute metadata 'projects))
+       (issuetypes
+        (-map (lambda (p)
+                (cons (jira-api-get-attribute p 'key)
+                      (-map (lambda (issuetype)
+                              (let ((fields (jira-api-get-attribute issuetype 'fields)))
+                                (cons (jira-api-get-attribute issuetype 'name)
+                                      (-map (lambda (field) (cons (jira-api-get-attribute field 'name)
+                                                                  (car field))) fields)
+                                      )))
+                            (jira-api-get-attribute p 'issuetypes))))
+              projects)))
+    (jira-api-get-attribute issuetypes project-key)))
+
+(defun jira-api-create-issue-from-heading ()
+  (interactive)
+  (let ((title (org-get-heading t t t t))
+        (todo (org-entry-get (point) "TODO"))
+        (issue (org-entry-get (point) "JIRA_ID"))
+        (epic (org-entry-get (point) "JIRA_EPIC" t))
+        (component (org-entry-get (point) "COMPONENT" t))
+        (content (let ((org-export-with-drawers nil)
+                       (org-export-with-properties nil))
+                   (org-export-as 'jira t nil t (list :with-drawers nil)))))
+    (when issue
+      (error "Jira issue is already set"))
+    (unless todo
+      (error "Must be a TODO"))
+    (let* ((request `((fields . ((project . ((key . "CCPANEL")))
+                                 (summary . ,title)
+                                 (description . ,content)
+                                 (issuetype . ((name . "Task")))
+                                 (components . (((name . ,component))))
+                                 (customfield_10008 . ,epic)))))
+           (response (jira-api-post "/rest/api/latest/issue"
+                                   request))
+           (issue (jira-api-get-attribute response 'key)))
+      (if issue (org-set-property "JIRA_ID" issue)
+        (error "Something's gone horribly wrong: %s" response)))))
+
+(provide 'jira-api)
 ;;; jira-api.el ends here