Moving things one level deeper

To ease gnu stow usage. Now we can do

stow -t ~ emacs

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