Moving things one level deeper

To ease gnu stow usage. Now we can do

stow -t ~ emacs

1 files changed, 72 insertions, 0 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-rtliber.el b/emacs/.emacs.d/lisp/my/my-rtliber.el
new file mode 100644
index 0000000..cefc5eb
--- /dev/null
+++ b/emacs/.emacs.d/lisp/my/my-rtliber.el
@@ -0,0 +1,72 @@
+;;; 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