From 5ccb0abcb3c1eecefc31cc88911ff520f4c25709 Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 18 Sep 2025 20:41:44 +0100 Subject: ewww active in mac --- attic/elisp/misc.el | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) (limited to 'attic') diff --git a/attic/elisp/misc.el b/attic/elisp/misc.el index 558202e..d8c2610 100644 --- a/attic/elisp/misc.el +++ b/attic/elisp/misc.el @@ -1047,3 +1047,31 @@ :ensure t :commands (gnuplot-mode gnuplot-make-buffer) :init (add-to-list 'auto-mode-alist '("\\.gp$" . gnuplot-mode))) + +;;; rdrview +;; https://jiewawa.me/2024/04/another-way-of-integrating-mozilla-readability-in-emacs-eww/ +(define-minor-mode eww-rdrview-mode + "Toggle whether to use `rdrview' to make eww buffers more readable." + :lighter " R" + (if eww-rdrview-mode + (progn + (setq eww-retrieve-command '("rdrview" "-T" "title,sitename,body" "-H")) + (add-hook 'eww-after-render-hook #'eww-rdrview-update-title)) + (progn + (setq eww-retrieve-command nil) + (remove-hook 'eww-after-render-hook #'eww-rdrview-update-title)))) + +(defun eww-rdrview-update-title () + "Change title key in `eww-data' with first line of buffer. +It should be the title of the web page as returned by `rdrview'" + (save-excursion + (goto-char (point-min)) + (plist-put eww-data :title (string-trim (thing-at-point 'line t)))) + (eww--after-page-change)) + +(defun eww-rdrview-toggle-and-reload () + "Toggle `eww-rdrview-mode' and reload page in current eww buffer." + (interactive) + (if eww-rdrview-mode (eww-rdrview-mode -1) + (eww-rdrview-mode 1)) + (eww-reload)) -- cgit v1.2.3