diff options
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-markup.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-markup.el | 17 |
1 files changed, 17 insertions, 0 deletions
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 |