Fix and test text-chunk backgrounds (#210)

clj-pdf · Mar 30, 2021 · 8c42aaf · 8c42aaf
1 parent 76b0e5a
commit 8c42aaf
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 0 deletions.
diff --git a/src/clj/clj_pdf/section/core.clj b/src/clj/clj_pdf/section/core.clj
@@ -60,6 +60,7 @@
 
 (defn- text-chunk [style ^String content]
   (let [ch (Chunk. ^String content ^Font (font style))]
+    (set-background ch style)
     (doseq [{:keys [thickness y-position]} (:underlines style)]
       (assert (number? thickness))
       (assert (number? y-position))

diff --git a/test/background.pdf b/test/background.pdf
diff --git a/test/clj_pdf/test/core.clj b/test/clj_pdf/test/core.clj
@@ -233,6 +233,10 @@
   (eq? [{} [:line]]
        "line.pdf"))
 
+(deftest background
+  (eq? [{} [:chunk {:background [200 0 0]} "red bg"]]
+       "background.pdf"))
+
 (deftest underlines
   (eq? [{}
         [:paragraph