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

Resets selected on page change, adds account number to drop downs and makes missing emails less noisy

Browse Source
This commit is contained in:
Bryce
2024-08-22 21:14:43 -07:00
parent 2d6985f5ca
commit d9bd09a9cc
4 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/clj/auto_ap/jobs/import_uploaded_invoices.clj
View File

@@ -50,7 +50,7 @@
:bucket-name (-> r :s3 :bucket :name)}} :bucket-name (-> r :s3 :bucket :name)}}
(doseq [pdf-stream (->> (-> mail :body) (doseq [pdf-stream (->> (-> mail :body)
(filter :content-type) (filter :content-type)
#_(filter #(re-find #"application/pdf" (:content-type %)))) (filter (complement #(re-find #"html" (:content-type % "")))))
:let [filename (str "/tmp/" (UUID/randomUUID) ".pdf")]] :let [filename (str "/tmp/" (UUID/randomUUID) ".pdf")]]
(try (try
(let [_ (io/copy (:body pdf-stream) (io/file filename)) (let [_ (io/copy (:body pdf-stream) (io/file filename))

3
src/clj/auto_ap/ssr/admin/accounts.clj
View File

@@ -261,8 +261,7 @@
(defn client-override* [override] (defn client-override* [override]
(com/data-grid-row (-> {:x-ref "p" (com/data-grid-row (-> {:x-ref "p"
:data-key "show" :data-key "show"
:x-data (hx/json {:show (boolean (doto (not (fc/field-value (:new? override))) :x-data (hx/json {:show (boolean (not (fc/field-value (:new? override))))})}
println))})}
hx/alpine-mount-then-appear) hx/alpine-mount-then-appear)
(fc/with-field :db/id (fc/with-field :db/id
(com/hidden {:name (fc/field-name) (com/hidden {:name (fc/field-name)

10
src/clj/auto_ap/ssr/admin/transaction_rules.clj
View File

@@ -369,7 +369,6 @@
true true
(merge-query {:query {:where ['[?e :transaction/id]]}})) (merge-query {:query {:where ['[?e :transaction/id]]}}))
_ (alog/peek query)
results (->> results (->>
(query2 query) (query2 query)
(map first))] (map first))]
@@ -431,8 +430,13 @@
:x-model x-model :x-model x-model
:value value :value value
:content-fn (fn [value] :content-fn (fn [value]
(:account/name (d-accounts/clientize (dc/pull (dc/db conn) d-accounts/default-read value) (let [a (dc/pull (dc/db conn) d-accounts/default-read value)]
client-id)))})]) (when value
(str
(:account/numeric-code a)
" - "
(:account/name (d-accounts/clientize a
client-id))))))})])
(defn- transaction-rule-account-row* (defn- transaction-rule-account-row*
[account client-id client-locations] [account client-id client-locations]

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

@@ -294,6 +294,7 @@
(when (:above-grid grid-spec) (when (:above-grid grid-spec)
( (:above-grid grid-spec) request)) ( (:above-grid grid-spec) request))
[:div {:x-data (hx/json {:selected [] :all_selected false}) [:div {:x-data (hx/json {:selected [] :all_selected false})
"x-on:client-selected.document" "selected=[]; all_selected=false"
"x-bind:hx-vals" "JSON.stringify({selected: $data.selected, 'all-selected': $data.all_selected})" "x-bind:hx-vals" "JSON.stringify({selected: $data.selected, 'all-selected': $data.all_selected})"
:x-init "$watch('selected', s=> $dispatch('selectedChanged', {selected: s, all_selected: all_selected}) ); :x-init "$watch('selected', s=> $dispatch('selectedChanged', {selected: s, all_selected: all_selected}) );
$watch('all_selected', a=>$dispatch('selectedChanged', {selected: selected, all_selected: a}))"} $watch('all_selected', a=>$dispatch('selectedChanged', {selected: selected, all_selected: a}))"}