fff.clj

(let [fig (figure)
      cap (figcaption)]
  (fig (img :src "http://example.com")
       (cap "hello world")))

;;;;;


(defelem fancy-list
  [_ [& items]]
  (div
    :class "fancy-list"
    (div
      :class "fancy-list-items"
      (ul (map (li :class "fancy-list-item") items)))))

;;;

(html
  (body
    (fancy-list
      (p "mow the lawn")
      (p (span "take out the ") (code "garbage"))
      (img :src "http://foop.com"))))

;;;

(defc items
  ["mow the lawn"
   "take out garbage"
   "enjoy lolcats"])

(html
  (body
    (fancy-list
      (for-tpl [item items]
        (p item)))))

;;;

(defc items
  ["take out garbage"
   "enjoy lolcats"])

(let [mylist (fancy-list (p "mow the lawn"))]
  (html
    (body
      (mylist
        (for-tpl [item items]
          (p item))))))