luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-16 16:01:11 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add dispatch for every implementation of IPersistentMap

Browse source 
Closes #700
This commit is contained in:
Ben Sless 2024-09-13 20:25:51 +03:00
parent 02d4f797ca
commit c96b22bc5f
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
modules/reitit-core/src/reitit/walk.clj
View file

@ -9,7 +9,7 @@
[m k v]
(assoc! m (if (string? k) (keyword k) (-keywordize k)) (-keywordize v)))
(defn- -keywordize-map
(defn- -keywordize-kvreducible
[m]
(persistent! (reduce-kv keywordize-kv (transient (empty m)) m)))
@ -29,6 +29,14 @@
(doseq [type [clojure.lang.PersistentArrayMap
clojure.lang.PersistentHashMap
clojure.lang.PersistentTreeMap]]
(extend type IKeywordize {:-keywordize -keywordize-kvreducible}))
(defn- -keywordize-map
[m]
(let [f (fn [[k v]] (if (string? k) [(keyword k) v] [k v]))]
(into {} (map f) m)))
(doseq [type [clojure.lang.IPersistentMap]]
(extend type IKeywordize {:-keywordize -keywordize-map}))
(extend-protocol IKeywordize