From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Fri, 9 Nov 2018 14:49:44 +0000 (+0100)
Subject: Add bba-open-jira
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=3ea44053071555dfb0a141b1a73b20be4457e916;p=emacsconfig.git

Add bba-open-jira

Open current ticket in Jira.
I should use it more often though.

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---

diff --git a/bba.org b/bba.org
index 5f09d631..bb1619d8 100644
--- a/bba.org
+++ b/bba.org
@@ -977,6 +977,27 @@ never heard of orgmode.
     )
 #+END_SRC
 
+#+BEGIN_SRC emacs-lisp :tangle yes
+  (defun bba-open-jira()
+  "open current ticket."
+  (interactive)
+  (let ((oldpoint (point-marker)))
+  (org-narrow-to-subtree)
+  (goto-char (point-min))
+  (if (re-search-forward "jira:" nil t 1)
+      (org-open-at-point)
+    (progn (widen)
+            (outline-up-heading 1 t)
+            (bba-open-jira)
+  ))
+  (widen)
+  (goto-char oldpoint)
+  )
+  )
+
+  (define-key org-mode-map "\C-xl\S-j" 'bba-open-jira)
+#+END_SRC
+
 ** ox-reveal
 [2017-11-06 Mon 23:26]