github/jira-api
1
0
Fork 0
mirror of https://github.com/correl/jira-api.git synced 2024-11-23 11:09:54 +00:00
Code Issues Projects Releases Packages Wiki Activity

Mo' Jira

Browse source
This commit is contained in:
Correl Roush 2020-01-09 14:28:37 -05:00
parent 3353a7c082
commit 386021bfdb
1 changed files with 51 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

54
jira-api.el
View file

@ -58,12 +58,15 @@
:group 'jira-api :group 'jira-api
:type 'string) :type 'string)
(defvar jira-api-agile-sprint-field 'customfield_10300 (defvar jira-api-agile-sprint-field 'customfield_10007
"JIRA Agile sprint field") "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") "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 (defconst jira-api-timetracking-units
'(("m" . 60) ; 60 minutes in an hour '(("m" . 60) ; 60 minutes in an hour
("h" . 8) ; 8 hours in a day ("h" . 8) ; 8 hours in a day
@ -195,5 +198,50 @@
"/worklog") "/worklog")
`((timeSpentSeconds . ,seconds)))) `((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 ;;; jira-api.el ends here