luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2026-01-09 08:39:50 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Fix cljs

Browse source
This commit is contained in:
Tommi Reiman 2019-01-13 22:10:01 +02:00
parent 16499cceb1
commit 3168747540
2 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
modules/reitit-core/src/reitit/impl.cljc
View file

@ -20,9 +20,15 @@
coll
coll))
(defn segments [path]
(defn segments
"Splits the path into sequence of segments, using `/` char. Assumes that the
path starts with `/`, stripping the first empty segment. e.g.
(segments \"/a/b/c\") ; => (\"a\" \"b\" \"c\")
(segments \"/a/) ; => (\"a\" \"\")"
[path]
#?(:clj (SegmentTrie/split ^String path)
:cljs (.split path #"/" 666)))
:cljs (rest (.split path #"/" 666))))
;;
;; https://github.com/pedestal/pedestal/blob/master/route/src/io/pedestal/http/route/prefix_tree.clj

3
modules/reitit-core/src/reitit/segment.cljc
View file

@ -57,6 +57,7 @@
:clj (.matcher ^SegmentTrie (or segment (SegmentTrie.)))))
(defn lookup [segment path]
#?(:cljs (-lookup segment (impl/segments path) {})
#?(:cljs (if-let [match (-lookup segment (impl/segments path) {})]
(assoc match :path-params (impl/url-decode-coll (:path-params match))))
:clj (if-let [match ^SegmentTrie$Match (SegmentTrie/lookup segment path)]
(->Match (.data match) (clojure.lang.PersistentHashMap/create (.params match))))))