[emacs] Render html

4 files changed, 14 insertions, 2 deletions

diff --git a/emacs/.emacs.d/init/ycp-markup.el b/emacs/.emacs.d/init/ycp-markup.el
index c331f49..57f30cb 100644
--- a/emacs/.emacs.d/init/ycp-markup.el
+++ b/emacs/.emacs.d/init/ycp-markup.el
@@ -134,5 +134,9 @@
   (add-hook 'json-mode-hook 'my-json-setup-hook)
   )
 
+(my-package mhtml-mode
+  (my-keybind mhtml-mode-map
+    "C-c C-v" #'my-html-render))
+
 (provide 'ycp-markup)
 ;;; ycp-markup.el ends here
diff --git a/emacs/.emacs.d/init/ycp-web.el b/emacs/.emacs.d/init/ycp-web.el
index 67c5e5a..8e93c17 100644
--- a/emacs/.emacs.d/init/ycp-web.el
+++ b/emacs/.emacs.d/init/ycp-web.el
@@ -252,7 +252,7 @@
 
 (my-package my-web
   (:delay 60)
-  (my-setq-from-local my-webpage-download-dir)
+  (my-setq-from-local my-webpage-incoming-dir)
   (my-keybind eww-mode-map
     "N" #'my-eww-next-path
     "P" #'my-eww-prev-path
diff --git a/emacs/.emacs.d/lisp/my/my-markup.el b/emacs/.emacs.d/lisp/my/my-markup.el
index 2b1c7f6..52ba9e0 100644
--- a/emacs/.emacs.d/lisp/my/my-markup.el
+++ b/emacs/.emacs.d/lisp/my/my-markup.el
@@ -64,5 +64,13 @@
   (when-let ((text (dom-text (my-xml-get-first-child node tag))))
     (replace-regexp-in-string "\n" " " (string-trim text))))
 
+(defun my-html-render (arg)
+  (interactive "P")
+  (if arg
+      (browse-url-of-buffer)
+    (let ((show-trailing-whitespace nil))
+      (call-interactively 'shr-render-buffer)
+      (view-mode))))
+
 (provide 'my-markup)
 ;;; my-markup.el ends here
diff --git a/emacs/.emacs.d/lisp/my/my-net.el b/emacs/.emacs.d/lisp/my/my-net.el
index b19ce68..a608808 100644
--- a/emacs/.emacs.d/lisp/my/my-net.el
+++ b/emacs/.emacs.d/lisp/my/my-net.el
@@ -29,7 +29,7 @@
 
 ;;; net utilities
 (defvar my-download-dir "~/Downloads")
-(defvar my-webpage-download-dir "~/Downloads")
+(defvar my-webpage-incoming-dir "~/Downloads")
 
 (defmacro my-url-as-googlebot (&rest body)
   "Run BODY while spoofing as googlebot"