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.

5 files changed, 23 insertions, 1 deletions

diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog
index fcf81b02191..1fd23b07194 100644
--- a/doc/misc/ChangeLog
+++ b/doc/misc/ChangeLog
@@ -1,3 +1,7 @@
+2014-11-13  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+        * eww.texi (Variable Index): Mention `eww-after-render-hook'.
+
 2014-11-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
         * eww.texi (Basics): Document `eww-readable'.
diff --git a/doc/misc/eww.texi b/doc/misc/eww.texi
index 6d41331c5e3..2208c2d251e 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
 
+@vindex eww-after-render-hook
+After eww has rendered the data in the buffer,
+@code{eww-after-render-hook} 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 05210df11b2..911fe6a8380 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 12e98657af0..feff0279a86 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2014-11-13  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+        * 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 0fa79cb1075..61504e91465 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 ()