Retrieve order of keys in an edn-map

ordered-keys-from-edn-map.clj

;; Retrieve order of keys in an edn-map

(defn ordered-keys-from-edn-map [edn]
  (assert (map? (read-string edn)))
  (let [list-of-symbols (-> edn
                            (clojure.string/replace-first "{" "[")
                            (clojure.string/replace #"}(\s+)$" "]")
                            read-string)]
    (->> list-of-symbols
         (partition 2)
         (map first))))

;; (ordered-keys-from-edn-map "{:foo 42 ,:bar {:hello 43}  :baz hello} \n  ")
;; => (:foo :bar :baz)