* lisp/dom.el (dom-strings): New function.

diff --git a/doc/lispref/text.texi b/doc/lispref/text.texi
index 472aedb8ee4f6f80fe5d4e47b59d6fff4bdd1697..1b8897f59e7cef72b2b1526fe2ea31c801c7a215 100644 (file)
--- a/doc/lispref/text.texi
+++ b/doc/lispref/text.texi
@@ -4507,6 +4507,9 @@ which is a regular expression.
 Return all nodes in @var{dom} that have IDs that match @var{match},
 which is a regular expression.
 
+@item dom-strings @var{dom}
+Return all strings in @var{DOM}.
+
 @end table
 
 Utility functions:

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ef0e6a2749ce1e16ade75c37c595fa79ac026eb..6aa0c1296385022e7aa0981aad579fb90fb513e9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2015-01-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * dom.el (dom-strings): New function.
+
        * files.el (directory-files-recursively): Don't use the word
        "path" for a file name.
 

diff --git a/lisp/dom.el b/lisp/dom.el
index 527b8e61f2ef7ed118ef80c64613a840831c5208..11357e88804bd92254c4e574831aa268121349f4 100644 (file)
--- a/lisp/dom.el
+++ b/lisp/dom.el
@@ -103,6 +103,14 @@ A name is a symbol like `td'."
        (cons dom matches)
       matches)))
 
+(defun dom-strings (dom)
+  "Return elements in DOM that are strings."
+  (cl-loop for child in (dom-children dom)
+          if (stringp child)
+          collect child
+          else
+          append (dom-strings child)))
+
 (defun dom-by-class (dom match)
   "Return elements in DOM that have a class name that matches regexp MATCH."
   (dom-elements dom 'class match))