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

fix(grfn/emacs): Fix clocked-in-ticket-id for linear tickets

Browse source 
Change-Id: Id0e8883c1b621afb99edde3d256cccd057e89097
Reviewed-on: https://cl.tvl.fyi/c/depot/+/9972
Autosubmit: grfn <grfn@gws.fyi>
Tested-by: BuildkiteCI
Reviewed-by: grfn <grfn@gws.fyi>
This commit is contained in:
Aspen Smith 2023-11-06 10:40:26 -05:00 • committed by clbot
parent 81047cfcd7
commit f3dea2ffbc
2 changed files with 33 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

20
users/grfn/emacs.d/org-query.el
View file

@ -115,11 +115,22 @@
(grfn/org-current-clocked-in-task-message)
)
(defun grfn/org-clocked-in-jira-ticket-id ()
(cl-defgeneric grfn/org-tracker-ticket-id-label (backend elt)
(org-tracker-backend/extract-issue-id backend elt))
(cl-defmethod grfn/org-tracker-ticket-id-label
((backend org-tracker-linear-backend) elt)
(when-let* ((link (plist-get elt :LINEAR-KEY)))
(string-match
(rx "[[" (one-or-more anything) "]"
"[" (group (one-or-more anything)) "]]")
link)
(match-string 1 link)))
(defun grfn/org-clocked-in-ticket-id ()
(grfn/at-org-clocked-in-item
(when (org-tracker-current-backend t)
(org-tracker-backend/extract-issue-id
(org-tracker-current-backend)
(when-let* ((backend (org-tracker-current-backend t)))
(grfn/org-tracker-ticket-id-label
backend
(cadr (org-element-at-point))))))
(comment
@ -128,4 +139,5 @@
(org-tracker-current-backend)
(cadr (org-element-at-point))))
(grfn/org-clocked-in-ticket-id)
)