#52: Add member extensions to GenericChart to enable fluent interface 🚀

Author: kMutagene

Diff for: src/Plotly.NET/Axis.fs

@@ -11,7 +11,7 @@ module Axis =
         static member init
             (
                 ?AxisType       , 
-                ?Title          ,            
+                ?Title : string         ,            
                 ?Titlefont      ,                             
                 ?Autorange      ,        
                 ?Rangemode      ,        
@@ -157,10 +157,10 @@ module Axis =
                 ?Exponentformat,   
                 ?Tickformat,       
                 ?Hoverformat,      
-                ?Showline,         
+                ?Showline: bool,         
                 ?Linecolor,        
                 ?Linewidth,        
-                ?Showgrid,         
+                ?Showgrid: bool,         
                 ?Gridcolor,        
                 ?Gridwidth,        
                 ?Zeroline : bool,         

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

@@ -6,13 +6,15 @@ open System.IO
 open GenericChart
 open ChartDescription
 open System.Runtime.InteropServices
+open System.Runtime.CompilerServices
 
 /// Extensions methods for Charts supporting the fluent pipeline style 'Chart.WithXYZ(...)'.
 [<AutoOpen>]
+
 module ChartExtensions =
 
     ///Choose process to open plots with depending on OS. Thanks to @zyzhu for hinting at a solution (https://github.com/plotly/Plotly.NET/issues/31)
-    let private openOsSpecificFile path =
+    let internal openOsSpecificFile path =
         if RuntimeInformation.IsOSPlatform(OSPlatform.Windows) then
             let psi = new System.Diagnostics.ProcessStartInfo(FileName = path, UseShellExecute = true)
             System.Diagnostics.Process.Start(psi) |> ignore
@@ -46,8 +48,7 @@ module ChartExtensions =
                         trace 
                         |> TraceStyle.TraceInfo(?Name=(naming i Name),?Showlegend=Showlegend,?Legendgroup=Legendgroup,?Visible=Visible)
                     )
-                
- 
+
          /// Set the axis anchor id the trace is belonging to
         [<CompiledName("WithAxisAnchor")>]
         static member withAxisAnchor
@@ -65,7 +66,15 @@ module ChartExtensions =
                         trace 
                         |> TraceStyle.SetAxisAnchor(?X=idx,?Y=idy,?Z=idz)
                     )
-                
+        [<CompiledName("WithAxisAnchor")>]
+        static member withAxisAnchor
+            (
+                (ch:GenericChart),
+                [<Optional;DefaultParameterValue(null)>] ?X,
+                [<Optional;DefaultParameterValue(null)>] ?Y,
+                [<Optional;DefaultParameterValue(null)>] ?Z
+            ) =
+                ch |> Chart.withAxisAnchor(?X=X,?Y=Y,?Z=Z)
 
         /// Apply styling to the Marker(s) of the chart as Object.
         [<CompiledName("WithMarker")>]
@@ -620,11 +629,11 @@ module ChartExtensions =
 
         // Set the size of a Chart
         [<CompiledName("WithSize")>]
-        static member withSize(width,heigth) =
+        static member withSize(width,height) =
             (fun (ch:GenericChart) -> 
                 let layout = 
                     GenericChart.getLayout ch
-                    |> Layout.style (Width=width,Height=heigth)
+                    |> Layout.style (Width=width,Height=height)
                 GenericChart.setLayout layout ch
             )
 
@@ -963,5 +972,4 @@ module ChartExtensions =
             let file = sprintf "%s.html" guid
             let path = Path.Combine(tempPath, file)
             File.WriteAllText(path, html)
-            path |> openOsSpecificFile
-
+            path |> openOsSpecificFile

Diff for: src/Plotly.NET/GenericChart.fs

@@ -2,7 +2,7 @@ namespace Plotly.NET
 
 open System
 open Newtonsoft.Json
-
+open System.Runtime.CompilerServices
 
 /// HTML template for Plotly.js 
 module HTML =
@@ -134,6 +134,7 @@ module ChartDescription =
             .Replace("[DESCRIPTIONTEXT]",d.Text)
 
 /// Module to represent a GenericChart
+[<Extension>]
 module GenericChart =
 
     open Trace
@@ -181,7 +182,6 @@ module GenericChart =
         | Chart (t,_,c)      -> Chart (t,layout,c)
         | MultiChart (t,_,c) -> MultiChart (t,layout,c)
 
-
     // Adds a Layout function to the GenericChart
     let addLayout layout gChart =
         match gChart with