Add Chart.withColorBar and Chart.withColorBarStyle

Author: kMutagene

Diff for: RELEASE_NOTES.md

@@ -2,6 +2,12 @@
  * [Add Rangesliders for linear Axis](https://github.com/muehlhaus/FSharp.Plotly/commit/544641492195b1938697721b72814e0187a6c979)
  * [Improve jupyter notebook integration](https://github.com/muehlhaus/FSharp.Plotly/commit/e9560656bbc8dbf767c9eb6ca35f321c98195238)
  * [Updated Violin Chart](https://github.com/muehlhaus/FSharp.Plotly/commit/4d3afc527b11cd2f5a18c1d9876ad4e3f83beb02)
+ * [Refactor Chart.Stack]():
+   * new Charts: 
+     * Chart.Grid: Uses the grid object of plotly.js to generate various types of subplot grids
+     * Chart.SingleStack: Basically Chart.Grid with one Column
+ * Add Chart.withColorBar and Chart.withColorBarStyle to change the appearance of colorbars
+
 
 ### 1.2.2 - Apr 9 2020
  * [Opening Charts is now more or less OS agnostic](https://github.com/muehlhaus/FSharp.Plotly/commit/f6e3dceade085e43e7e56b478b9cf7b533a4fe55)

Diff for: src/FSharp.Plotly/ChartExtensions.fs

@@ -302,7 +302,27 @@ module ChartExtensions =
             let zaxis  = Axis.LinearAxis.init(Title=title,?Range=range,?Showgrid=Showgrid,?Showline=Showline,?Anchor=Anchor,?Domain=domain)
             Chart.withZ_Axis(zaxis)
 
+        [<CompiledName("WithColorBar")>]
+        static member withColorBar(colorbar:Colorbar) =
+            (fun (ch:GenericChart) ->
+                ch
+                |> GenericChart.mapTrace(fun t ->
+                    colorbar |> DynObj.setValue t "colorbar" 
+                    t
+                )
+            )
 
+        
+        [<CompiledName("withColorbar")>]
+        static member withColorBarStyle(title,
+                [<Optional;DefaultParameterValue(null)>] ?TitleSide: StyleParam.Side,
+                [<Optional;DefaultParameterValue(null)>] ?TitleFont: Font,
+                [<Optional;DefaultParameterValue(null)>] ?Length,
+                [<Optional;DefaultParameterValue(null)>] ?OutlineColor,
+                [<Optional;DefaultParameterValue(null)>] ?BorderColor,
+                [<Optional;DefaultParameterValue(null)>] ?BGColor) =
+            let colorbar = Colorbar.init(Title=title,?Titleside=TitleSide,?Titlefont=TitleFont,?Len = Length,?Outlinecolor=OutlineColor,?Bgcolor=BGColor,?Bordercolor=BorderColor)
+            Chart.withColorBar(colorbar)
         //// Sets second x-Axis of 2d- Charts
         //static member withX_Axis2(xAxis2:Axis.LinearAxis) =
         //    (fun (ch:GenericChart) ->

Diff for: src/FSharp.Plotly/Colorbar.fs

@@ -45,9 +45,9 @@ type Colorbar () =
             ?Showticksuffix, 
             ?Exponentformat, 
             ?Showexponent,   
-            ?Title,          
-            ?Titlefont,      
-            ?Titleside,      
+            ?Title:string,          
+            ?Titlefont:Font,      
+            ?Titleside:StyleParam.Side,      
             ?Tickvalssrc,
             ?Ticktextsrc    
 
@@ -138,9 +138,9 @@ type Colorbar () =
             ?Showticksuffix, 
             ?Exponentformat, 
             ?Showexponent,   
-            ?Title,          
-            ?Titlefont,      
-            ?Titleside,      
+            ?Title:string,          
+            ?Titlefont:Font,      
+            ?Titleside:StyleParam.Side,      
             ?Tickvalssrc,
             ?Ticktextsrc    
 
@@ -184,7 +184,7 @@ type Colorbar () =
                 Showexponent   |> DynObj.setValueOpt colorbar "showexponent"   
                 Title          |> DynObj.setValueOpt colorbar "title"          
                 Titlefont      |> DynObj.setValueOpt colorbar "titlefont"      
-                Titleside      |> DynObj.setValueOpt colorbar "titleside"      
+                Titleside      |> DynObj.setValueOptBy colorbar "titleside" (StyleParam.Side.convert)     
                 Tickvalssrc    |> DynObj.setValueOpt colorbar "tickvalssrc"    
                 Ticktextsrc    |> DynObj.setValueOpt colorbar "ticktextsrc"         
 

Diff for: src/FSharp.Plotly/FSharp.Plotly.fsproj

@@ -27,6 +27,7 @@
     <Compile Include="StyleParams.fs" />
     <Compile Include="DynamicObj.fs" />
     <Compile Include="Colors.fs" />
+    <Compile Include="Font.fs" />
     <Compile Include="Colorbar.fs" />
     <Compile Include="RangeSlider.fs" />
     <Compile Include="Light.fs" />
@@ -37,7 +38,6 @@
     <Compile Include="Box.fs" />
     <Compile Include="Meanline.fs" />
     <Compile Include="Marker.fs" />
-    <Compile Include="Font.fs" />
     <Compile Include="Hoverlabel.fs" />
     <Compile Include="Axis.fs" />
     <Compile Include="Bins.fs" />

Diff for: src/FSharp.Plotly/Playground.fsx

@@ -1,6 +1,7 @@
 #load "StyleParams.fs"
 #load "DynamicObj.fs"
 #load "Colors.fs"
+#load "Font.fs"
 #load "Colorbar.fs"
 #load "RangeSlider.fs"
 #load "Light.fs"
@@ -11,7 +12,6 @@
 #load "Box.fs"
 #load "Meanline.fs"
 #load "Marker.fs"
-#load "Font.fs"
 #load "Hoverlabel.fs"
 #load "Axis.fs"
 #load "Bins.fs"
@@ -201,4 +201,16 @@ generateDomainRanges 8 1
 |> Chart.withLayoutGridStyle(XSide=StyleParam.LayoutGridXSide.Bottom)
 |> Chart.withTitle("Hi i am the new SingleStackChart")
 |> Chart.withX_AxisStyle("im the shared xAxis")
-|> Chart.Show
+|> Chart.Show
+
+[
+    [1;2]
+    [3;4]
+]
+|> Chart.Heatmap
+|> Chart.withColorbarStyle(
+    "Hallo?",
+    TitleSide=StyleParam.Side.Right,
+    TitleFont=Font.init(Size=20)
+)
+|> Chart.Show