utils.clj

(ns org.rathore.amit.webbing.utils)

(filter (complement empty?) (seq (.split "d[general][client_time]" "[\\[\\]]")))

(defn- break-key-for-nesting [nested-key]
  (let [tokens (seq (.split nested-key "[\\[\\]]"))
	filtered (filter (complement empty?) tokens)
	with-dashes (map #(.replace % "_" "-") filtered)]
    with-dashes
))

(defn- insert-nested-keys [nested-key value container]
  (let [broken (break-key-for-nesting nested-key)]
    (update-in container broken (constantly value))))

(defn convert-to-nested-map [singularized]
  (let [converter (fn [container [k v]]
		    (insert-nested-keys k v container))]
    (reduce converter {} singularized)))