URL parameter parsing with clojurescript

url-param.cljs

(defn parse-params
  "Parse URL parameters into a hashmap"
  []
  (let [param-strs (-> (.-location js/window) (split #"\?") last (split #"\&"))]
    (into {} (for [[k v] (map #(split % #"=") param-strs)]
               [(keyword k) v]))))

This function does not handle escape codes:

(new URLSearchParams("?foo=E%2BAXQB%2BA")).get("foo")
// => "E+AXQB+A"

(.-search (.-location js/window))
;; => "?foo=E%2BAXQB%2BA"
(parse-params)
;; => {:foo "E%2BAXQB%2BA"}

Here's a drop-in replacement which does:

(defn parse-params
  "Parse URL parameters into a hashmap"
  []
  (->> js/window
       (.-location)
       (.-search)
       (new js/URLSearchParams)
       (seq)
       
       ;; NB: `(js->clj v :keywordize-keys true)` does not keywordize
       ;;     our map keys, so we do that manually afterwards.
       (js->clj)
       (into {})
       (keywordize-keys) ;; clojure.walk/keywordize-keys
))

(comment
  (.-search (.-location js/window))
  ;; => "?foo=E%2BAXQB%2BA"
  (parse-params)
  ;; => {:foo "E+AXQB+A"}
)