diff --git a/deps.edn b/deps.edn index 51a37f8a..f8b3bdca 100644 --- a/deps.edn +++ b/deps.edn @@ -2,6 +2,7 @@ :deps {com.cognitect/anomalies {:mvn/version "0.1.12"} com.datomic/client-cloud {:mvn/version "1.0.123"} com.datomic/ion {:mvn/version "1.0.62"} + clj-time/clj-time {:mvn/version "0.15.2"} org.clojure/clojure {:mvn/version "1.10.1"} org.clojure/data.json {:mvn/version "0.2.6"}} :mvn/repos {"datomic-cloud" {:url "s3://datomic-releases-1fc2183a/maven/releases"}}} diff --git a/iol_ion/src/iol_ion/query.clj b/iol_ion/src/iol_ion/query.clj index c975aea3..8e80d3f1 100644 --- a/iol_ion/src/iol_ion/query.clj +++ b/iol_ion/src/iol_ion/query.clj @@ -1,4 +1,5 @@ -(ns iol-ion.query) +(ns iol-ion.query + (:require [clj-time.core :as time])) #_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]} (defn dollars-0? [amt] @@ -7,3 +8,6 @@ #_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]} (defn dollars= [amt1 amt2] (dollars-0? (- amt1 amt2) )) + +(defn local-now [] + (time/to-time-zone (time/now) (time/time-zone-for-id "America/Los_Angeles"))) diff --git a/resources/datomic/ion-config.edn b/resources/datomic/ion-config.edn index e235329d..6977d884 100644 --- a/resources/datomic/ion-config.edn +++ b/resources/datomic/ion-config.edn @@ -8,5 +8,11 @@ iol-ion.tx/upsert-transaction iol-ion.tx/pay iol-ion.query/dollars= - iol-ion.query/dollars-0?] + iol-ion.query/dollars-0? + + iol-ion.query/local-now + clj-time.coerce/to-date-time + clj-time.coerce/to-date + clj-time.core/minus + clj-time.core/days] :app-name "iol-cloud"}