(cloud) adds basic capabilities for queries
This commit is contained in:
1
deps.edn
1
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"}}}
|
||||
|
||||
@@ -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")))
|
||||
|
||||
@@ -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"}
|
||||
|
||||
Reference in New Issue
Block a user