diff options
author | Yuchen Pei <id@ypei.org> | 2023-08-26 11:46:56 +1000 |
---|---|---|
committer | Yuchen Pei <id@ypei.org> | 2023-08-26 11:46:56 +1000 |
commit | 8e6322c898fa057c367f534b632c37d2261c4600 (patch) | |
tree | 369ccd8d4b2e6f16f560a27539517f8ceb81ef44 /emacs | |
parent | 1866ce5fc8eb8b3c4f013744ebc6efdf82f50ebd (diff) |
Fixing a few things
Diffstat (limited to 'emacs')
-rw-r--r-- | emacs/.emacs.d/init/ycp-prog.el | 4 | ||||
-rw-r--r-- | emacs/.emacs.d/lisp/my/my-dired.el | 2 | ||||
-rw-r--r-- | emacs/.emacs.d/lisp/my/my-prog.el | 9 | ||||
-rw-r--r-- | emacs/.emacs.d/lisp/my/my-utils.el | 8 |
4 files changed, 18 insertions, 5 deletions
diff --git a/emacs/.emacs.d/init/ycp-prog.el b/emacs/.emacs.d/init/ycp-prog.el index 84ac0d2..d3373d9 100644 --- a/emacs/.emacs.d/init/ycp-prog.el +++ b/emacs/.emacs.d/init/ycp-prog.el @@ -234,6 +234,10 @@ "C-M-x" #'my-eval-defun-or-region) ) +;;; debugger +(my-package debugger + (my-override debugger-quit)) + (my-package inf-lisp (setq inferior-lisp-program "clisp")) 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." |