From 4de3b0766550f5e308010a885397a72a26d40dee Mon Sep 17 00:00:00 2001 From: Rahguzar Date: Tue, 24 Oct 2023 23:35:44 +0200 Subject: [PATCH 4/5] Optionally turn on visual-line-mode + outline support * lisp/net/eww.el (eww-render): Turn on visual-line-mode in absence of filling (eww-mode): set outline-regexp and outline-level --- lisp/net/eww.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/net/eww.el b/lisp/net/eww.el index e43ef2bfe8b..3224c382d53 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -657,6 +657,8 @@ eww-render (setq eww-history-position 0) (and last-coding-system-used (set-buffer-file-coding-system last-coding-system-used)) + (unless shr-fill-text + (visual-line-mode)) (run-hooks 'eww-after-render-hook) ;; Enable undo again so that undo works in text input ;; boxes. @@ -1217,6 +1219,8 @@ eww-mode (setq-local shr-url-transformer #'eww--transform-url) ;; Also rescale images when rescaling the text. (add-hook 'text-scale-mode-hook #'eww--rescale-images nil t) + (setq-local outline-search-function 'shr-outline-search + outline-level 'shr-outline-level) (setq buffer-read-only t)) (defvar text-scale-mode) -- 2.42.0