Fixes a bug where graph->svg doesn't accept options

ztellman · Jul 12, 2017 · 8cad280 · 8cad280
1 parent 0c0ecdd
commit 8cad280
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/rhizome/viz.clj b/src/rhizome/viz.clj
@@ -152,8 +152,9 @@ as a third argument."
     :arglists (-> #'graph->dot meta :arglists)}
   graph->svg
   (comp dot->svg
-        (fn [nodes adjacent & opts]
-          (apply graph->dot nodes adjacent (apply concat (merge {:options {:dpi 72}} opts))))))
+        (fn [nodes adjacent & {:as opts}]
+          (let [final-opts (update-in opts [:options :dpi] #(if % % 72))]
+            (apply graph->dot nodes adjacent (apply concat final-opts))))))
 
 (def
   ^{:doc "Takes a graph descriptor in the style of `graph->dot`, and displays a rendered image."