[emacs] Render html

2 files changed, 9 insertions, 1 deletions

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"