Sun Dec 13 05:24:52 UTC 2009 pix@kepibu.org

* Add element-content as a prereq to matching on an element's textual content

--- old-Oh, Ducks!/traversal/pt.lisp 2015-10-20 14:04:37.000000000 +0000

+++ new-Oh, Ducks!/traversal/pt.lisp 2015-10-20 14:04:37.000000000 +0000

@@ -20,3 +20,13 @@

(defmethod element-type ((element chtml:pt))

(chtml:pt-name element))

+

+(defmethod element-content ((element chtml:pt))

+ (mapcar (lambda (node)

+ (cond

+ ((eq :pcdata (chtml:pt-name node))

+ (chtml:pt-attrs node))

+ (t node)))

+ (remove-if (curry #'eq :comment)

+ (chtml:pt-children element)

+ :key #'chtml:pt-name)))