aboutsummaryrefslogtreecommitdiff
path: root/.emacs.d/lisp/my/my-rtliber.el
diff options
context:
space:
mode:
Diffstat (limited to '.emacs.d/lisp/my/my-rtliber.el')
-rw-r--r--.emacs.d/lisp/my/my-rtliber.el72
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