diff options
Diffstat (limited to 'emacs/.emacs.d/lisp')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-markup.el | 8 | ||||
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-net.el | 2 |
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" |