Namespaces

 
1.0.0-SNAPSHOT Arrow_down_16x16
  • (annotate node)

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 Source net/cgrand/enlive_html.clj:192 top

(defn annotate [node]
  (cond
    (xml/tag? node)
      (let [node (update-in node [:content] #(map annotate %))] 
        (vary-meta node assoc ::annotations {:emit (tag-emitter node)}))
    (xml/comment? node)
      (vary-meta node assoc ::annotations {:emit (comment-emitter node)})  
    :else node))
Vars in net.cgrand.enlive-html/annotate: assoc cond defn let vary-meta
Used in 0 other vars

Comments top

No comments for annotate. Log in to add a comment.