Remove uxbox.view.router ns.

frontend/src/uxbox/view/router.cljs

@@ -1,77 +0,0 @@
-;; This Source Code Form is subject to the terms of the Mozilla Public
-;; License, v. 2.0. If a copy of the MPL was not distributed with this
-;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
-;;
-;; Copyright (c) 2015-2017 Andrey Antukh <niwi@niwi.nz>
-
-(ns uxbox.util.router
-  (:require [bide.core :as r]
-            [beicon.core :as rx]
-            [potok.core :as ptk]
-            [uxbox.main.store :as st]))
-
-(enable-console-print!)
-
-(defonce +router+ nil)
-
-;; --- Update Location (Event)
-
-(deftype UpdateLocation [id params]
-  ptk/UpdateEvent
-  (update [_ state]
-    (let [route (merge {:id id}
-                       (when params
-                         {:params params}))]
-      (assoc state :route route))))
-
-(defn update-location?
-  [v]
-  (instance? UpdateLocation v))
-
-(defn update-location
-  [name params]
-  (UpdateLocation. name params))
-
-;; --- Navigate (Event)
-
-(deftype Navigate [id params]
-  ptk/EffectEvent
-  (effect [_ state stream]
-    (r/navigate! +router+ id params)))
-
-(defn navigate
-  ([id] (navigate id nil))
-  ([id params]
-   {:pre [(keyword? id)]}
-   (Navigate. id params)))
-
-;; --- Public Api
-
-(defn init
-  ([routes]
-   (init routes nil))
-  ([routes {:keys [default] :or {default :auth/login}}]
-   (let [opts {:on-navigate #(st/emit! (update-location %1 %2))
-               :default default}
-         router (-> (r/router routes)
-                    (r/start! opts))]
-     (set! +router+ router)
-     router)))
-
-(defn go
-  "Redirect the user to other url."
-  ([id] (go id nil))
-  ([id params]
-   (st/emit! (navigate id params))))
-
-(defn route-for
-  "Given a location handler and optional parameter map, return the URI
-  for such handler and parameters."
-  ([id]
-   (if +router+
-     (r/resolve +router+ id)
-     ""))
-  ([id params]
-   (if +router+
-     (r/resolve +router+ id params)
-     "")))