on-coercion-error

modules/reitit-frontend/src/reitit/frontend.cljs

@@ -23,17 +23,25 @@
 (defn match-by-path
   "Given routing tree and current path, return match with possibly
   coerced parameters. Return nil if no match found."
-  [router path]
-  (let [uri (.parse Uri path)]
-    (if-let [match (r/match-by-path router (.getPath uri))]
-      (let [q (query-params uri)
-            match (assoc match :query-params q)
-            ;; Return uncoerced values if coercion is not enabled - so
-            ;; that tha parameters are always accessible from same property.
-            parameters (or (coercion/coerce! match)
-                           {:path (:path-params match)
-                            :query q})]
-        (assoc match :parameters parameters)))))
+  ([router path] (match-by-path router path nil))
+  ([router path {:keys [on-coercion-error]}]
+   (let [uri (.parse Uri path)
+         coerce! (if on-coercion-error
+                   (fn [match]
+                     (try (coercion/coerce! match)
+                          (catch js/Error e
+                            (on-coercion-error e)
+                            (throw e))))
+                   coercion/coerce!)]
+     (if-let [match (r/match-by-path router (.getPath uri))]
+       (let [q (query-params uri)
+             match (assoc match :query-params q)
+             ;; Return uncoerced values if coercion is not enabled - so
+             ;; that tha parameters are always accessible from same property.
+             parameters (or (coerce! match)
+                            {:path (:path-params match)
+                             :query q})]
+         (assoc match :parameters parameters))))))
 
 (defn match-by-name
   "Given a router, route name and optionally path-parameters,

modules/reitit-frontend/src/reitit/frontend/history.cljs

@@ -40,7 +40,7 @@
     nil)
   (-on-navigate [this path]
     (reset! last-fragment path)
-    (on-navigate (rf/match-by-path router path) this))
+    (on-navigate (rf/match-by-path router path this) this))
   (-get-path [this]
     ;; Remove #
     ;; "" or "#" should be same as "#/"
@@ -125,7 +125,7 @@
       (-on-navigate this (-get-path this))
       this))
   (-on-navigate [this path]
-    (on-navigate (rf/match-by-path router path) this))
+    (on-navigate (rf/match-by-path router path this) this))
   (-stop [this]
     (gevents/unlistenByKey listen-key)
     (gevents/unlistenByKey click-listen-key)

test/cljs/reitit/frontend/core_test.cljs

@@ -80,6 +80,15 @@
       (is (= "/5"
              (r/match->path (rf/match-by-name router ::foo {:id 5}))))
 
+      (testing "coercion error"
+        (testing "throws without options"
+          (is (thrown? js/Error (m (rf/match-by-path router "/a")))))
+
+        (testing "thows and calles on-coercion-error"
+          (let [exception (atom nil)]
+            (is (thrown? js/Error (m (rf/match-by-path router "/a" {:on-coercion-error (fn [e] (reset! exception e))}))))
+            (is (= {:id "a"} (-> @exception (ex-data) :value))))))
+
       (testing "query param is read"
         (is (= (r/map->Match
                  {:template "/:id"