From f188b667428a76a23940405b05f4ec01e64b359d Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 10 Nov 2014 21:34:43 +0100 Subject: [PATCH] Restore the header line after using `eww-readable' (eww-readable): Copy over pertinent data from the parent page. --- lisp/ChangeLog | 1 + lisp/net/eww.el | 8 +++++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3d079103128..bc31f5d14bb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -4,6 +4,7 @@ to a single page, used throughout the file instead of the variables `eww-current-url', `eww-current-dom', `eww-current-source', and `eww-current-title'. + (eww-readable): Copy over pertinent data from the parent page. * net/eww.el: Remove `eww-next-url', `eww-previous-url', `eww-up-url', `eww-home-url', `eww-start-url' and diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 2ad3980e8d9..b697fa32f4b 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -419,10 +419,10 @@ This command uses heuristics to find the parts of the web page that contains the main textual portion, leaving out navigation menus and the like." (interactive) - (let* ((source (plist-get eww-data :source)) + (let* ((old-data eww-data) (dom (shr-transform-dom (with-temp-buffer - (insert source) + (insert (plist-get old-data :source)) (condition-case nil (decode-coding-region (point-min) (point-max) 'utf-8) (coding-system-error nil)) @@ -432,7 +432,9 @@ the like." (eww-display-html nil nil (shr-retransform-dom (eww-highest-readability dom))) - (plist-put eww-data :source source))) + (dolist (elem '(:source :url :title :next :previous :up)) + (plist-put eww-data elem (plist-get old-data elem))) + (eww-update-header-line-format))) (defun eww-score-readability (node) (let ((score -1)) -- 2.39.5