aboutsummaryrefslogtreecommitdiff
path: root/emacs/.emacs.d/lisp/my
diff options
context:
space:
mode:
authorYuchen Pei <id@ypei.org>2023-08-26 11:46:56 +1000
committerYuchen Pei <id@ypei.org>2023-08-26 11:46:56 +1000
commit8e6322c898fa057c367f534b632c37d2261c4600 (patch)
tree369ccd8d4b2e6f16f560a27539517f8ceb81ef44 /emacs/.emacs.d/lisp/my
parent1866ce5fc8eb8b3c4f013744ebc6efdf82f50ebd (diff)
Fixing a few things
Diffstat (limited to 'emacs/.emacs.d/lisp/my')
-rw-r--r--emacs/.emacs.d/lisp/my/my-dired.el2
-rw-r--r--emacs/.emacs.d/lisp/my/my-prog.el9
-rw-r--r--emacs/.emacs.d/lisp/my/my-utils.el8
3 files changed, 14 insertions, 5 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-dired.el b/emacs/.emacs.d/lisp/my/my-dired.el
index c64d9d2..c90b8c4 100644
--- a/emacs/.emacs.d/lisp/my/my-dired.el
+++ b/emacs/.emacs.d/lisp/my/my-dired.el
@@ -126,7 +126,7 @@ With a prefix-arg, delete without moving to trash."
(if arg
(let ((delete-by-moving-to-trash nil))
(funcall delete-fun))
- (delete-fun))
+ (funcall delete-fun))
)
(defun my-dired-do-rename (rename-fun &optional arg)
diff --git a/emacs/.emacs.d/lisp/my/my-prog.el b/emacs/.emacs.d/lisp/my/my-prog.el
index 2bb4745..558117b 100644
--- a/emacs/.emacs.d/lisp/my/my-prog.el
+++ b/emacs/.emacs.d/lisp/my/my-prog.el
@@ -387,6 +387,15 @@ left and the source buffer on the right.
(interactive)
(insert (file-name-base (buffer-file-name)) "-"))
+;; override `debugger-quit' - delete instead quit window
+(defun my-debugger-quit ()
+ "Quit debugging and return to the top level."
+ (interactive)
+ (if (= (recursion-depth) 0)
+ (delete-window)
+ (top-level)))
+
+;;; prog-mode
(defun my-prog-modes-setup ()
(setq-local comment-auto-fill-only-comments t)
(auto-fill-mode)
diff --git a/emacs/.emacs.d/lisp/my/my-utils.el b/emacs/.emacs.d/lisp/my/my-utils.el
index 1012de8..b10cd41 100644
--- a/emacs/.emacs.d/lisp/my/my-utils.el
+++ b/emacs/.emacs.d/lisp/my/my-utils.el
@@ -113,10 +113,10 @@
:from "^https://\\(www\\.\\)?youtube.com/\\(.*\\)$"
:to "https://yewtu.be/%s"
:parts (2))
- (:name reddit-to-teddit
- :description "Reddit to Teddit"
- :from "^https://\\(www\\.\\|old\\.\\)?reddit.com/\\(.*\\)$"
- :to "https://teddit.net/%s"
+ (:name reddit-to-old
+ :description "Reddit to old Reddit"
+ :from "^https://\\(www\\.\\)?reddit.com/\\(.*\\)$"
+ :to "https://old.reddit.com/%s"
:parts (2))
(:name twitter-to-nitter
:description "Twitter to nitter."