Merge pull request #36 from npmurphy/add_svg_type

prosconi · prosconi · commit d0cd13e4c530 · 2015-04-09T11:48:10.000-04:00
add SVG display type
diff --git a/src/IfSharp.Kernel/Printers.fs b/src/IfSharp.Kernel/Printers.fs
@@ -77,6 +77,11 @@ module Printers =
             { ContentType = "text/html"; Data = sb.ToString() } 
         )
 
+        // add svg printer
+        addDisplayPrinter(fun (x:SvgOutput) ->
+           { ContentType = "image/svg+xml"; Data = x.Svg }
+        )
+
         // add html printer
         addDisplayPrinter(fun (x:HtmlOutput) ->
             { ContentType = "text/html"; Data = x.Html }
diff --git a/src/IfSharp.Kernel/Util.fs b/src/IfSharp.Kernel/Util.fs
@@ -32,6 +32,11 @@ type HtmlOutput =
         Html: string;
     }
 
+type SvgOutput =
+    {
+        Svg: string;
+    }
+
 type GenericChartWithSize = 
     {
         Chart: ChartTypes.GenericChart;
@@ -97,6 +102,9 @@ type Util =
     static member Latex (str) =
         { Latex = str}
 
+    static member Svg (str) =
+        { Svg = str}
+
     /// Wraps a LatexOutput around a string in order to send to the UI.
     static member Math (str) =
         { Latex = "$$" + str + "$$" }
