namespace Plotly.NET

open DynamicObj

open System.Runtime.InteropServices

type ChartDescription =

{

Heading: string

Text: string

}

static member create heading text = { Heading = heading; Text = text }

//to-do: when finally using a html dsl, adapt to return XMLNode

static member toHtml(d: ChartDescription) =

let html =

"""<div class=container>

html

.Replace("[DESCRIPTIONHEADING]", d.Heading)

.Replace("[DESCRIPTIONTEXT]", d.Text)

type DisplayOptions() =

inherit DynamicObj()

static member init

(

[<Optional; DefaultParameterValue(null)>] ?AdditionalHeadTags: seq<string>,

[<Optional; DefaultParameterValue(null)>] ?Description: ChartDescription

) =

DisplayOptions() |> DisplayOptions.style (?AdditionalHeadTags = AdditionalHeadTags, ?Description = Description)

// Applies the styles to Font()

static member style

(

[<Optional; DefaultParameterValue(null)>] ?AdditionalHeadTags: seq<string>,

[<Optional; DefaultParameterValue(null)>] ?Description: ChartDescription

) =

(fun (displayOptions: DisplayOptions) ->

AdditionalHeadTags |> DynObj.setValueOpt displayOptions "AdditionalHeadTags"

Description |> DynObj.setValueOpt displayOptions "Description"

displayOptions)

static member getReplacements(displayOptions: DisplayOptions) =

[

"[ADDITIONAL_HEAD_TAGS]",

(displayOptions.TryGetTypedValue<seq<string>>("AdditionalHeadTags")

|> Option.map (String.concat "\r\n")

|> Option.defaultValue "")

"[DESCRIPTION]",

(displayOptions.TryGetTypedValue<ChartDescription>("Description")

|> Option.map ChartDescription.toHtml

|> Option.defaultValue "")

]

static member replaceHtmlPlaceholders (displayOptions: DisplayOptions) (html: string) =

displayOptions

|> DisplayOptions.getReplacements

|> List.fold

(fun (html: string) (placeholder, replacement) ->

//printfn $"replacing {placeholder} {replacement}"

html.Replace(placeholder, replacement))

html