Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Remove comment. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
e3b0d93b7585cacba846303a549c8c13 |
| User & Date: | jaccarmac 2019-08-01 18:45:21.463 |
Context
|
2019-08-01
| ||
| 18:45 | Line breaks. check-in: a6cafb1b84 user: jaccarmac tags: trunk | |
| 18:45 | Remove comment. check-in: e3b0d93b75 user: jaccarmac tags: trunk | |
| 18:44 | Sort text on page by x and y coords. check-in: b5d05a4c38 user: jaccarmac tags: trunk | |
Changes
Changes to pdf-invoice-extract/src/extract.cljs.
| ︙ | ︙ | |||
8 9 10 11 12 13 14 |
(.extract (new PDFExtract)
fn
#js{}
#(do (if %1
(println %1)
(put! data-chan %2))))
(go (when-let [data (<! data-chan)]
| < < | 8 9 10 11 12 13 14 15 16 17 18 |
(.extract (new PDFExtract)
fn
#js{}
#(do (if %1
(println %1)
(put! data-chan %2))))
(go (when-let [data (<! data-chan)]
(map #(.-str %) (sort-by #(vector (.-y %) (.-x %)) (.-content (first (.-pages data)))))))))
(defn main [& cli-args]
(go (println (<! (extract (first cli-args))))))
|