Permalink
Browse files

changed styles to supercede style

  • Loading branch information...
1 parent 12e0536 commit 8829efee6c7f9fd894fe3638783946ebf9790179 @yogthos committed Jan 29, 2014
Showing with 5 additions and 3 deletions.
  1. BIN example.pdf
  2. +1 −1 project.clj
  3. +4 −2 src/clj_pdf/core.clj
View
Binary file not shown.
View
@@ -1,5 +1,5 @@
(defproject clj-pdf
- "1.11.14"
+ "1.11.15"
:description "PDF generation library"
:url "https://github.com/yogthos/clj-pdf"
:license {:name "GNU Lesser General Public License - v 3"
View
@@ -62,7 +62,9 @@
(Font/NORMAL)))
(defn- compute-font-style [styles]
- (apply bit-or (map get-style styles)))
+ (if (> (count styles) 1)
+ (apply bit-or (map get-style styles))
+ (get-style (first styles))))
(defn- font
[{style :style
@@ -88,8 +90,8 @@
(float (or size 10))
(cond
- style (get-style style)
styles (compute-font-style styles)
+ style (get-style style)
:else (Font/NORMAL))
(if (and r g b)

0 comments on commit 8829efe

Please sign in to comment.