Returning the query part of the URL in a usable form in ClojureScript

url-query.cljs

(ns url-query.query
  (:require [clojure.string :as cs]))

;; I wrote this function for a wee side project and ended up not using it - but it is quite a useful function.
;; Freeware, not copyrighted, no warranty. Use at your own risk.

(defn get-query-part-as-map
  "Returns the query part of the current document URL as a keyword-string map."
  []
  (let [query-nvs (map #(cs/split % "=") (cs/split (subs js/window.location.search 1) "&"))]
    (when (every? #(= (count %) 2) query-nvs)
      (zipmap (map #(keyword (first %)) query-nvs)(map #(nth % 1) query-nvs)))))