BirDt/theurgy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Extend Jira config

Browse source
This commit is contained in:
BirDt_ 2026-05-19 22:53:23 +08:00
parent 5d5e531d96
commit 4c64daebcd
1 changed files with 46 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

49
userland/jira.el
View file

@ -25,6 +25,27 @@
(use-package org-jira)
(setq org-jira-working-dir "~/.org/tasks/projects")
(defcustom jira-active-projects '()
"Active Jira projects for custom JQLs."
:type '(repeat string)
:group 'jira
:group 'theurgy)
(defun jira-project-list->string ()
"Format `jira-active-projects' for use with JQL."
(concat "("
(string-join (mapcar
(lambda (s)
(concat "\"" s "\""))
jira-active-projects) ", ")
")"))
(setq org-jira-custom-jqls
`((:jql ,(concat
"project in " (jira-project-list->string)
" and sprint in openSprints()")
:limit 100 :filename "kanban")))
(defun jira ()
"Sign in to Jira and fetch issues."
(interactive)
@ -32,9 +53,31 @@
;; Auth-source is buggy on MacOS.
(when (equal system-type 'darwin)
(kill-new
(shell-command-to-string (concat "security find-generic-password -a \""
jiralib-user "\" -s \"jira\" -w"))))
(call-interactively #'org-jira-get-issues))
(string-trim-right (shell-command-to-string (concat "security find-generic-password -a \""
jiralib-user "\" -s \"jira\" -w")))))
(call-interactively #'org-jira-get-issues)
(call-interactively #'org-jira-get-issues-from-custom-jql))
(defcustom jira-key-directory-alist '()
"Directories associated with a particular project --- git repositories.
For example, (\"CBM\" . \"~/build/etc\") will use ~/build/etc for ticket-specific commands in the CBM project."
:type 'alist
:group 'jira
:group 'theurgy)
(defun jira-branch-ticket ()
"Create a branch from the current ticket, in the repository specified by `jira-key-directory-alist'."
(interactive)
(let* ((issue-key (progn
(org-jira-copy-current-issue-key)
(substring-no-properties (car kill-ring))))
(project-code (car (split-string
issue-key
"-")))
(project-dir (cdr (assoc project-code jira-key-directory-alist))))
(magit-status project-dir)
(kill-new issue-key)
(call-interactively #'magit-branch-create)))
(provide 'jira)