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

Revisions on grid page to make parameters easier to grok

Browse Source
This commit is contained in:
Bryce
2023-09-25 16:26:42 -07:00
parent e23cc6e8fd
commit d5565f7cf8
9 changed files with 107 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/clj/auto_ap/datomic.clj
View File

@@ -623,14 +623,16 @@
(defn apply-pagination-raw [args results]
{:entries (->> results
(drop (:start args 0))
(take (:count args (or (:per-page args) default-pagination-size))))
(drop (or (:start args) 0))
(take (or (:count args) (:per-page args) default-pagination-size)))
:count (count results)})
(defn apply-pagination [args results]
{:ids (->> results
(drop (:start args 0))
(take (:count args (or (:per-page args) default-pagination-size)))
(drop (or (:start args) 0))
(take (or (:count args )
(:per-page args)
default-pagination-size))
(map last))
:count (count results)})

27
src/clj/auto_ap/datomic/reports.clj
View File

@@ -10,7 +10,8 @@
query2]]
[auto-ap.graphql.utils :refer [can-see-client? extract-client-ids]]
[clj-time.coerce :as c]
[datomic.api :as dc]))
[datomic.api :as dc]
[clojure.set :as set]))
(def default-read '[:db/id :report/client :report/created :report/url :report/name :report/creator])
@@ -21,16 +22,11 @@
(when (:client-code args)
[:client/code (:client-code args)]))
query (cond-> {:query {:find []
:in ['$ ]
:where []}
:args [db]}
:in '[$ [?c ...]]
:where '[[?e :report/client ?c]]}
:args [db valid-clients]}
(seq (:clients args))
(merge-query {:query {:in ['[?xx ...]]
:where ['[?e :report/client ?xx]]}
:args [valid-clients]})
(:sort args) (add-sorter-fields {"client" ['[?e :report/client ?c]
'[?c :client/name ?sort-client]]
"created" ['[?e :report/created ?sort-created]]
@@ -48,16 +44,21 @@
(defn graphql-results [ids db args]
(let [results (->> (pull-many db default-read ids)
(map #(update % :report/created c/from-date))
(group-by :db/id))]
(group-by :db/id))
valid-clients (extract-client-ids (:clients args)
(:client-id args)
(when (:client-code args)
[:client/code (:client-code args)]))]
(->> ids
(map results)
(filter identity)
(map first)
(filter (fn [r]
(every?
#(can-see-client? (:id args) %)
(map :db/id (:report/client r))))))))
(let [used-clients (set (map :db/id (:report/client r)))]
(= used-clients
(set/intersection valid-clients
used-clients))))))))
(defn get-graphql [args]
(let [db (dc/db conn)

3
src/clj/auto_ap/datomic/yodlee2.clj
View File

@@ -40,7 +40,8 @@
'[?client-id :client/code ?client-code]]}
:args [ (:client-code args)]})
(:sort args) (add-sorter-fields {"status" ['[?e :yodlee-provider-account/status ?sort-status]]}
(:sort args) (add-sorter-fields {"status" ['[?e :yodlee-provider-account/status ?sort-status]]
"last-updated" ['[?e :yodlee-provider-account/last-updated ?sort-last-updated]]}
args)
true
(merge-query {:query {:find ['?e ]

3
src/clj/auto_ap/ssr/company/company_1099.clj
View File

@@ -111,7 +111,8 @@
(sort-by (fn [[client _ amount]]
[(:client/code client ) amount]))
(into []))
paginated (apply-pagination-raw args all)]
paginated (apply-pagination-raw {:start (:start (:parsed-query-params args))
:per-page (:per-page (:parsed-query-params args))} all)]
[(:entries paginated) (:count paginated)]))
(def grid-page {:id "vendor-table"

11
src/clj/auto_ap/ssr/company/plaid.clj
View File

@@ -142,7 +142,12 @@
:nav (com/company-aside-nav)
:id-fn :db/id
:fetch-page (fn [user args]
(get-page (assoc args :id user)))
(get-page {:client (:client args)
:clients (:clients args)
:start (:start (:parsed-query-params args))
:sort (:sort (:parsed-query-params args))
:per-page (:per-page (:parsed-query-params args))
}))
:breadcrumbs [[:a {:href (bidi/path-for ssr-routes/only-routes
:company)}
"My Company"]
@@ -175,8 +180,8 @@
"Reauthenticate")]])
:headers [{:key "plaid-item"
:name "Plaid Item"
:sort-key "id"
:render :db/id}
:sort-key "external-id"
:render :plaid-item/external-id}
{:key "status"
:name "Status"
:sort-key "status"

8
src/clj/auto_ap/ssr/company/reports.clj
View File

@@ -19,7 +19,13 @@
:nav (com/company-aside-nav)
:id-fn :db/id
:fetch-page (fn [user args]
(r/get-graphql (into args {:id user})))
(prn args)
(r/get-graphql {:client (:client args)
:clients (:clients args)
:start (:start (:parsed-query-params args))
:per-page (:per-page (:parsed-query-params args))
:sort (:sort (:parsed-query-params args))
}))
:breadcrumbs [[:a {:href (bidi/path-for ssr-routes/only-routes
:company)}
"My Company"]

7
src/clj/auto_ap/ssr/company/yodlee.clj
View File

@@ -81,7 +81,12 @@ fastlink.open({fastLinkURL: '%s',
:nav (com/company-aside-nav)
:id-fn :db/id
:fetch-page (fn [user args]
(yodlee2/get-graphql (assoc args :id user)))
(yodlee2/get-graphql
{:client (:client args)
:clients (:clients args)
:sort (:sort (:parsed-query-params args))
:start (:start (:parsed-query-params args))
:per-page (:per-page (:parsed-query-params args))}))
:breadcrumbs [[:a {:href (bidi/path-for ssr-routes/only-routes
:company)}
"My Company"]

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

@@ -59,7 +59,7 @@
))
"default sort"))
(defn table* [grid-spec user {:keys [start per-page clients flash-id sort] :as params}]
(defn table* [grid-spec user {{:keys [start per-page clients flash-id sort]} :parsed-query-params :as params}]
(let [start (or start 0)
per-page (or per-page 30)
[entities total] ((:fetch-page grid-spec)
@@ -119,16 +119,20 @@
(defn parse-sort [grid-spec q]
(if (not-empty q)
(into []
(map (fn [k]
(let [[k v] (str/split k #":")]
{:sort-key (str k)
:asc (boolean (= "asc" v))
:name (:name (first (filter #(= (str k) (:sort-key %)) (:headers grid-spec))))
:sort-icon (if (= (boolean (= "asc" v)) true)
svg/sort-down
svg/sort-up)}))
(str/split q #",")))
(->>
(str/split q #",")
(map (fn [k]
(let [[key asc?] (str/split k #":")
matching-header (first (filter #(= (str key) (:sort-key %)) (:headers grid-spec)))]
{:sort-key (str key)
:asc (boolean (= "asc" asc?))
:matching-header matching-header
:name (:name matching-header)
:sort-icon (if (= (boolean (= "asc" asc?)) true)
svg/sort-down
svg/sort-up)})))
(filter :matching-header)
(into []))
[]))
(defn toggle-sort [grid-spec q k]
@@ -159,36 +163,38 @@
(defn params->query-string [q]
(-> q
(dissoc :client :session :client-selection :clients :query-params)
:parsed-query-params
(update :sort sort->query)
(url/map->query)))
(defn extract-params [grid-spec {:keys [query-params hx-query-params identity session] :as request}]
(let [{hx-start "start" hx-per-page "per-page" hx-sort "sort" } hx-query-params
{q-start "start" q-per-page "per-page" q-sort "sort" q-toggle-sort "toggle-sort"} query-params]
(cond-> {}
hx-start (assoc :start (some-> hx-start not-empty (Long/parseLong )))
q-start (assoc :start (some-> q-start not-empty (Long/parseLong )))
hx-per-page (assoc :per-page (some-> hx-per-page not-empty (Long/parseLong )))
q-per-page (assoc :per-page (some-> q-per-page not-empty (Long/parseLong )))
hx-sort (assoc :sort (parse-sort grid-spec hx-sort))
q-sort (assoc :sort (parse-sort grid-spec q-sort))
(not-empty q-toggle-sort) (update :sort #(toggle-sort grid-spec % q-toggle-sort) )
(seq query-params) (assoc :query-params query-params)
(:session request) (assoc :session (:session request))
(:client-selection (:session request)) (assoc :client-selection (:client-selection (:session request)))
(:clients request) (assoc :clients (:clients request))
(:client request) (assoc :client (:client request)))))
{q-start "start" q-per-page "per-page" q-sort "sort" q-toggle-sort "toggle-sort"} query-params
raw-query-params (merge (or hx-query-params {}) query-params)
parsed-query-params (cond-> (into {} (map (fn [[k v]] [(keyword k) v]) raw-query-params))
hx-start (assoc :start (some-> hx-start not-empty (Long/parseLong )))
q-start (assoc :start (some-> q-start not-empty (Long/parseLong )))
hx-per-page (assoc :per-page (some-> hx-per-page not-empty (Long/parseLong )))
q-per-page (assoc :per-page (some-> q-per-page not-empty (Long/parseLong )))
hx-sort (assoc :sort (doto (parse-sort grid-spec hx-sort) println))
q-sort (assoc :sort (doto (parse-sort grid-spec q-sort) println ))
(not-empty q-toggle-sort) (update :sort #(toggle-sort grid-spec % q-toggle-sort) )
true (dissoc :toggle-sort))]
{:raw-query-params raw-query-params
:parsed-query-params parsed-query-params
:client-selection (:client-selection (:session request))
:clients (:clients request)
:client (:client request)
:request request}))
(defn table [grid-spec {:keys [query-params hx-query-params identity session] :as request}]
(let [params (extract-params grid-spec request)
query-string (params->query-string params)]
(defn table [grid-spec {:keys [identity] :as request}]
(let [params (extract-params grid-spec request)]
(html-response (table*
grid-spec
identity
params
)
:headers {"hx-push-url" (str "?" query-string)})))
params)
:headers {"hx-push-url" (str "?" (params->query-string params))})))
(defn page [grid-spec {:keys [identity] :as request}]
(let [params (extract-params grid-spec request)]

57
src/clj/auto_ap/ssr/pos/sales_orders.clj
View File

@@ -11,6 +11,12 @@
[bidi.bidi :as bidi]
[clj-time.coerce :as coerce]))
;; TODO more filters
;; TODO refunds
;; TODO expected deposits
;; TODO navigate between pages shouldnt copy sort if not applicable
;; TODO remove sort button should work
(defn filters [params]
[:form {"hx-trigger" "change delay:1000ms"
"hx-get" (bidi/path-for ssr-routes/only-routes
@@ -20,17 +26,17 @@
[:div
(com/field {:label "Starting"}
(com/date-input {:name "start-date"
:value (:start-date params)
:value (:start-date (:parsed-query-params params))
:placeholder "Date"}))]
[:div
(com/field {:label "Ending"}
(com/date-input {:name "end-date"
:value nil
:value (:end-date (:parsed-query-params params))
:placeholder "Date"}))]
[:div
(com/field {:label "Total"}
(com/money-input {:name "total-gte"
:value nil
:value (:total-gte (:parsed-query-params params))
:placeholder "Total >="}))]]])
(def grid-page {:id "sales-table"
@@ -38,18 +44,22 @@
:page-specific-nav filters
:id-fn :db/id
:fetch-page (fn [user args]
(d-sales/get-graphql (-> args
(assoc :date-range {:start (some-> args
:query-params
(get "start-date")
(atime/parse atime/iso-date))
:end (some-> args
:query-params
(get "end-date")
(atime/parse atime/iso-date))}
:total-gte (some-> args :query-params (get "total-gte") (#(if (string? %) (Double/parseDouble %) (double %))))))))
(d-sales/get-graphql
{:clients (:clients args)
:start (:start (:parsed-query-params args))
:sort (:sort (:parsed-query-params args))
:per-page (:per-page (:parsed-query-params args))
:date-range {:start (some-> args
:raw-query-params
(get "start-date")
(atime/parse atime/iso-date))
:end (some-> args
:raw-query-params
(get "end-date")
(atime/parse atime/iso-date))}
:total-gte (some-> args :raw-query-params (get "total-gte") not-empty (#(if (string? %) (Double/parseDouble %) (double %)))) }))
:breadcrumbs [[:a {:href (bidi/path-for ssr-routes/only-routes
:company)}
:company)}
"POS"]
[:a {:href (bidi/path-for ssr-routes/only-routes
@@ -114,25 +124,6 @@
(def table (partial helper/table grid-page))
(def page (partial helper/page grid-page))
#_(defn delete-report [{:keys [form-params identity]}]
(let [[id-to-delete key] (first (dc/q '[:find ?i ?k
:in $ ?i
:where [?i :report/key ?k]]
(dc/db conn)
(some-> (get form-params "id") not-empty Long/parseLong)))
report (dc/pull (dc/db conn) r/default-read id-to-delete)]
(assert-can-see-client identity (:report/client report))
(when id-to-delete
(s3/delete-object :bucket-name (:data-bucket env)
:key key)
@(dc/transact conn [[:db/retractEntity id-to-delete]]))
(html-response
(row* identity
report
{:flash? true
:delete-after-settle? true}))))
(def key->handler
{:pos-sales (wrap-client-redirect-unauthenticated (wrap-secure page))
:pos-sales-table (wrap-client-redirect-unauthenticated (wrap-secure table))})