[emacs] Add html view modeHEADmaster

3 files changed, 22 insertions, 0 deletions

diff --git a/emacs/.emacs.d/init/ycp-markup.el b/emacs/.emacs.d/init/ycp-markup.el
index 4922d6e..c5f874f 100644
--- a/emacs/.emacs.d/init/ycp-markup.el
+++ b/emacs/.emacs.d/init/ycp-markup.el
@@ -139,5 +139,10 @@
   (my-keybind mhtml-mode-map
     "C-c C-v" #'my-html-render))
 
+(my-package my-markup
+  (:delay 15)
+  (add-to-list 'auto-mode-alist '("\\.html\\'" . htmlv-mode))
+  )
+
 (provide 'ycp-markup)
 ;;; ycp-markup.el ends here
diff --git a/emacs/.emacs.d/lisp/my/my-markup.el b/emacs/.emacs.d/lisp/my/my-markup.el
index 52ba9e0..ceb3dcf 100644
--- a/emacs/.emacs.d/lisp/my/my-markup.el
+++ b/emacs/.emacs.d/lisp/my/my-markup.el
@@ -72,5 +72,22 @@
       (call-interactively 'shr-render-buffer)
       (view-mode))))
 
+(defvar-keymap htmlv-mode-map
+  ;; :parent view-mode-map
+  "." #'htmlv-reopen-as-html
+  )
+
+(define-derived-mode htmlv-mode view-mode "HTML View"
+  "Major mode for viewing HTML documents."
+  (let ((inhibit-read-only t))
+    (shr-render-region (point-min) (point-max)))
+  (set-buffer-modified-p nil)
+  (goto-char (point-min)))
+
+(defun htmlv-reopen-as-html ()
+  (interactive)
+  (with-current-buffer (find-file-literally buffer-file-name)
+    (mhtml-mode)))
+
 (provide 'my-markup)
 ;;; my-markup.el ends here
diff --git a/emacs/.emacs.d/lisp/nov.el b/emacs/.emacs.d/lisp/nov.el
-Subproject c0d30da504fb0b68d8c28ff61a5e0095acda7f5
+Subproject 7f5c215a3d6b75fc1cbbc62e46ee014cbe2f3f1