fixed setting chart dimensions

clj-pdf · Aug 2, 2012 · 6ffaf7a · 6ffaf7a
1 parent b227252
commit 6ffaf7a
Showing 1 changed file with 13 additions and 2 deletions.
diff --git a/src/clj_pdf/core.clj b/src/clj_pdf/core.clj
@@ -388,8 +388,19 @@
 
 (defn- chart [& params]  
   (let [meta (first params)
-        {:keys [page-width page-height]} meta] 
-    (image (assoc meta 
+        {:keys [align width height page-width page-height]} meta] 
+    (image 
+      (cond
+        (and align width height) meta
+        (and width height) (assoc meta :align :center)
+        align (assoc meta :width (* 0.85 page-width) :height (* 0.85 page-height))
+        :else
+        (assoc meta 
+                  :align :center
+                  :width (* 0.85 page-width) 
+                  :height (* 0.85 page-height)))
+
+      #_ (assoc meta 
                   :align :center
                   :width (* 0.85 page-width) 
                   :height (* 0.85 page-height))