diff options
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-ox-jira.el')
-rw-r--r-- | emacs/.emacs.d/lisp/my/my-ox-jira.el | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-ox-jira.el b/emacs/.emacs.d/lisp/my/my-ox-jira.el new file mode 100644 index 0000000..ac581bf --- /dev/null +++ b/emacs/.emacs.d/lisp/my/my-ox-jira.el @@ -0,0 +1,45 @@ +;;; my-ox-jira.el -- Extensions to ox-jira -*- lexical-binding: t -*- + +;; Copyright (C) 2023 Free Software Foundation. + +;; Author: Yuchen Pei <id@ypei.org> +;; Package-Requires: ((emacs "28.2")) + +;; This file is part of dotted. + +;; dotted is free software: you can redistribute it and/or modify it under +;; the terms of the GNU Affero General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; dotted is distributed in the hope that it will be useful, but WITHOUT +;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY +;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General +;; Public License for more details. + +;; You should have received a copy of the GNU Affero General Public +;; License along with dotted. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: + +;; Extensions to ox-jira. + +;;; Code: + +(require 'ox-jira) +(require 'my-prog) +(defun my-org-backtrace-to-github-jira (beg end) + (interactive "r") + (let ((bt (buffer-substring-no-properties beg end)) + (revision (when current-prefix-arg + (read-string "Rrevision: "))) + ) + (with-temp-buffer + (insert "#+options: ^:nil +") + (goto-char (point-max)) + (insert (my-org-backtrace-to-github bt revision)) + (ox-jira-export-as-jira)))) + +(provide 'my-ox-jira) +;;; my-ox-jira.el ends here |