better padding
This commit is contained in:
@@ -83,6 +83,7 @@ valid-clients (extract-client-ids (:clients request)
|
||||
[:client/code (:client-code request)]))
|
||||
totals
|
||||
(->> (dc/q '[:find ?sd (sum ?total)
|
||||
:with ?e
|
||||
:in $ [?clients ?start-date ?end-date]
|
||||
:where [(iol-ion.query/scan-sales-orders $ ?clients ?start-date ?end-date) [[?e _ ?sort-default] ...]]
|
||||
[?e :sales-order/date ?d]
|
||||
@@ -93,7 +94,7 @@ valid-clients (extract-client-ids (:clients request)
|
||||
(coerce/to-date (time/plus (time/now) (time/days -14)))
|
||||
(coerce/to-date (time/now))])
|
||||
(sort-by first))]
|
||||
(com/card {:class "w-full h-full"}
|
||||
(com/card {:class "w-full h-full p-4"}
|
||||
[:canvas.w-full.h-full {:x-data (hx/json {:chart nil
|
||||
:labels (map first totals)
|
||||
:data (map second totals)})
|
||||
@@ -120,13 +121,13 @@ valid-clients (extract-client-ids (:clients request)
|
||||
|
||||
(defn- page-contents [request]
|
||||
[:div
|
||||
[:div {:class "grid grid-cols-1 lg:grid-cols-2 2xl:grid-cols-3 gap-4 overflow-scroll auto-rows-fr"}
|
||||
[:div {:class "grid grid-cols-1 lg:grid-cols-2 2xl:grid-cols-3 gap-4 auto-rows-fr"}
|
||||
[:div (com/card {:class "w-full h-full"} [:div.w-full.h-full "report-1"])]
|
||||
[:div "hi"]
|
||||
[:div.row-span-2
|
||||
(bank-accounts-card request)]
|
||||
|
||||
[:div.bg-purple-300.p-4
|
||||
[:div
|
||||
(sales-chart-card request)]
|
||||
[:div.bg-slate-300.p-4 "hi"]
|
||||
] ])
|
||||
|
||||
Reference in New Issue
Block a user