From c78999d627ecd89da9beaf7dc52aa65a0d35c70e Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sun, 3 Aug 2025 16:45:41 +1000 Subject: [emacs] Render html --- emacs/.emacs.d/lisp/my/my-markup.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'emacs/.emacs.d/lisp/my/my-markup.el') 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 -- cgit v1.2.3