Skip to content

Instantly share code, notes, and snippets.

@kindlychung

kindlychung/multi.clj Secret

Created May 10, 2015 13:19
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kindlychung/bfc4cbad0b01a866b452 to your computer and use it in GitHub Desktop.
Save kindlychung/bfc4cbad0b01a866b452 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
multi.clj
(ns-unmap *ns* 'fill)
(defn- fill-dispatch [node value]
(if (= :input (:tag node))
[(:tag node) (-> node :attrs :type)]
(:tag node)))
(defmulti fil
#'fill-dispatch
:default nil)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment