From bae66312a44b656dd3cb95d9607855b258bad14d 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 d8a66b2ce32..77bb6be2904 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.1