core.match example

gistfile1.clj

(defn interactive-content?
  "Check if an html element (in hiccup form) is interactive content. See http://www.w3.org/html/wg/drafts/html/master/dom.html#interactive-content-0"
  [node]
  (match node
         [(:or :a :button :details :embed :iframe :keygen :label :select :textarea :video) & _] true
         [(:or :audio :video) {:controls _} & _] true
         [ (:or :img :object) {:usemap _} & _] true
         [:input attrs & _ ] (not (= "hidden"(:type attrs)))
         :else false))

(def ex1 
  [:a
    {:shape "rect", :href "http://www.github.com/isaksky"}
      [:img
       {:class "gh-icon",
        :src "img/blacktocat-16-d97e09c0.png",
        :width "16",
        :height "16"}]
      "Github"])

(interactive-content? ex1) => true

(def ex2 [:input {:type "hidden", :name "utf8", :value "1"}])

(interactive-content? ex2) => false