diff options
Diffstat (limited to '.emacs.d/lisp/my/my-rtliber.el')
| -rw-r--r-- | .emacs.d/lisp/my/my-rtliber.el | 72 |
1 files changed, 0 insertions, 72 deletions
diff --git a/.emacs.d/lisp/my/my-rtliber.el b/.emacs.d/lisp/my/my-rtliber.el deleted file mode 100644 index cefc5eb..0000000 --- a/.emacs.d/lisp/my/my-rtliber.el +++ /dev/null @@ -1,72 +0,0 @@ -;;; my-rtliber.el -- Extensions for rt-liberation -*- 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 dotfiles. - -;; dotfiles 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. - -;; dotfiles 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 dotfiles. If not, see <https://www.gnu.org/licenses/>. - -;;; Commentary: - -;; Extensions for rt-liberation. - -;;; Code: - - -(require 'rt-liberation) -;;; fixme: fsf credentials -(defun my-rt-liber-my-open-tickets () (interactive) - (rt-liber-browse-query - (format "owner = '%s' and status != 'resolved'" - rt-liber-username))) - -(defun my-rt-liber-my-tickets () (interactive) - (rt-liber-browse-query - (format "owner = '%s'" rt-liber-username))) - -(defun my-rt-liber-backlog () - (interactive) - (rt-liber-browse-query - "created >= '90 days ago' and owner = 'nobody' and status != 'resolved'")) - -(defun my-rt-liber-get-ticket-by-id (id) - (interactive "sTicket ID: ") (rt-liber-browse-query (concat "id = " - id))) - -(defun my-rt-liber-query-by-subject (query) - (interactive "sQuery in subject: ") - (rt-liber-browse-query - (concat "subject like '" query "'"))) - -;;; Used to override `rt-liber-viewer-visit-in-browser' -(defun my-rt-liber-viewer-visit-in-browser (&optional external) - "Visit this ticket section in the RT Web interface. -With a prefix arg, browse using secondary browser." - (interactive "P") - (let ((id (rt-liber-ticket-id-only rt-liber-ticket-local)) - (browser-function - (if external browse-url-secondary-browser-function - 'browse-url))) - (if id - (funcall browser-function - (concat rt-liber-base-url "Ticket/Display.html?id=" id - "#txn-" - (alist-get 'id (rt-liber-viewer2-get-section-data)))) - (error "no ticket currently in view")))) - -(provide 'my-rtliber) -;;; my-rtliber.el ends here |