minor improvements

This commit is contained in:
2024-11-17 22:32:43 -08:00
parent f634d8fd81
commit ad06418a69
4 changed files with 13 additions and 15 deletions

View File

@@ -1,4 +1,12 @@
./data/** data/**
./resources/** resources/**
./target/** target/**
./.calva/** .calva/**
efs/**
node_modules/**
nm/**
terraform/**
.lsp/**
.clj-kondo/**
sysco-poller/**
sftp_server/**

View File

@@ -167,7 +167,6 @@
(deftype Line [^Long id ^Long client-id ^Long account-id ^String location ^java.util.Date date ^Double debit ^Double credit ^Double running-balance] (deftype Line [^Long id ^Long client-id ^Long account-id ^String location ^java.util.Date date ^Double debit ^Double credit ^Double running-balance]
) )
(defmethod print-method Line [entity writer] (defmethod print-method Line [entity writer]
(.write writer (format "Line %d: client:%d account:%d location:%s date:%s" (.write writer (format "Line %d: client:%d account:%d location:%s date:%s"
(.-id entity) (.-id entity)

View File

@@ -686,8 +686,6 @@
:headers {"hx-trigger" (hx/json { "notification" (format "%d successful, %d with warnings. Any ledger entries with warnings have been removed." (:successful result) (:ignored result))})}))) :headers {"hx-trigger" (hx/json { "notification" (format "%d successful, %d with warnings. Any ledger entries with warnings have been removed." (:successful result) (:ignored result))})})))
(def key->handler (def key->handler
(merge (merge
(apply-middleware-to-all-handlers (apply-middleware-to-all-handlers

View File

@@ -14,6 +14,7 @@
wrap-schema-enforce]] wrap-schema-enforce]]
[auto-ap.time :as atime])) [auto-ap.time :as atime]))
(def altered-grid-page (def altered-grid-page
(assoc grid-page (assoc grid-page
:id "yoho" :id "yoho"
@@ -21,14 +22,6 @@
:check-boxes? false :check-boxes? false
:route ::route/investigate-results)) :route ::route/investigate-results))
(defn investigate-results [request]
(clojure.pprint/pprint (:query-params request))
(html-response
(table*
altered-grid-page
identity
request
#_(assoc-in request [:query-params :sort] [{:sort-key "date" :asc? false}]))))
(defn investigate [request] (defn investigate [request]
(modal-response (modal-response