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/dom.lisp 2015-10-19 08:42:32.000000000 +0000

+++ new-Oh, Ducks!/traversal/dom.lisp 2015-10-19 08:42:32.000000000 +0000

@@ -29,6 +29,14 @@

(defmethod element-type ((element dom:element))

(dom:tag-name element))

+(defmethod element-content ((element dom:element))

+ (mapcar (lambda (node)

+ (typecase node

+ (dom:element node)

+ (dom:text (dom:data node))

+ (t (error "Unsure what to do."))))

+ (coerce (dom:child-nodes element) 'list)))

+

;;; special accessors in case something special needs to happen

(defmethod element-id ((element dom:element))

(element-attribute "id" element))