[Emacs-diffs] [emacs] 01/01: Add a hook to be run after eww has rendered a page

[Lars Ingebrigtsen]

larsi pushed a commit to branch master
in repository emacs.

commit 790ad0171da998fc4cadbd99451d6ed3a27f1965
Author: Lars Magne Ingebrigtsen <address@hidden>
Date:   Thu Nov 13 22:41:55 2014 +0100

    Add a hook to be run after eww has rendered a page
    
    * net/eww.el (eww-after-render-hook): New variable.
    (eww-render): Use it.
---
 doc/misc/ChangeLog |    4 ++++
 doc/misc/eww.texi  |    5 +++++
 etc/NEWS           |    3 +++
 lisp/ChangeLog     |    3 +++
 lisp/net/eww.el    |    9 ++++++++-
 5 files changed, 23 insertions(+), 1 deletions(-)

diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog
index fcf81b0..1fd23b0 100644
--- a/doc/misc/ChangeLog
+++ b/doc/misc/ChangeLog
@@ -1,3 +1,7 @@
+2014-11-13  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * eww.texi (Variable Index): Mention `eww-after-render-hook'.
+
 2014-11-10  Lars Magne Ingebrigtsen  <address@hidden>
 
        * eww.texi (Basics): Document `eww-readable'.
diff --git a/doc/misc/eww.texi b/doc/misc/eww.texi
index 6d41331..2208c2d 100644
--- a/doc/misc/eww.texi
+++ b/doc/misc/eww.texi
@@ -235,6 +235,11 @@ developers started contributing to it as well.
 @node Variable Index
 @unnumbered Variable Index
 
address@hidden eww-after-render-hook
+After eww has rendered the data in the buffer,
address@hidden is called.  It can be used to alter the
+contents, for instance.
+
 @printindex vr
 
 @node Lisp Function Index
diff --git a/etc/NEWS b/etc/NEWS
index 05210df..911fe6a 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -156,6 +156,9 @@ the like off the page.
 *** You can now use several eww buffers in parallel by renaming eww
 buffers you want to keep separate.
 
+*** `eww-after-render-hook' is now called after eww has rendered
+the data in the buffer.
+
 ** Message mode
 
 *** text/html messages that contain inline image parts will be
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 12e9865..feff027 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2014-11-13  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * net/eww.el (eww-after-render-hook): New variable.
+       (eww-render): Use it.
+
        * net/shr.el (shr-descend): Don't descend further than
        `max-specpdl-size' allows (bug#16587).
        (shr-depth): New variable.
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 0fa79cb..61504e9 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -73,6 +73,12 @@
   :type '(choice (const :tag "Never" nil)
                  regexp))
 
+(defcustom eww-after-render-hook nil
+  "A hook called after eww has finished rendering the buffer."
+  :version "25.1"
+  :group 'eww
+  :type 'hook)
+
 (defcustom eww-form-checkbox-selected-symbol "[X]"
   "Symbol used to represent a selected checkbox.
 See also `eww-form-checkbox-symbol'."
@@ -227,7 +233,8 @@ word(s) will be searched for via `eww-search-prefix'."
            (eww-display-raw buffer)
            (eww-update-header-line-format)))
          (plist-put eww-data :title url)
-         (setq eww-history-position 0))
+         (setq eww-history-position 0)
+         (run-hooks 'eww-after-render-hook))
       (kill-buffer data-buffer))))
 
 (defun eww-parse-headers ()