notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

fixed warnings.

Browse Source
This commit is contained in:
Bryce Covert
2022-07-26 05:56:41 -07:00
parent f6f73a6110
commit 96c80853ef
133 changed files with 670 additions and 1640 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
src/cljs/auto_ap/effects.cljs
View File

@@ -1,18 +1,20 @@
(ns auto-ap.effects
(:require-macros [cljs.core.async.macros :refer [go]])
(:require [re-frame.core :as re-frame]
[cljs-http.client :as http]
[cljs-time.coerce :as c]
[cljs-time.core :as time]
[cljs-time.format :as format]
[cljs.core.async :refer [<! ] :as async]
[clojure.string :as str]
[clojure.walk :as walk]
[venia.core :as v]
[auto-ap.history :as p]
[auto-ap.views.utils :refer [date->str standard]]
[auto-ap.status :as status]
[pushy.core :as pushy]))
(:require
[auto-ap.history :as p]
[auto-ap.status :as status]
[auto-ap.views.utils :refer [date->str standard]]
[cemerick.url :as url]
[cljs-http.client :as http]
[cljs-time.coerce :as c]
[cljs-time.core :as time]
[cljs-time.format :as format]
[cljs.core.async :refer [<!] :as async]
[clojure.string :as str]
[clojure.walk :as walk]
[pushy.core :as pushy]
[re-frame.core :as re-frame]
[venia.core :as v]))
(re-frame/reg-fx
:redirect
@@ -26,8 +28,8 @@
(pushy/set-token! p/history
(str (.-protocol (.-location js/window)) "//" (.-host (.-location js/window)) (.-pathname (.-location js/window))
"?"
(cemerick.url/map->query (->> uri-params
(filter (fn [[k v]] (and v
(url/map->query (->> uri-params
(filter (fn [[_ v]] (and v
(or (not (seqable? v))
(not-empty v)))) )
(map