htmlify: Use FreeSans for SVG; Closes #9

Raku · Jan 2, 2015 · 8983621 · 8983621
1 parent 8500a6c
commit 8983621
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/Perl6/TypeGraph/Viz.pm b/lib/Perl6/TypeGraph/Viz.pm
@@ -57,15 +57,15 @@ class Perl6::TypeGraph::Viz {
         @dot.push: "digraph \"perl6-type-graph\" \{\n    rankdir=$.rank-dir;\n    splines=polyline;\n";
         @dot.push: "    size=\"$size\"\n" if $size;
 
-        if $.dot-hints {
+        if $.dot-hints -> $hints {
             @dot.push: "\n    // Layout hints\n";
-            @dot.push: $.dot-hints;
+            @dot.push: $hints;
         }
 
         @dot.push: "\n    // Types\n";
         for @.types -> $type {
             my $color = $type.packagetype eq 'role' ?? $.role-color !! $.class-color;
-            @dot.push: "    \"$type.name()\" [color=\"$color\", fontcolor=\"$color\", href=\"{$.url-base ~ $type.name ~ '.html' }\"];\n";
+            @dot.push: "    \"$type.name()\" [color=\"$color\", fontcolor=\"$color\", href=\"{$.url-base ~ $type.name ~ '.html' }\", fontname=\"FreeSans\"];\n";
         }
 
         @dot.push: "\n    // Superclasses\n";