Some Clojure parsing and flatten

new_file0.clj

(defn parse-data
  [form-data]
  (->> (map (fn [[k v]] [k (:value v)]))
       (into {})))

(defn flatten-keys* [a ks m]
  (if (map? m)
    (reduce into (map (fn [[k v]] (flatten-keys* a (conj ks k) v)) (seq m)))
    (assoc a ks m)))

(defn flatten-keys [m] (flatten-keys* {} [] m))

(defn flatten-data
  [form-data]
  (reduce
    (fn [result kv]
      (if (= :value (last (first kv)))
        (let [nest-level (count (first kv))]
          (conj result {(nth (first kv) (- nest-level 2)) (last kv)}))
        result
        ))
    {}
    (flatten-keys form-data))
)