diff options
| author | Yuchen Pei <id@ypei.org> | 2025-08-30 18:27:20 +1000 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2025-08-30 18:27:20 +1000 |
| commit | 97f202a5d9d4d99092490c05f212d7c918bb0b5e (patch) | |
| tree | 8e8dfc455f87bda0983062e742a42d65ba24827a | |
| parent | 0b8e996b5a8967397302adaed5a0ca2f62ec8ec0 (diff) | |
[emacs] fix htmlv-mode view source
| -rw-r--r-- | emacs/.emacs.d/init/ycp-buffer.el | 1 | ||||
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-markup.el | 7 |
2 files changed, 5 insertions, 3 deletions
diff --git a/emacs/.emacs.d/init/ycp-buffer.el b/emacs/.emacs.d/init/ycp-buffer.el index b91e6aa..6a560ea 100644 --- a/emacs/.emacs.d/init/ycp-buffer.el +++ b/emacs/.emacs.d/init/ycp-buffer.el @@ -124,6 +124,7 @@ "r" #'next-buffer "d" nil "u" nil + "." nil "w" #'kill-ring-save "i" #'view-mode) (my-keybind global-map "C-`" #'view-mode)) diff --git a/emacs/.emacs.d/lisp/my/my-markup.el b/emacs/.emacs.d/lisp/my/my-markup.el index ceb3dcf..2901f13 100644 --- a/emacs/.emacs.d/lisp/my/my-markup.el +++ b/emacs/.emacs.d/lisp/my/my-markup.el @@ -73,11 +73,10 @@ (view-mode)))) (defvar-keymap htmlv-mode-map - ;; :parent view-mode-map "." #'htmlv-reopen-as-html ) -(define-derived-mode htmlv-mode view-mode "HTML View" +(define-derived-mode htmlv-mode special-mode "HTML View" "Major mode for viewing HTML documents." (let ((inhibit-read-only t)) (shr-render-region (point-min) (point-max))) @@ -86,7 +85,9 @@ (defun htmlv-reopen-as-html () (interactive) - (with-current-buffer (find-file-literally buffer-file-name) + (with-current-buffer + (cl-letf (((symbol-function 'y-or-n-p) #'always)) + (find-file-literally buffer-file-name)) (mhtml-mode))) (provide 'my-markup) |