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

fixed issue with size of pdf.

Browse Source
This commit is contained in:
Bryce
2018-07-04 20:01:37 -07:00
parent 05c9fa8fd8
commit e5caab4285
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
project.clj
View File

@@ -22,7 +22,7 @@
[nilenso/honeysql-postgres "0.2.4"] [nilenso/honeysql-postgres "0.2.4"]
[cljs-http "0.1.44"] [cljs-http "0.1.44"]
[clj-http "3.7.0"] [clj-http "3.7.0"]
[clj-pdf "2.2.31"] [clj-pdf "2.2.33"]
[org.clojure/core.async "0.3.465"] [org.clojure/core.async "0.3.465"]
[fogus/ring-edn "0.3.0"] [fogus/ring-edn "0.3.0"]
[buddy/buddy-auth "2.1.0"] [buddy/buddy-auth "2.1.0"]

4
src/clj/auto_ap/routes/checks.clj
View File

@@ -31,7 +31,7 @@
(defn make-check-pdf [check] (defn make-check-pdf [check]
(let [output-stream (ByteArrayOutputStream.)] (let [output-stream (ByteArrayOutputStream.)]
(pdf/pdf (pdf/pdf
[{:left-margin 10 :right-margin 0 :top-margin 0 :bottom-margin 0} [{:left-margin 10 :right-margin 0 :top-margin 0 :bottom-margin 0 :size :letter}
(let [{:keys [paid-to company check date amount memo] {vendor-name :name :as vendor} :vendor} check (let [{:keys [paid-to company check date amount memo] {vendor-name :name :as vendor} :vendor} check
df (DecimalFormat. "#,###.00") df (DecimalFormat. "#,###.00")
word-amount (num->words amount) word-amount (num->words amount)
@@ -152,7 +152,7 @@
(defn merge-pdfs [keys] (defn merge-pdfs [keys]
(let [merged-pdf-stream (java.io.ByteArrayOutputStream.) (let [merged-pdf-stream (java.io.ByteArrayOutputStream.)
uuid (str (UUID/randomUUID))] uuid (str (UUID/randomUUID))]
(apply pdf/collate (concat [merged-pdf-stream] (->> keys (apply pdf/collate (concat [{:size :letter} merged-pdf-stream] (->> keys
(map #(s3/get-object (:data-bucket env) %)) (map #(s3/get-object (:data-bucket env) %))
(map :input-stream)))) (map :input-stream))))
(s3/put-object :bucket-name (:data-bucket env) (s3/put-object :bucket-name (:data-bucket env)