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

minor fix.

Browse Source
This commit is contained in:
Bryce Covert
2022-01-11 11:36:03 -08:00
parent 55450a3c32
commit 6c9a3d7ece
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/clj/auto_ap/square/core.clj
View File

@@ -1,9 +1,11 @@
(ns auto-ap.square.core (ns auto-ap.square.core
(:require [auto-ap.datomic :refer [conn remove-nils]] (:require [auto-ap.datomic :refer [conn remove-nils]]
[auto-ap.utils :refer [by]] [auto-ap.utils :refer [by]]
[auto-ap.time :as atime]
[clj-http.client :as client] [clj-http.client :as client]
[clj-time.coerce :as coerce] [clj-time.coerce :as coerce]
[clj-time.core :as time] [clj-time.core :as time]
[clj-time.periodic :as periodic]
[clj-time.format :as f] [clj-time.format :as f]
[config.core :refer [env] :as cfg ] [config.core :refer [env] :as cfg ]
[clojure.string :as str] [clojure.string :as str]
@@ -21,13 +23,13 @@
"Content-Type" "application/json"}) "Content-Type" "application/json"})
(defn lookup-dates [] (defn lookup-dates []
(->> (clj-time.periodic/periodic-seq (time/plus (time/now) (time/days -15)) (->> (periodic/periodic-seq (time/plus (time/now) (time/days -15))
(time/now) (time/now)
(time/days 5)) (time/days 5))
(map (fn [d] (map (fn [d]
[(auto-ap.time/unparse (time/plus d (time/days 1)) auto-ap.time/iso-date) [(atime/unparse (time/plus d (time/days 1)) atime/iso-date)
(auto-ap.time/unparse (time/plus d (time/days 5)) auto-ap.time/iso-date)])))) (atime/unparse (time/plus d (time/days 5)) atime/iso-date)]))))
(defn locations [client] (defn locations [client]
(->> (client/get "https://connect.squareup.com/v2/locations" (->> (client/get "https://connect.squareup.com/v2/locations"