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.

diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog
index fcf81b0219183c092d9212ac7fa34f136245a2ba..1fd23b07194fe65f15b0d760629c4f8e0aae4db6 100644 (file)
--- 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 6d41331c5e3e1f793d71c5e5456e4afbcd438c23..2208c2d251e3a7be3d147a1f5dee3bff5dfd42df 100644 (file)
--- 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 05210df11b2f6dd9d50c881aac2302d1e6cbcbe9..911fe6a838093ecb9678e4e5478e52811f5d19e3 100644 (file)
--- 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 12e98657af0158d25ed7da79f49fe60a3861d52a..feff0279a86a52336f896d9b54abd234ee973366 100644 (file)
--- 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 0fa79cb10750c4d06643935ed1e60ad386fcbe8f..61504e91465be9c2636e842c267abf9740f11e68 100644 (file)
--- 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 ()