Получить все названные маршруты

Question

Я сейчас учусь reagent с secretary как его маршрут. Я считаю, что я могу использовать query-params получить хэш-карту всех параметров с question mark (?) лайк ?name=Daniel

(ns feampersanda.core
    (:require-macros [secretary.core :refer [defroute]])
    (:import goog.History)
    (:require
      [secretary.core :as secretary]
      [goog.events :as events]
      [goog.history.EventType :as EventType]
      [reagent.core :as r]))

;; ------------------------------
;; States
;; page --> is occupied by page state
(def app-state (r/atom {:params {}}))

;; ------------------------------
;; History

(defn hook-browser-navigation! []
  (doto (History.)
    (events/listen
     EventType/NAVIGATE
     (fn [event]
       (secretary/dispatch! (.-token event))))
    (.setEnabled true)))

;; -------------------------
;; Views


;; -------------------------
;; Parameters

(defn update-query-params! [query-params]
  (do
    (js/console.log (str query-params))
    (swap! app-state assoc-in [:params :query] query-params))
  )

;; -------------------------
;; Routing Config

(defn app-routes []
  (secretary/set-config! :prefix "#")

  (defroute "/" [query-params]
            (do
              (update-query-params! query-params)
              (swap! app-state assoc :page :home)))

  (defroute "/about/:id" [id query-params]
            (do
              (js/console.log id)
              (update-query-params! query-params)
              (swap! app-state assoc :page :about)))


  (hook-browser-navigation!))

(defmulti current-page #(@app-state :page))

(defmethod current-page :home []
  [:div [:h1 (str "Home Page")]
   [:a {:href "#/about"} "about page"]
   [:br]
   [:a {:href "#/about"} (str (:count @app-state))]
   ])

(defmethod current-page :about []
  [:div [:h1 "About Page"]
   [:a {:href "#/"} (str "home page" " --> "
                         (:yes (:query (:params @app-state)))
                         )]])

(defmethod current-page :default []
  [:div
   [:p "404"]
   ])


;; -------------------------
;; Initialize app

(defn mount-root []
  (app-routes)
  (r/render [current-page] (.getElementById js/document "app")))

(defn init! []
  (mount-root))

Я не знаю как пройти id параметр к defmethodпоэтому я хочу, чтобы он был сохранен внутри атома, поэтому мне интересно, как получить хэш-карту, которая включает в себя все названные параметры, такие как http://0.0.0.0:3449/#/about/black/12 в {:path "black" :id "12"}

Answer 1

Одним из решений будет использование библиотеки URL cemerick

(require '[cemerick.url :as url])
(keys (:query (url/url (-> js/window .-location .-href))))

https://github.com/cemerick/url