gistfile1.clj

(defn canonical-input-value [input]
  (case (.toLowerCase (.getAttribute input "type"))
    "checkbox" (.-checked input)
    "textarea" (.-innerHTML input)
    (.-value input)))

(defn input-pair [input]
  [(.getAttribute input "name") (canonical-input-value input)])

(defn is-file? [input]
  (= (.getAttribute input "type") "file"))

(defn fetch-form-values [form]
  (into {} (comp (remove is-file?) (map input-pair)) (.querySelectorAll form "input[name]")))