html-parse-tree.cl

("prefix text" 
 (:HTML-TAG 
    "" 
    (:HTML-TAG-NAME "div") 
    (:HTML-ATTRS 
        (:HTML-ATTR "class" "post")) 
    "") 
 "" 
 (:HTML-TAG 
    "" 
    (:HTML-TAG-NAME "a") 
    (:HTML-ATTRS 
        (:HTML-ATTR "name" "comment-{$comment.comment_ID}")
        (:HTML-ATTR "id" "comment-{$comment.comment_ID}")) 
    "") 
 "" 
 (:HTML-TAG 
    "/" 
    (:HTML-TAG-NAME "a")
    (:HTML-ATTRS) 
    "") 
 "{$comment.content}" 
 (:HTML-TAG 
    "" 
    (:HTML-TAG-NAME "ul") 
    (:HTML-ATTRS 
        (:HTML-ATTR "class" "categories")) 
    "") 
 "by " 
 (:HTML-TAG 
    "" 
    (:HTML-TAG-NAME "cond:if") 
    (:HTML-ATTRS 
        (:HTML-ATTR "var" "comment.comment_author_url")
        (:HTML-ATTR "neq" "")) 
    "") 
 "" 
 (:HTML-TAG 
    "" 
    (:HTML-TAG-NAME "a")
    (:HTML-ATTRS 
        (:HTML-ATTR "href" "{$comment.comment_author_url}")
        (:HTML-ATTR "title" "{$comment.comment_author}")) 
    "")
 "{$comment.comment_author}"
 (:HTML-TAG 
    "/" 
    (:HTML-TAG-NAME "a")
    (:HTML-ATTRS) 
    "") 
 "" 
 (:HTML-TAG 
    "" 
    (:HTML-TAG-NAME "cond:else")
    (:HTML-ATTRS) 
    "/") 
 "{$comment.comment_author}"
 (:HTML-TAG 
    "/" 
    (:HTML-TAG-NAME "cond:if")
    (:HTML-ATTRS) 
    "")
 " on {$comment.date} " 
 (:HTML-TAG 
    "/" 
    (:HTML-TAG-NAME "ul")
    (:HTML-ATTRS) 
    "") 
 "" 
 (:HTML-TAG 
    "/" 
    (:HTML-TAG-NAME "div")
    (:HTML-ATTRS) 
    "") 
 "postfix text")