Add missing Annotation parameters (fixes #147)

Author: kMutagene

docs/1_4_annotations.fsx

@@ -43,7 +43,6 @@ let y' = [2.; 1.5; 5.; 1.5; 3.; 2.5; 2.5; 1.5; 3.5; 1.]
 use the `Annotation.init` function to generate a shape, and either the `Chart.withAnnotation` or the `Chart.withAnnotations` function to add
 multiple annotations at once.
 
-**Attention**: Adding an annotation after you added a previous one currently removes the old one. This is a bug and will be fixed
 *)
 
 open Plotly.NET.LayoutObjects

src/Plotly.NET/ChartAPI/Chart.fs

@@ -792,12 +792,36 @@ type Chart =
         (fun (ch:GenericChart) ->
             GenericChart.setConfig config ch)
 
+    /// <summary>
+    /// 
+    /// </summary>
+    /// <param name="annotations">The annotations to add to the input charts layout</param>
+    /// <param name="Append">If true, the input annotations will be appended to existing annotations, otherwise existing annotations will be removed (default: true)</param>
     [<CompiledName("WithAnnotations")>]
-    static member withAnnotations(annotations:seq<Annotation>) =
-        (fun (ch:GenericChart) -> 
-            ch
-            |> GenericChart.mapLayout 
-                (Layout.style (Annotations = annotations)))
+    static member withAnnotations
+        (
+            annotations:seq<Annotation>,
+            [<Optional;DefaultParameterValue(true)>] ?Append: bool
+        ) =
+            let append = defaultArg Append true
+
+            fun (ch:GenericChart) -> 
+                
+                let annotations' = 
+
+                    if append then
+
+                        let layout = GenericChart.getLayout ch
+
+                        layout.TryGetTypedValue<seq<Annotation>>("annotations")
+                        |> Option.defaultValue Seq.empty
+                        |> Seq.append annotations
+
+                    else annotations
+
+                ch
+                |> GenericChart.mapLayout 
+                    (Layout.style (Annotations = annotations'))
 
     // Set the title of a Chart
     [<CompiledName("WithTitle")>]

src/Plotly.NET/CommonAbstractions/StyleParams.fs

@@ -13,6 +13,31 @@ module StyleParam =
 // #A#
 //--------------------------
 
+    [<RequireQualifiedAccess>]
+    type ArrowSide =
+        | Start | End | StartEnd | None 
+
+        static member toString = function
+            | Start     -> "start"
+            | End       -> "end"
+            | StartEnd  -> "startend"
+            | None      -> "none"
+        static member convert = ArrowSide.toString >> box
+        override this.ToString() = this |> ArrowSide.toString
+        member this.Convert() = this |> ArrowSide.convert
+    
+    [<RequireQualifiedAccess>]
+    type AnnotationAlignment =
+        | Left | Center | Right 
+
+        static member toString = function
+            | Left  -> "left" 
+            | Center-> "center" 
+            | Right -> "right" 
+        static member convert = AnnotationAlignment.toString >> box
+        override this.ToString() = this |> AnnotationAlignment.toString
+        member this.Convert() = this |> AnnotationAlignment.convert
+    
     [<RequireQualifiedAccess>]
     type AspectMode =
         | Auto | Cube | Data | Manual
@@ -289,6 +314,19 @@ module StyleParam =
 // #C#
 //--------------------------
 
+    [<RequireQualifiedAccess>]
+    type ClickToShow =
+        | False | OnOff | OnOut
+    
+        static member toString = function
+            | False -> "false"
+            | OnOff -> "onoff"
+            | OnOut -> "onout"
+
+        static member convert = ClickToShow.toString >> box
+        override this.ToString() = this |> ClickToShow.toString
+        member this.Convert() = this |> ClickToShow.convert
+
     [<RequireQualifiedAccess>]
     type ConstrainText =
         | Inside