From 97f202a5d9d4d99092490c05f212d7c918bb0b5e Mon Sep 17 00:00:00 2001
From: Yuchen Pei <id@ypei.org>
Date: Sat, 30 Aug 2025 18:27:20 +1000
Subject: [emacs] fix htmlv-mode view source

---
 emacs/.emacs.d/init/ycp-buffer.el   | 1 +
 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)
-- 
cgit v1.2.3