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

Supports more

Browse Source
This commit is contained in:
Bryce
2024-12-16 21:55:06 -08:00
parent b7826ad6ce
commit da2702f9e8
5 changed files with 83 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/clj/auto_ap/ssr/components/inputs.clj
View File

@@ -338,6 +338,7 @@
[:div.shrink {:x-data (hx/json {:value (:value params)
:tippy nil
:dp nil})
"x-effect" "console.log('changed to' +value)"
"@change-date.camel" "$dispatch('change')"
}
[:input

5
src/clj/auto_ap/ssr/components/periods.clj
View File

@@ -18,8 +18,9 @@
:end
(atime/unparse-local atime/normal-date))})
:x-effect "console.log('periods are', periods)"
:x-init "$watch('periods', ds => source_date= ds.length > 0 ? ds[0].end : null)" }
[:template {:x-for "(v,n) in periods"}
[:template {:x-for "(v,n) in periods" ":key" "n"}
[:div
[:input {:type "hidden"
":name" "'periods[' + n + '][start]'"
@@ -57,6 +58,8 @@
(buttons/a-button- {"@click" "periods=[calendarYearPeriod(source_date)]"} [:span "Calendar year ("
[:span {:x-text "parseMMDDYYYY(source_date).getFullYear()"}]
")"])
(buttons/a-button- {"@click" "periods=getTwelveCalendarMonthsPeriods(source_date)"} [:span "12 months, ending "
[:span {:x-text "parseMMDDYYYY(source_date).toLocaleString('default', { month: 'long' })"}]])
[:hr {:class "h-px my-1 bg-gray-200 border-0 dark:bg-gray-700"} ]
(buttons/a-button- {"@click" "periods=getLastMonthPeriods()"} "Last Month")
(buttons/a-button- {"@click" "periods=getMonthToDatePeriods()"} "Month to date")

3
src/clj/auto_ap/ssr/grid_page_helper.clj
View File

@@ -242,6 +242,9 @@
true (wrap-secure)
true (wrap-client-redirect-unauthenticated)))
;; TODO oob-render is wonky, requires thinking about accidental side effects. Really only used in a small handful of cases. probably best to just
;; use alpine for those cases, or make it so that date filters issue a change event when they render. for example, when you click on "month",
;; make it so that it rerenders the date range component, along with a hx-trigger change header
(defn csv-route [{:keys [fetch-page headers page->csv-entities]} & {:keys []}]
(cond-> (fn csv-route [{:keys [identity] :as request}]

74
src/clj/auto_ap/ssr/transaction.clj
View File

@@ -5,7 +5,7 @@
:refer [add-sorter-fields apply-pagination apply-sort-4 conn
merge-query observable-query pull-many]]
[auto-ap.graphql.utils :refer [extract-client-ids]]
[auto-ap.permissions :refer [can? wrap-must]]
[auto-ap.permissions :refer [wrap-must]]
[auto-ap.query-params :refer [wrap-copy-qp-pqp]]
[auto-ap.routes.transactions :as route]
[auto-ap.routes.utils :refer [wrap-client-redirect-unauthenticated]]
@@ -19,11 +19,12 @@
[auto-ap.ssr.svg :as svg]
[auto-ap.ssr.utils
:refer [apply-middleware-to-all-handlers clj-date-schema
entity-id html-response main-transformer strip
wrap-merge-prior-hx wrap-schema-enforce]]
entity-id html-response strip wrap-merge-prior-hx
wrap-schema-enforce]]
[auto-ap.time :as atime]
[bidi.bidi :as bidi]
[clj-time.coerce :as coerce]
[clojure.string :as str]
[datomic.api :as dc]
[hiccup.util :as hu]
[malli.core :as mc]))
@@ -82,8 +83,7 @@
:value (:vendor (:query-params request))
:value-fn :db/id
:content-fn :vendor/name}))
(com/field {:label "Bank Account"}
(bank-account-filter* request))
(bank-account-filter* request)
(date-range-field* request)
@@ -140,8 +140,10 @@
(seq (:description args))
(merge-query {:query {:in ['?description]
:where ['[?e :transaction/description-original ?description]]}
:args [(:description args)]})
:where ['[?e :transaction/description-original ?do]
'[(clojure.string/lower-case ?do) ?do2]
'[(.contains ?do2 ?description)]]}
:args [(str/lower-case (:description args))]})
(:amount-gte args)
(merge-query {:query {:in ['?amount-gte]
@@ -259,6 +261,10 @@
:page-specific-nav filters
:fetch-page fetch-page
:query-schema query-schema
:oob-render
(fn [request]
[(assoc-in (date-range-field* request) [1 :hx-swap-oob] true)
(assoc-in (exact-match-id* request) [1 :hx-swap-oob] true)])
:action-buttons (fn [request]
[(com/button {:color :primary
:hx-get (bidi/path-for ssr-routes/only-routes
@@ -266,17 +272,17 @@
"Add Transaction")])
:row-buttons (fn [request entity]
[#_(when (and (can? (:identity request) {:subject :transaction :activity :edit}))
(com/icon-button {:hx-put (bidi/path-for ssr-routes/only-routes
::route/edit-wizard
:db/id (:db/id entity))}
svg/pencil))
(com/icon-button {:hx-put (bidi/path-for ssr-routes/only-routes
::route/edit-wizard
:db/id (:db/id entity))}
svg/pencil))
#_(when (and (can? (:identity request) {:subject :transaction :activity :delete}))
(com/icon-button {:hx-delete (bidi/path-for ssr-routes/only-routes
::route/delete
:db/id (:db/id entity))
:hx-confirm "Are you sure you want to delete this transaction?"}
svg/trash))])
(com/icon-button {:hx-delete (bidi/path-for ssr-routes/only-routes
::route/delete
:db/id (:db/id entity))
:hx-confirm "Are you sure you want to delete this transaction?"}
svg/trash))])
:breadcrumbs [[:a {:href (bidi/path-for ssr-routes/only-routes ::route/page)}
"Transactions"]]
:title (fn [r]
@@ -284,15 +290,15 @@
:entity-name "register"
:route ::route/table
:csv-route ::route/csv
:break-table (fn [request entity]
(cond
(= (-> request :query-params :sort first :name) "Vendor")
(or (-> entity :transaction/vendor :vendor/name)
"No vendor")
:else nil))
:break-table (fn [request entity]
(cond
(= (-> request :query-params :sort first :name) "Vendor")
(or (-> entity :transaction/vendor :vendor/name)
"No vendor")
:else nil))
:page->csv-entities (fn [[transactions]]
transactions)
:headers [{:key "id"
@@ -310,11 +316,11 @@
{:key "vendor"
:name "Vendor"
:sort-key "vendor"
:render (fn [e]
:render (fn [e]
#_(alog/peek :vend e)
(or
(-> e :transaction/vendor :vendor/name)
[:span.italic.text-gray-400 (-> e :transaction/description-simple)]))
(or
(-> e :transaction/vendor :vendor/name)
[:span.italic.text-gray-400 (-> e :transaction/description-simple)]))
:render-csv (fn [e] (or (-> e :transaction/vendor :vendor/name)
(-> e :transaction/description-simple)))}
{:key "description"
@@ -333,7 +339,7 @@
:sort-key "amount"
:class "text-right"
:render #(format "$%,.2f" (:transaction/amount %))
:render-csv :transaction/amount }
:render-csv :transaction/amount}
{:key "links"
:name "Links"
:show-starting "lg"
@@ -348,11 +354,11 @@
{:exact-match-id (:db/id (:transaction/payment i))})
:color :primary
:content (format "Payment '%s'" (-> i :transaction/payment :payment/invoice-number))})
(and (:transaction/client-overrides i) (seq (:transaction/client-overrides i)))
{:link (hu/url (bidi/path-for client-routes/routes
:transactions)
{:exact-match-id (:db/id i)})
:transactions)
{:exact-match-id (:db/id i)})
:color :primary
:content "Client Overrides"})))
:render-for #{:html}}]}))