minor improvements
This commit is contained in:
@@ -1,4 +1,12 @@
|
|||||||
./data/**
|
data/**
|
||||||
./resources/**
|
resources/**
|
||||||
./target/**
|
target/**
|
||||||
./.calva/**
|
.calva/**
|
||||||
|
efs/**
|
||||||
|
node_modules/**
|
||||||
|
nm/**
|
||||||
|
terraform/**
|
||||||
|
.lsp/**
|
||||||
|
.clj-kondo/**
|
||||||
|
sysco-poller/**
|
||||||
|
sftp_server/**
|
||||||
|
|||||||
@@ -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)
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user