gistfile1.txt

(require 'clojure.walk)

(let [h (fn [f]
          (let [r (cond
                   (vector? f)
                   `(~(first f) ~@(rest f))
                   (map? f)
                   (map (fn [[k v]]
                          `(field ~k ~(h v)))
                        f)
                   :else f)]
            r))]
  (clojure.walk/prewalk
   h
   [:a
    {:one [:b "this"]
     :two [:c 100]
     :three [:d [:e 1] 2]}]))

;; results in => (:a ((field :one (:b "this")) (field :two (:c 100)) (field :three (:d (:e 1) 2))))
;; how to get => (:a (field :one (:b "this")) (field :two (:c 100)) (field :three (:d (:e 1) 2)))