converted payments over

src/cljs/auto_ap/effects.cljs

@@ -21,19 +21,16 @@
 (re-frame/reg-fx
  :set-uri-params
  (fn [uri-params]
-   (println "HERE?")
    (pushy/set-token! p/history
                      (str (.-protocol (.-location js/window)) "//" (.-host (.-location js/window)) (.-pathname (.-location js/window))
                           "?"
-                          (cemerick.url/map->query (into {} (filter (fn [[k v]] v) uri-params)))
-                          #_(reduce-kv (fn [result k v]
-                                       (if v
-                                         (str (or result "?")
-                                              (when result "&")
-                                              (name k) "=" (js/encodeURI v))
-                                         result))
-                                     nil
-                                     uri-params)))))
+                          (cemerick.url/map->query (->> uri-params
+                                                        (filter (fn [[k v]] (not-empty v)) )
+                                                        (map
+                                                         (fn [[k v]]
+                                                           (if (string? v)
+                                                             [k (str "\"" v "\"")])))
+                                                        (into {} )))))))
 
 (re-frame/reg-fx
  :new-window