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

automatically set scheduled payment

Browse Source
This commit is contained in:
Bryce
2024-03-24 14:26:30 -07:00
parent 6bd475e86d
commit ede4d756af
4 changed files with 170 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
src/clj/auto_ap/ssr/utils.clj
View File

@@ -185,28 +185,28 @@
(mt2/transformer
{:decoders
{'inst? {:compile (fn [schema _]
(let [properties (mc/properties schema)
format (:format properties atime/normal-date)]
(fn [m]
(if (string? m)
(coerce/to-date-time (atime/parse m format))
(let [properties (mc/properties schema)
format (:format properties atime/normal-date)]
(fn [m]
(if (string? m)
(coerce/to-date-time (atime/parse m format))
m))))}}
:encoders
{'inst?
m))))}}
:encoders
{'inst?
{:compile (fn [schema _]
(let [properties (mc/properties schema)
format (:format properties atime/normal-date)]
(fn [m]
(cond
(inst? m)
(atime/unparse-local (coerce/to-date-time m) format)
(let [properties (mc/properties schema)
format (:format properties atime/normal-date)]
(fn [m]
(cond
(inst? m)
(atime/unparse-local (coerce/to-date-time m) format)
(instance? org.joda.time.DateTime m)
(atime/unparse-local m format)
(instance? org.joda.time.DateTime m)
(atime/unparse-local m format)
:else
m))))}}}))
:else
m))))}}}))
@@ -244,6 +244,18 @@
m))
m))))}}}))
(defn ->db-id [m]
(cond
(map? m)
(:db/id m)
(nat-int? m)
m
(and (string? m) (not-empty m))
(Long/parseLong m)
:else
m))
(def pull-transformer
(mt2/transformer {:decoders
{:entity-map
@@ -302,7 +314,7 @@
(get headers "hx-request"))]
(alog/peek ::check {:enabled? is-htmx-that-should-inherit-url-parameters?
:params (:query-params request)})
(if is-htmx-that-should-inherit-url-parameters?
(handler (update request :query-params (fn [qp]
(->> (concat (:hx-query-params request) qp)
@@ -311,7 +323,7 @@
(def dissoc-nil-transformer
(let [e {:map {:compile (fn [schema _]
(let [e {:map {:compile (fn [schema _]
(fn [data]
(if (map? data)
(filter-vals
@@ -580,7 +592,7 @@
(with-precision 2
(double (.setScale (bigdec d) 2 java.math.RoundingMode/HALF_UP))))
(defn wrap-implied-route-param [handler & {:as route-params}]
(fn [request]
(handler (update-in request [:route-params] merge route-params))))