dom helpers functions

dom.cljs

;; this code licensed as CC0 1.0 Universal (SPDX: CC0-1.0)

(ns ^{:doc "DOM helpers"
      :author "Chris Oakman"}
  com.oakmac.some-project.util.dom
  (:require
    [goog.dom :as gdom]
    [goog.dom.forms :as gforms]))

;; TODO: this could be variadic with some options
(defn form->values
  "Returns the values from a DOM Form Element as a ClojureScript Map"
  [el]
  (let [el (gdom/getElement el)
        form-data-map (gforms/getFormDataMap el)
        form-data-obj (.toObject ^goog.structs.Map form-data-map)
        form-data (js->clj form-data-obj)]
    (reduce
      (fn [acc [k itm]]
        (assoc acc (keyword k) (first itm)))
      {}
      form-data)))