From a6526ca949b8cef423b7eff698a5fcd8764693d0 Mon Sep 17 00:00:00 2001 From: Sylvan Clebsch Date: Tue, 27 Sep 2016 12:37:02 +0100 Subject: [PATCH] Add helper script support for Angara.Charting --- .../helpers/Angara.Charting.fsx | 39 +++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 src/IfSharp.Kernel/helpers/Angara.Charting.fsx diff --git a/src/IfSharp.Kernel/helpers/Angara.Charting.fsx b/src/IfSharp.Kernel/helpers/Angara.Charting.fsx new file mode 100644 index 0000000..e86e27d --- /dev/null +++ b/src/IfSharp.Kernel/helpers/Angara.Charting.fsx @@ -0,0 +1,39 @@ +#nowarn "211" + +#load "Paket.fsx" + +Paket.Package + [ "Angara.Base" + "Angara.Html" + "Angara.Chart" + "Angara.Reinstate" + "Angara.Serialization" + "Angara.Serialization.Json" + "Suave" + ] + +#r "IfSharp.Kernel.dll" +#r "packages/Angara.Base/lib/net452/Angara.Base.dll" +#r "packages/Angara.Html/lib/net452/Angara.Html.dll" +#r "packages/Angara.Chart/lib/net452/Angara.Chart.dll" +#r "packages/Angara.Table/lib/net452/Angara.Table.dll" +#r "packages/Angara.Reinstate/lib/net452/Angara.Reinstate.dll" +#r "packages/Angara.Serialization/lib/net452/Angara.Serialization.dll" +#r "packages/Angara.Serialization.Json/lib/net452/Angara.Serialization.Json.dll" +#r "packages/Suave/lib/net40/Suave.dll" + +Angara.Base.Init() + +open IfSharp.Kernel +open IfSharp.Kernel.Globals +open Angara.Charting + +Printers.addDisplayPrinter(fun (chart: Chart) -> + { ContentType = "text/html" + Data = Angara.Html.MakeEmbeddable "auto" chart }) + +type Angara.Charting.Chart with + + static member WithHeight (height: int) (chart: Chart) = + { ContentType = "text/html" + Data = Angara.Html.MakeEmbeddable (sprintf "%dpx" height) chart }