From 6fb16df9a22caa754afe596f286107225d5c320c Mon Sep 17 00:00:00 2001 From: kaashyapan Date: Sat, 5 Jun 2021 10:34:49 +0530 Subject: [PATCH] Replace Giraffe.ViewEngine with Feliz.Engine for a new Html & Css DSL --- dev/Program.fs | 158 ++++++---- src/Dash.NET/Dash.NET.fsproj | 135 +-------- src/Dash.NET/DashComponents/ComponentBase.fs | 15 - .../DashComponents/HTMLComponents/A.fs | 77 ----- .../DashComponents/HTMLComponents/Abbr.fs | 77 ----- .../DashComponents/HTMLComponents/Acronym.fs | 77 ----- .../DashComponents/HTMLComponents/Address.fs | 77 ----- .../DashComponents/HTMLComponents/Area.fs | 77 ----- .../DashComponents/HTMLComponents/Article.fs | 77 ----- .../DashComponents/HTMLComponents/Aside.fs | 77 ----- .../DashComponents/HTMLComponents/Audio.fs | 77 ----- .../DashComponents/HTMLComponents/B.fs | 77 ----- .../DashComponents/HTMLComponents/Base.fs | 77 ----- .../DashComponents/HTMLComponents/Basefont.fs | 77 ----- .../DashComponents/HTMLComponents/Bdi.fs | 77 ----- .../DashComponents/HTMLComponents/Bdo.fs | 77 ----- .../DashComponents/HTMLComponents/Big.fs | 77 ----- .../DashComponents/HTMLComponents/Blink.fs | 77 ----- .../HTMLComponents/Blockquote.fs | 77 ----- .../DashComponents/HTMLComponents/Br.fs | 77 ----- .../DashComponents/HTMLComponents/Button.fs | 77 ----- .../DashComponents/HTMLComponents/Canvas.fs | 77 ----- .../DashComponents/HTMLComponents/Caption.fs | 77 ----- .../DashComponents/HTMLComponents/Center.fs | 77 ----- .../DashComponents/HTMLComponents/Cite.fs | 77 ----- .../DashComponents/HTMLComponents/Code.fs | 77 ----- .../DashComponents/HTMLComponents/Col.fs | 77 ----- .../DashComponents/HTMLComponents/Colgroup.fs | 77 ----- .../DashComponents/HTMLComponents/Command.fs | 77 ----- .../DashComponents/HTMLComponents/Content.fs | 77 ----- .../DashComponents/HTMLComponents/Data.fs | 77 ----- .../DashComponents/HTMLComponents/Datalist.fs | 77 ----- .../DashComponents/HTMLComponents/Dd.fs | 77 ----- .../DashComponents/HTMLComponents/Del.fs | 77 ----- .../DashComponents/HTMLComponents/Details.fs | 77 ----- .../DashComponents/HTMLComponents/Dfn.fs | 77 ----- .../DashComponents/HTMLComponents/Dialog.fs | 77 ----- .../DashComponents/HTMLComponents/Div.fs | 77 ----- .../DashComponents/HTMLComponents/Dl.fs | 77 ----- .../DashComponents/HTMLComponents/Dt.fs | 77 ----- .../DashComponents/HTMLComponents/Element.fs | 77 ----- .../DashComponents/HTMLComponents/Em.fs | 77 ----- .../DashComponents/HTMLComponents/Embed.fs | 77 ----- .../DashComponents/HTMLComponents/Fieldset.fs | 77 ----- .../HTMLComponents/Figcaption.fs | 77 ----- .../DashComponents/HTMLComponents/Figure.fs | 77 ----- .../DashComponents/HTMLComponents/Font.fs | 77 ----- .../DashComponents/HTMLComponents/Footer.fs | 77 ----- .../DashComponents/HTMLComponents/Form.fs | 77 ----- .../DashComponents/HTMLComponents/Frame.fs | 77 ----- .../DashComponents/HTMLComponents/Frameset.fs | 77 ----- .../DashComponents/HTMLComponents/H1.fs | 77 ----- .../DashComponents/HTMLComponents/H2.fs | 77 ----- .../DashComponents/HTMLComponents/H3.fs | 77 ----- .../DashComponents/HTMLComponents/H4.fs | 77 ----- .../DashComponents/HTMLComponents/H5.fs | 77 ----- .../DashComponents/HTMLComponents/H6.fs | 77 ----- .../DashComponents/HTMLComponents/Header.fs | 77 ----- .../DashComponents/HTMLComponents/Hgroup.fs | 77 ----- .../DashComponents/HTMLComponents/Hr.fs | 77 ----- .../DashComponents/HTMLComponents/Html.fs | 285 ++++++++++++++++++ .../DashComponents/HTMLComponents/I.fs | 77 ----- .../DashComponents/HTMLComponents/Iframe.fs | 77 ----- .../DashComponents/HTMLComponents/Img.fs | 77 ----- .../DashComponents/HTMLComponents/Ins.fs | 77 ----- .../DashComponents/HTMLComponents/Isindex.fs | 77 ----- .../DashComponents/HTMLComponents/Kbd.fs | 77 ----- .../DashComponents/HTMLComponents/Keygen.fs | 77 ----- .../DashComponents/HTMLComponents/Label.fs | 77 ----- .../DashComponents/HTMLComponents/Legend.fs | 77 ----- .../DashComponents/HTMLComponents/Li.fs | 77 ----- .../DashComponents/HTMLComponents/Link.fs | 77 ----- .../DashComponents/HTMLComponents/Listing.fs | 77 ----- .../DashComponents/HTMLComponents/Main.fs | 77 ----- .../DashComponents/HTMLComponents/MapEl.fs | 77 ----- .../DashComponents/HTMLComponents/Mark.fs | 77 ----- .../DashComponents/HTMLComponents/Marquee.fs | 77 ----- .../DashComponents/HTMLComponents/Meta.fs | 77 ----- .../DashComponents/HTMLComponents/Meter.fs | 77 ----- .../DashComponents/HTMLComponents/Multicol.fs | 77 ----- .../DashComponents/HTMLComponents/Nav.fs | 77 ----- .../DashComponents/HTMLComponents/Nextid.fs | 77 ----- .../DashComponents/HTMLComponents/Nobr.fs | 77 ----- .../DashComponents/HTMLComponents/Noscript.fs | 77 ----- .../DashComponents/HTMLComponents/ObjectEl.fs | 77 ----- .../DashComponents/HTMLComponents/Ol.fs | 77 ----- .../DashComponents/HTMLComponents/Optgroup.fs | 77 ----- .../DashComponents/HTMLComponents/Option.fs | 77 ----- .../DashComponents/HTMLComponents/Output.fs | 77 ----- .../DashComponents/HTMLComponents/P.fs | 77 ----- .../DashComponents/HTMLComponents/Param.fs | 77 ----- .../DashComponents/HTMLComponents/Picture.fs | 77 ----- .../HTMLComponents/Plaintext.fs | 77 ----- .../DashComponents/HTMLComponents/Pre.fs | 77 ----- .../DashComponents/HTMLComponents/Progress.fs | 77 ----- .../DashComponents/HTMLComponents/Q.fs | 77 ----- .../HTMLComponents/RawString.fs | 22 -- .../DashComponents/HTMLComponents/Rb.fs | 77 ----- .../DashComponents/HTMLComponents/Readme.md | 7 +- .../DashComponents/HTMLComponents/Rp.fs | 77 ----- .../DashComponents/HTMLComponents/Rt.fs | 77 ----- .../DashComponents/HTMLComponents/Rtc.fs | 77 ----- .../DashComponents/HTMLComponents/Ruby.fs | 77 ----- .../DashComponents/HTMLComponents/S.fs | 77 ----- .../DashComponents/HTMLComponents/Samp.fs | 77 ----- .../DashComponents/HTMLComponents/Script.fs | 77 ----- .../DashComponents/HTMLComponents/Section.fs | 77 ----- .../DashComponents/HTMLComponents/Select.fs | 77 ----- .../DashComponents/HTMLComponents/Shadow.fs | 77 ----- .../DashComponents/HTMLComponents/Slot.fs | 77 ----- .../DashComponents/HTMLComponents/Small.fs | 77 ----- .../DashComponents/HTMLComponents/Source.fs | 77 ----- .../DashComponents/HTMLComponents/Spacer.fs | 77 ----- .../DashComponents/HTMLComponents/Span.fs | 77 ----- .../DashComponents/HTMLComponents/Strike.fs | 77 ----- .../DashComponents/HTMLComponents/Strong.fs | 77 ----- .../DashComponents/HTMLComponents/Sub.fs | 77 ----- .../DashComponents/HTMLComponents/Summary.fs | 77 ----- .../DashComponents/HTMLComponents/Sup.fs | 77 ----- .../DashComponents/HTMLComponents/Table.fs | 77 ----- .../DashComponents/HTMLComponents/Tbody.fs | 77 ----- .../DashComponents/HTMLComponents/Td.fs | 77 ----- .../DashComponents/HTMLComponents/Template.fs | 77 ----- .../DashComponents/HTMLComponents/Textarea.fs | 77 ----- .../DashComponents/HTMLComponents/Tfoot.fs | 77 ----- .../DashComponents/HTMLComponents/Th.fs | 77 ----- .../DashComponents/HTMLComponents/Thead.fs | 77 ----- .../DashComponents/HTMLComponents/Time.fs | 77 ----- .../DashComponents/HTMLComponents/Title.fs | 77 ----- .../DashComponents/HTMLComponents/Tr.fs | 77 ----- .../DashComponents/HTMLComponents/Track.fs | 77 ----- .../DashComponents/HTMLComponents/U.fs | 77 ----- .../DashComponents/HTMLComponents/Ul.fs | 77 ----- .../DashComponents/HTMLComponents/Var.fs | 77 ----- .../DashComponents/HTMLComponents/Video.fs | 77 ----- .../DashComponents/HTMLComponents/Wbr.fs | 77 ----- .../DashComponents/HTMLComponents/Xmp.fs | 77 ----- 137 files changed, 385 insertions(+), 10324 deletions(-) delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/A.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Abbr.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Acronym.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Address.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Area.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Article.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Aside.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Audio.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/B.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Base.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Basefont.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Bdi.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Bdo.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Big.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Blink.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Blockquote.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Br.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Button.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Canvas.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Caption.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Center.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Cite.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Code.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Col.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Colgroup.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Command.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Content.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Data.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Datalist.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Dd.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Del.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Details.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Dfn.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Dialog.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Div.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Dl.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Dt.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Element.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Em.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Embed.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Fieldset.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Figcaption.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Figure.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Font.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Footer.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Form.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Frame.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Frameset.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/H1.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/H2.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/H3.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/H4.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/H5.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/H6.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Header.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Hgroup.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Hr.fs create mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Html.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/I.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Iframe.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Img.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Ins.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Isindex.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Kbd.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Keygen.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Label.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Legend.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Li.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Link.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Listing.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Main.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/MapEl.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Mark.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Marquee.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Meta.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Meter.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Multicol.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Nav.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Nextid.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Nobr.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Noscript.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/ObjectEl.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Ol.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Optgroup.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Option.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Output.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/P.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Param.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Picture.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Plaintext.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Pre.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Progress.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Q.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/RawString.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Rb.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Rp.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Rt.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Rtc.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Ruby.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/S.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Samp.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Script.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Section.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Select.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Shadow.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Slot.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Small.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Source.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Spacer.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Span.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Strike.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Strong.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Sub.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Summary.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Sup.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Table.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Tbody.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Td.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Template.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Textarea.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Tfoot.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Th.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Thead.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Time.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Title.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Tr.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Track.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/U.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Ul.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Var.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Video.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Wbr.fs delete mode 100644 src/Dash.NET/DashComponents/HTMLComponents/Xmp.fs diff --git a/dev/Program.fs b/dev/Program.fs index 4e37bc9..fa772a9 100644 --- a/dev/Program.fs +++ b/dev/Program.fs @@ -16,47 +16,62 @@ open Dash.NET //============================================== LAYOUT ============================================== //---------------------------------------------------------------------------------------------------- -//The layout describes the components that Dash will render for you. -open Dash.NET.HTML // this namespace contains the standard html copmponents, such as div, h1, etc. -open Dash.NET.DCC // this namespace contains the dash core components, the heart of your Dash.NET app. +//The layout describes the components that Dash will render for you. +open Dash.NET.Html // this namespace contains the standard html copmponents, such as div, h1, etc. +open Dash.NET.Css // this namespace contains the standard html copmponents, such as div, h1, etc. -open HTMLPropTypes +open Dash.NET.DCC // this namespace contains the dash core components, the heart of your Dash.NET app. open ComponentPropTypes -type A = {B:string} +type A = { B: string } //Note that this layout uses css classes defined by Bulma (https://bulma.io/), which gets defined as a css dependency in the app section below. -let dslLayout = - Div.div [ClassName "section"] [ //the style for 'main-section' is actually defined in a custom css that you can serve with the dash app. - Dropdown.dropdown "testInput1" [ - Dropdown.Options [ - DropdownOption.create "1" "1" false "1" - DropdownOption.create 2 2 false "2" - DropdownOption.create 3L 3L false "3" - DropdownOption.create 4.1 4.1 false "4.1" - ] - Dropdown.Multi true - ] [] - Label.label [] [str "selected values:"] - Div.div [Id "output-1"] [] - Div.div [Id "output-2"] [] - Div.div [Id "output-3"] [] - Div.div [Id "output-4"] [] - Button.button [ClassName "button is-primary"; Id "testInput2"] [str "Click ME!"] - Br.br [] [] - Label.label [] [str "Number of clicks:"] - Div.div [Id "output-5"] [] +let dslLayout = + Html.div [ + Attr.className "section" + Attr.children [ + Dropdown.dropdown "testInput1" [ + Dropdown.Options [ + DropdownOption.create "1" "1" false "1" + DropdownOption.create 2 2 false "2" + DropdownOption.create 3L 3L false "3" + DropdownOption.create 4.1 4.1 false "4.1" + ] + Dropdown.Multi true + ] [] + Html.br [] + Html.label [ Attr.children (Html.text "Selected values :") ] + Html.br [] + Html.div [ Attr.id "output-1" ] + Html.div [ Attr.id "output-2" ] + Html.div [ Attr.id "output-3" ] + Html.div [ Attr.id "output-4" ] + Html.button [ + Attr.className "button is-primary" + Attr.id "testInput2" + Attr.children "Click ME!" ] + Html.br [] + Html.label [ Attr.children (Html.text "Number of clicks:") ] + Html.div [ Attr.id "output-5" ] + Html.p [ + Attr.className "has-text-primary" + Attr.children (Html.text "Testing Attribute DSL") ] + Html.text "Testing Html DSL" + Html.custom ("P", [Attr.children (Html.text "This is a custom Html element")]) + Html.p [ + Attr.style [(Css.color Feliz.color.blue); Css.fontSize 30] + Attr.children (Html.text "Testing Css DSL")] + ] ] - //---------------------------------------------------------------------------------------------------- //============================================= Callbacks ============================================ //---------------------------------------------------------------------------------------------------- -//Callbacks define how your components can be updated and update each other. A callback has one or -//more Input components (defined by their id and the property that acts as input) and an output -//component (again defined by its id and output property). Additionally, a function that handles the +//Callbacks define how your components can be updated and update each other. A callback has one or +//more Input components (defined by their id and the property that acts as input) and an output +//component (again defined by its id and output property). Additionally, a function that handles the //input and returns the desired output is needed. open Newtonsoft.Json @@ -83,23 +98,21 @@ let callbackArrayInput = // usage of the new operators: let clickInput = - Callback.singleOut( + Callback.singleOut ( "testInput2" @. N_Clicks, "output-5" @. Children, - (fun (x:float) -> - "output-5" @. Children => sprintf "%A" x - ) + (fun (x: float) -> "output-5" @. Children => sprintf "%A" x) ) //---------------------------------------------------------------------------------------------------- //============================================= The App ============================================== //---------------------------------------------------------------------------------------------------- -//The 'DashApp' type is your central DashApp that contains all settings, configs, the layout, styles, -//scripts, etc. that makes up your Dash.NET app. +//The 'DashApp' type is your central DashApp that contains all settings, configs, the layout, styles, +//scripts, etc. that makes up your Dash.NET app. let myDashApp = - DashApp.initDefault() // create a Dash.NET app with default settings + DashApp.initDefault () // create a Dash.NET app with default settings |> DashApp.withLayout dslLayout // register the layout defined above. |> DashApp.appendCSSLinks [ "main.css" // serve your custom css @@ -107,60 +120,73 @@ let myDashApp = ] |> DashApp.addCallback callbackArrayInput // register the callback that will update the map |> DashApp.addCallback clickInput // register the callback that will update the map + + -// The things below are Giraffe/ASP:NetCore specific and will likely be abstracted in the future. + // The things below are Giraffe/ASP:NetCore specific and will likely be abstracted in the future. // --------------------------------- // Error handler // --------------------------------- -let errorHandler (ex : Exception) (logger : ILogger) = +let errorHandler (ex: Exception) (logger: ILogger) = logger.LogError(ex, "An unhandled exception has occurred while executing the request.") - clearResponse >=> setStatusCode 500 >=> text ex.Message + + clearResponse + >=> setStatusCode 500 + >=> text ex.Message // --------------------------------- // Config and Main // --------------------------------- -let configureCors (builder : CorsPolicyBuilder) = - builder.WithOrigins("http://localhost:8080") - .AllowAnyMethod() - .AllowAnyHeader() - |> ignore +let configureCors (builder: CorsPolicyBuilder) = + builder + .WithOrigins("http://localhost:8080") + .AllowAnyMethod() + .AllowAnyHeader() + |> ignore + +let configureApp (app: IApplicationBuilder) = + let env = + app.ApplicationServices.GetService() -let configureApp (app : IApplicationBuilder) = - let env = app.ApplicationServices.GetService() (match env.EnvironmentName with - | "Development" -> app.UseDeveloperExceptionPage() - | _ -> app.UseGiraffeErrorHandler(errorHandler)) + | "Development" -> app.UseDeveloperExceptionPage() + | _ -> app.UseGiraffeErrorHandler(errorHandler)) .UseHttpsRedirection() .UseCors(configureCors) .UseStaticFiles() .UseGiraffe(DashApp.toHttpHandler myDashApp) -let configureServices (services : IServiceCollection) = - services.AddCors() |> ignore +let configureServices (services: IServiceCollection) = + services.AddCors() |> ignore services.AddGiraffe() |> ignore -let configureLogging (builder : ILoggingBuilder) = - builder.AddFilter(fun l -> l.Equals LogLevel.Debug) - .AddConsole() - .AddDebug() |> ignore +let configureLogging (builder: ILoggingBuilder) = + builder + .AddFilter(fun l -> l.Equals LogLevel.Debug) + .AddConsole() + .AddDebug() + |> ignore [] let main args = let contentRoot = Directory.GetCurrentDirectory() - let webRoot = Path.Combine(contentRoot, "WebRoot") - Host.CreateDefaultBuilder(args) - .ConfigureWebHostDefaults( - fun webHostBuilder -> - webHostBuilder - .UseContentRoot(contentRoot) - .UseWebRoot(webRoot) - .Configure(Action configureApp) - .ConfigureServices(configureServices) - .ConfigureLogging(configureLogging) - |> ignore) + let webRoot = Path.Combine(contentRoot, "WebRoot") + + Host + .CreateDefaultBuilder(args) + .ConfigureWebHostDefaults(fun webHostBuilder -> + webHostBuilder + .UseContentRoot(contentRoot) + .UseWebRoot(webRoot) + .UseUrls("http://localhost:5000") + .Configure(Action configureApp) + .ConfigureServices(configureServices) + .ConfigureLogging(configureLogging) + |> ignore) .Build() .Run() - 0 \ No newline at end of file + + 0 diff --git a/src/Dash.NET/Dash.NET.fsproj b/src/Dash.NET/Dash.NET.fsproj index 6e45615..d486f09 100644 --- a/src/Dash.NET/Dash.NET.fsproj +++ b/src/Dash.NET/Dash.NET.fsproj @@ -31,138 +31,7 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + @@ -184,8 +53,8 @@ - + diff --git a/src/Dash.NET/DashComponents/ComponentBase.fs b/src/Dash.NET/DashComponents/ComponentBase.fs index 5697da2..0a11afa 100644 --- a/src/Dash.NET/DashComponents/ComponentBase.fs +++ b/src/Dash.NET/DashComponents/ComponentBase.fs @@ -134,21 +134,6 @@ module ComponentPropTypes = } static member create border primary background = {Border=border; Primary=primary; Background=background} -module HTMLPropTypes = - - type HTMLProps = - | Id of string - | ClassName of string - | Style of DashComponentStyle - | Custom of (string*obj) - - static member toDynamicMemberDef (prop:HTMLProps) = - match prop with - | Id p -> "id", box p - | ClassName p -> "className", box p - | Style p -> "style", box p - | Custom p -> p - type ComponentProperty = | Children | Value diff --git a/src/Dash.NET/DashComponents/HTMLComponents/A.fs b/src/Dash.NET/DashComponents/HTMLComponents/A.fs deleted file mode 100644 index ee63713..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/A.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: A -//camelCaseComponentName: a -//ComponentChar: a -//ComponentNamespace: dash_html_components -//ComponentType: A -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module A = - - type A() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (a:A) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue a "namespace" "dash_html_components" - DynObj.setValue a "props" props - DynObj.setValue a "type" "A" - - a - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - A() - |> A.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let a (props:seq) (children:seq) = - let a = A.init(children) - let componentProps = - match (a.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue a "props" - a :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Abbr.fs b/src/Dash.NET/DashComponents/HTMLComponents/Abbr.fs deleted file mode 100644 index 5770a89..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Abbr.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Abbr -//camelCaseComponentName: abbr -//ComponentChar: a -//ComponentNamespace: dash_html_components -//ComponentType: Abbr -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Abbr = - - type Abbr() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (a:Abbr) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue a "namespace" "dash_html_components" - DynObj.setValue a "props" props - DynObj.setValue a "type" "Abbr" - - a - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Abbr() - |> Abbr.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let abbr (props:seq) (children:seq) = - let a = Abbr.init(children) - let componentProps = - match (a.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue a "props" - a :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Acronym.fs b/src/Dash.NET/DashComponents/HTMLComponents/Acronym.fs deleted file mode 100644 index df7c09b..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Acronym.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Acronym -//camelCaseComponentName: acronym -//ComponentChar: a -//ComponentNamespace: dash_html_components -//ComponentType: Acronym -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Acronym = - - type Acronym() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (a:Acronym) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue a "namespace" "dash_html_components" - DynObj.setValue a "props" props - DynObj.setValue a "type" "Acronym" - - a - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Acronym() - |> Acronym.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let acronym (props:seq) (children:seq) = - let a = Acronym.init(children) - let componentProps = - match (a.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue a "props" - a :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Address.fs b/src/Dash.NET/DashComponents/HTMLComponents/Address.fs deleted file mode 100644 index 7b563f8..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Address.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Address -//camelCaseComponentName: address -//ComponentChar: a -//ComponentNamespace: dash_html_components -//ComponentType: Address -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Address = - - type Address() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (a:Address) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue a "namespace" "dash_html_components" - DynObj.setValue a "props" props - DynObj.setValue a "type" "Address" - - a - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Address() - |> Address.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let address (props:seq) (children:seq) = - let a = Address.init(children) - let componentProps = - match (a.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue a "props" - a :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Area.fs b/src/Dash.NET/DashComponents/HTMLComponents/Area.fs deleted file mode 100644 index fec478e..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Area.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Area -//camelCaseComponentName: area -//ComponentChar: a -//ComponentNamespace: dash_html_components -//ComponentType: Area -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Area = - - type Area() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (a:Area) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue a "namespace" "dash_html_components" - DynObj.setValue a "props" props - DynObj.setValue a "type" "Area" - - a - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Area() - |> Area.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let area (props:seq) (children:seq) = - let a = Area.init(children) - let componentProps = - match (a.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue a "props" - a :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Article.fs b/src/Dash.NET/DashComponents/HTMLComponents/Article.fs deleted file mode 100644 index d1d1f28..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Article.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Article -//camelCaseComponentName: article -//ComponentChar: a -//ComponentNamespace: dash_html_components -//ComponentType: Article -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Article = - - type Article() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (a:Article) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue a "namespace" "dash_html_components" - DynObj.setValue a "props" props - DynObj.setValue a "type" "Article" - - a - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Article() - |> Article.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let article (props:seq) (children:seq) = - let a = Article.init(children) - let componentProps = - match (a.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue a "props" - a :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Aside.fs b/src/Dash.NET/DashComponents/HTMLComponents/Aside.fs deleted file mode 100644 index e37c42b..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Aside.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Aside -//camelCaseComponentName: aside -//ComponentChar: a -//ComponentNamespace: dash_html_components -//ComponentType: Aside -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Aside = - - type Aside() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (a:Aside) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue a "namespace" "dash_html_components" - DynObj.setValue a "props" props - DynObj.setValue a "type" "Aside" - - a - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Aside() - |> Aside.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let aside (props:seq) (children:seq) = - let a = Aside.init(children) - let componentProps = - match (a.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue a "props" - a :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Audio.fs b/src/Dash.NET/DashComponents/HTMLComponents/Audio.fs deleted file mode 100644 index 7a919bf..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Audio.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Audio -//camelCaseComponentName: audio -//ComponentChar: a -//ComponentNamespace: dash_html_components -//ComponentType: Audio -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Audio = - - type Audio() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (a:Audio) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue a "namespace" "dash_html_components" - DynObj.setValue a "props" props - DynObj.setValue a "type" "Audio" - - a - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Audio() - |> Audio.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let audio (props:seq) (children:seq) = - let a = Audio.init(children) - let componentProps = - match (a.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue a "props" - a :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/B.fs b/src/Dash.NET/DashComponents/HTMLComponents/B.fs deleted file mode 100644 index 679f555..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/B.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: B -//camelCaseComponentName: b -//ComponentChar: b -//ComponentNamespace: dash_html_components -//ComponentType: B -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module B = - - type B() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (b:B) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue b "namespace" "dash_html_components" - DynObj.setValue b "props" props - DynObj.setValue b "type" "B" - - b - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - B() - |> B.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let b (props:seq) (children:seq) = - let b = B.init(children) - let componentProps = - match (b.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue b "props" - b :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Base.fs b/src/Dash.NET/DashComponents/HTMLComponents/Base.fs deleted file mode 100644 index bf66052..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Base.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Base -//camelCaseComponentName: _base -//ComponentChar: b -//ComponentNamespace: dash_html_components -//ComponentType: Base -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Base = - - type Base() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (b:Base) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue b "namespace" "dash_html_components" - DynObj.setValue b "props" props - DynObj.setValue b "type" "Base" - - b - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Base() - |> Base.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let _base (props:seq) (children:seq) = - let b = Base.init(children) - let componentProps = - match (b.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue b "props" - b :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Basefont.fs b/src/Dash.NET/DashComponents/HTMLComponents/Basefont.fs deleted file mode 100644 index 9fc7649..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Basefont.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Basefont -//camelCaseComponentName: basefont -//ComponentChar: b -//ComponentNamespace: dash_html_components -//ComponentType: Basefont -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Basefont = - - type Basefont() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (b:Basefont) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue b "namespace" "dash_html_components" - DynObj.setValue b "props" props - DynObj.setValue b "type" "Basefont" - - b - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Basefont() - |> Basefont.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let basefont (props:seq) (children:seq) = - let b = Basefont.init(children) - let componentProps = - match (b.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue b "props" - b :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Bdi.fs b/src/Dash.NET/DashComponents/HTMLComponents/Bdi.fs deleted file mode 100644 index f4ba5d9..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Bdi.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Bdi -//camelCaseComponentName: bdi -//ComponentChar: b -//ComponentNamespace: dash_html_components -//ComponentType: Bdi -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Bdi = - - type Bdi() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (b:Bdi) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue b "namespace" "dash_html_components" - DynObj.setValue b "props" props - DynObj.setValue b "type" "Bdi" - - b - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Bdi() - |> Bdi.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let bdi (props:seq) (children:seq) = - let b = Bdi.init(children) - let componentProps = - match (b.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue b "props" - b :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Bdo.fs b/src/Dash.NET/DashComponents/HTMLComponents/Bdo.fs deleted file mode 100644 index 641ec3a..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Bdo.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Bdo -//camelCaseComponentName: bdo -//ComponentChar: b -//ComponentNamespace: dash_html_components -//ComponentType: Bdo -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Bdo = - - type Bdo() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (b:Bdo) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue b "namespace" "dash_html_components" - DynObj.setValue b "props" props - DynObj.setValue b "type" "Bdo" - - b - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Bdo() - |> Bdo.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let bdo (props:seq) (children:seq) = - let b = Bdo.init(children) - let componentProps = - match (b.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue b "props" - b :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Big.fs b/src/Dash.NET/DashComponents/HTMLComponents/Big.fs deleted file mode 100644 index 4a86775..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Big.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Big -//camelCaseComponentName: big -//ComponentChar: b -//ComponentNamespace: dash_html_components -//ComponentType: Big -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Big = - - type Big() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (b:Big) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue b "namespace" "dash_html_components" - DynObj.setValue b "props" props - DynObj.setValue b "type" "Big" - - b - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Big() - |> Big.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let big (props:seq) (children:seq) = - let b = Big.init(children) - let componentProps = - match (b.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue b "props" - b :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Blink.fs b/src/Dash.NET/DashComponents/HTMLComponents/Blink.fs deleted file mode 100644 index 8cb90ca..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Blink.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Blink -//camelCaseComponentName: blink -//ComponentChar: b -//ComponentNamespace: dash_html_components -//ComponentType: Blink -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Blink = - - type Blink() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (b:Blink) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue b "namespace" "dash_html_components" - DynObj.setValue b "props" props - DynObj.setValue b "type" "Blink" - - b - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Blink() - |> Blink.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let blink (props:seq) (children:seq) = - let b = Blink.init(children) - let componentProps = - match (b.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue b "props" - b :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Blockquote.fs b/src/Dash.NET/DashComponents/HTMLComponents/Blockquote.fs deleted file mode 100644 index 57a5b4a..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Blockquote.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Blockquote -//camelCaseComponentName: blockquote -//ComponentChar: b -//ComponentNamespace: dash_html_components -//ComponentType: Blockquote -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Blockquote = - - type Blockquote() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (b:Blockquote) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue b "namespace" "dash_html_components" - DynObj.setValue b "props" props - DynObj.setValue b "type" "Blockquote" - - b - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Blockquote() - |> Blockquote.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let blockquote (props:seq) (children:seq) = - let b = Blockquote.init(children) - let componentProps = - match (b.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue b "props" - b :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Br.fs b/src/Dash.NET/DashComponents/HTMLComponents/Br.fs deleted file mode 100644 index 8ac86e1..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Br.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Br -//camelCaseComponentName: br -//ComponentChar: b -//ComponentNamespace: dash_html_components -//ComponentType: Br -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Br = - - type Br() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (b:Br) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue b "namespace" "dash_html_components" - DynObj.setValue b "props" props - DynObj.setValue b "type" "Br" - - b - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Br() - |> Br.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let br (props:seq) (children:seq) = - let b = Br.init(children) - let componentProps = - match (b.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue b "props" - b :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Button.fs b/src/Dash.NET/DashComponents/HTMLComponents/Button.fs deleted file mode 100644 index e345756..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Button.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Button -//camelCaseComponentName: button -//ComponentChar: b -//ComponentNamespace: dash_html_components -//ComponentType: Button -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Button = - - type Button() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (b:Button) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue b "namespace" "dash_html_components" - DynObj.setValue b "props" props - DynObj.setValue b "type" "Button" - - b - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Button() - |> Button.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let button (props:seq) (children:seq) = - let b = Button.init(children) - let componentProps = - match (b.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue b "props" - b :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Canvas.fs b/src/Dash.NET/DashComponents/HTMLComponents/Canvas.fs deleted file mode 100644 index 54bb1c3..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Canvas.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Canvas -//camelCaseComponentName: canvas -//ComponentChar: c -//ComponentNamespace: dash_html_components -//ComponentType: Canvas -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Canvas = - - type Canvas() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (c:Canvas) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue c "namespace" "dash_html_components" - DynObj.setValue c "props" props - DynObj.setValue c "type" "Canvas" - - c - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Canvas() - |> Canvas.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let canvas (props:seq) (children:seq) = - let c = Canvas.init(children) - let componentProps = - match (c.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue c "props" - c :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Caption.fs b/src/Dash.NET/DashComponents/HTMLComponents/Caption.fs deleted file mode 100644 index fb3d33d..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Caption.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Caption -//camelCaseComponentName: caption -//ComponentChar: c -//ComponentNamespace: dash_html_components -//ComponentType: Caption -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Caption = - - type Caption() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (c:Caption) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue c "namespace" "dash_html_components" - DynObj.setValue c "props" props - DynObj.setValue c "type" "Caption" - - c - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Caption() - |> Caption.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let caption (props:seq) (children:seq) = - let c = Caption.init(children) - let componentProps = - match (c.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue c "props" - c :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Center.fs b/src/Dash.NET/DashComponents/HTMLComponents/Center.fs deleted file mode 100644 index aafb594..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Center.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Center -//camelCaseComponentName: center -//ComponentChar: c -//ComponentNamespace: dash_html_components -//ComponentType: Center -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Center = - - type Center() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (c:Center) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue c "namespace" "dash_html_components" - DynObj.setValue c "props" props - DynObj.setValue c "type" "Center" - - c - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Center() - |> Center.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let center (props:seq) (children:seq) = - let c = Center.init(children) - let componentProps = - match (c.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue c "props" - c :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Cite.fs b/src/Dash.NET/DashComponents/HTMLComponents/Cite.fs deleted file mode 100644 index 44bc46b..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Cite.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Cite -//camelCaseComponentName: cite -//ComponentChar: c -//ComponentNamespace: dash_html_components -//ComponentType: Cite -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Cite = - - type Cite() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (c:Cite) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue c "namespace" "dash_html_components" - DynObj.setValue c "props" props - DynObj.setValue c "type" "Cite" - - c - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Cite() - |> Cite.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let cite (props:seq) (children:seq) = - let c = Cite.init(children) - let componentProps = - match (c.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue c "props" - c :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Code.fs b/src/Dash.NET/DashComponents/HTMLComponents/Code.fs deleted file mode 100644 index 840339b..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Code.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Code -//camelCaseComponentName: code -//ComponentChar: c -//ComponentNamespace: dash_html_components -//ComponentType: Code -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Code = - - type Code() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (c:Code) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue c "namespace" "dash_html_components" - DynObj.setValue c "props" props - DynObj.setValue c "type" "Code" - - c - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Code() - |> Code.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let code (props:seq) (children:seq) = - let c = Code.init(children) - let componentProps = - match (c.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue c "props" - c :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Col.fs b/src/Dash.NET/DashComponents/HTMLComponents/Col.fs deleted file mode 100644 index 398161d..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Col.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Col -//camelCaseComponentName: col -//ComponentChar: c -//ComponentNamespace: dash_html_components -//ComponentType: Col -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Col = - - type Col() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (c:Col) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue c "namespace" "dash_html_components" - DynObj.setValue c "props" props - DynObj.setValue c "type" "Col" - - c - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Col() - |> Col.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let col (props:seq) (children:seq) = - let c = Col.init(children) - let componentProps = - match (c.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue c "props" - c :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Colgroup.fs b/src/Dash.NET/DashComponents/HTMLComponents/Colgroup.fs deleted file mode 100644 index 260a119..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Colgroup.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Colgroup -//camelCaseComponentName: colgroup -//ComponentChar: c -//ComponentNamespace: dash_html_components -//ComponentType: Colgroup -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Colgroup = - - type Colgroup() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (c:Colgroup) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue c "namespace" "dash_html_components" - DynObj.setValue c "props" props - DynObj.setValue c "type" "Colgroup" - - c - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Colgroup() - |> Colgroup.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let colgroup (props:seq) (children:seq) = - let c = Colgroup.init(children) - let componentProps = - match (c.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue c "props" - c :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Command.fs b/src/Dash.NET/DashComponents/HTMLComponents/Command.fs deleted file mode 100644 index 66c21a9..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Command.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Command -//camelCaseComponentName: command -//ComponentChar: c -//ComponentNamespace: dash_html_components -//ComponentType: Command -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Command = - - type Command() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (c:Command) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue c "namespace" "dash_html_components" - DynObj.setValue c "props" props - DynObj.setValue c "type" "Command" - - c - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Command() - |> Command.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let command (props:seq) (children:seq) = - let c = Command.init(children) - let componentProps = - match (c.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue c "props" - c :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Content.fs b/src/Dash.NET/DashComponents/HTMLComponents/Content.fs deleted file mode 100644 index 17f5819..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Content.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Content -//camelCaseComponentName: content -//ComponentChar: c -//ComponentNamespace: dash_html_components -//ComponentType: Content -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Content = - - type Content() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (c:Content) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue c "namespace" "dash_html_components" - DynObj.setValue c "props" props - DynObj.setValue c "type" "Content" - - c - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Content() - |> Content.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let content (props:seq) (children:seq) = - let c = Content.init(children) - let componentProps = - match (c.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue c "props" - c :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Data.fs b/src/Dash.NET/DashComponents/HTMLComponents/Data.fs deleted file mode 100644 index 57e96f5..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Data.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Data -//camelCaseComponentName: data -//ComponentChar: d -//ComponentNamespace: dash_html_components -//ComponentType: Data -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Data = - - type Data() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (d:Data) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue d "namespace" "dash_html_components" - DynObj.setValue d "props" props - DynObj.setValue d "type" "Data" - - d - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Data() - |> Data.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let data (props:seq) (children:seq) = - let d = Data.init(children) - let componentProps = - match (d.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue d "props" - d :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Datalist.fs b/src/Dash.NET/DashComponents/HTMLComponents/Datalist.fs deleted file mode 100644 index bf42166..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Datalist.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Datalist -//camelCaseComponentName: datalist -//ComponentChar: d -//ComponentNamespace: dash_html_components -//ComponentType: Datalist -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Datalist = - - type Datalist() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (d:Datalist) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue d "namespace" "dash_html_components" - DynObj.setValue d "props" props - DynObj.setValue d "type" "Datalist" - - d - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Datalist() - |> Datalist.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let datalist (props:seq) (children:seq) = - let d = Datalist.init(children) - let componentProps = - match (d.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue d "props" - d :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Dd.fs b/src/Dash.NET/DashComponents/HTMLComponents/Dd.fs deleted file mode 100644 index 9ed41ec..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Dd.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Dd -//camelCaseComponentName: dd -//ComponentChar: d -//ComponentNamespace: dash_html_components -//ComponentType: Dd -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Dd = - - type Dd() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (d:Dd) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue d "namespace" "dash_html_components" - DynObj.setValue d "props" props - DynObj.setValue d "type" "Dd" - - d - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Dd() - |> Dd.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let dd (props:seq) (children:seq) = - let d = Dd.init(children) - let componentProps = - match (d.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue d "props" - d :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Del.fs b/src/Dash.NET/DashComponents/HTMLComponents/Del.fs deleted file mode 100644 index ea87ac2..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Del.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Del -//camelCaseComponentName: del -//ComponentChar: d -//ComponentNamespace: dash_html_components -//ComponentType: Del -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Del = - - type Del() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (d:Del) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue d "namespace" "dash_html_components" - DynObj.setValue d "props" props - DynObj.setValue d "type" "Del" - - d - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Del() - |> Del.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let del (props:seq) (children:seq) = - let d = Del.init(children) - let componentProps = - match (d.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue d "props" - d :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Details.fs b/src/Dash.NET/DashComponents/HTMLComponents/Details.fs deleted file mode 100644 index 484ab01..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Details.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Details -//camelCaseComponentName: details -//ComponentChar: d -//ComponentNamespace: dash_html_components -//ComponentType: Details -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Details = - - type Details() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (d:Details) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue d "namespace" "dash_html_components" - DynObj.setValue d "props" props - DynObj.setValue d "type" "Details" - - d - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Details() - |> Details.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let details (props:seq) (children:seq) = - let d = Details.init(children) - let componentProps = - match (d.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue d "props" - d :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Dfn.fs b/src/Dash.NET/DashComponents/HTMLComponents/Dfn.fs deleted file mode 100644 index fbd1ff4..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Dfn.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Dfn -//camelCaseComponentName: dfn -//ComponentChar: d -//ComponentNamespace: dash_html_components -//ComponentType: Dfn -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Dfn = - - type Dfn() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (d:Dfn) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue d "namespace" "dash_html_components" - DynObj.setValue d "props" props - DynObj.setValue d "type" "Dfn" - - d - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Dfn() - |> Dfn.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let dfn (props:seq) (children:seq) = - let d = Dfn.init(children) - let componentProps = - match (d.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue d "props" - d :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Dialog.fs b/src/Dash.NET/DashComponents/HTMLComponents/Dialog.fs deleted file mode 100644 index 7b706d1..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Dialog.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Dialog -//camelCaseComponentName: dialog -//ComponentChar: d -//ComponentNamespace: dash_html_components -//ComponentType: Dialog -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Dialog = - - type Dialog() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (d:Dialog) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue d "namespace" "dash_html_components" - DynObj.setValue d "props" props - DynObj.setValue d "type" "Dialog" - - d - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Dialog() - |> Dialog.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let dialog (props:seq) (children:seq) = - let d = Dialog.init(children) - let componentProps = - match (d.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue d "props" - d :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Div.fs b/src/Dash.NET/DashComponents/HTMLComponents/Div.fs deleted file mode 100644 index 0925a41..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Div.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Div -//camelCaseComponentName: div -//ComponentChar: d -//ComponentNamespace: dash_html_components -//ComponentType: Div -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Div = - - type Div() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (d:Div) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue d "namespace" "dash_html_components" - DynObj.setValue d "props" props - DynObj.setValue d "type" "Div" - - d - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Div() - |> Div.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let div (props:seq) (children:seq) = - let d = Div.init(children) - let componentProps = - match (d.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue d "props" - d :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Dl.fs b/src/Dash.NET/DashComponents/HTMLComponents/Dl.fs deleted file mode 100644 index 44af7e5..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Dl.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Dl -//camelCaseComponentName: dl -//ComponentChar: d -//ComponentNamespace: dash_html_components -//ComponentType: Dl -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Dl = - - type Dl() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (d:Dl) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue d "namespace" "dash_html_components" - DynObj.setValue d "props" props - DynObj.setValue d "type" "Dl" - - d - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Dl() - |> Dl.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let dl (props:seq) (children:seq) = - let d = Dl.init(children) - let componentProps = - match (d.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue d "props" - d :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Dt.fs b/src/Dash.NET/DashComponents/HTMLComponents/Dt.fs deleted file mode 100644 index 551e1c3..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Dt.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Dt -//camelCaseComponentName: dt -//ComponentChar: d -//ComponentNamespace: dash_html_components -//ComponentType: Dt -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Dt = - - type Dt() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (d:Dt) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue d "namespace" "dash_html_components" - DynObj.setValue d "props" props - DynObj.setValue d "type" "Dt" - - d - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Dt() - |> Dt.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let dt (props:seq) (children:seq) = - let d = Dt.init(children) - let componentProps = - match (d.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue d "props" - d :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Element.fs b/src/Dash.NET/DashComponents/HTMLComponents/Element.fs deleted file mode 100644 index 7c6cb83..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Element.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Element -//camelCaseComponentName: element -//ComponentChar: e -//ComponentNamespace: dash_html_components -//ComponentType: Element -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Element = - - type Element() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (e:Element) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue e "namespace" "dash_html_components" - DynObj.setValue e "props" props - DynObj.setValue e "type" "Element" - - e - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Element() - |> Element.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let element (props:seq) (children:seq) = - let e = Element.init(children) - let componentProps = - match (e.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue e "props" - e :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Em.fs b/src/Dash.NET/DashComponents/HTMLComponents/Em.fs deleted file mode 100644 index 83a51c8..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Em.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Em -//camelCaseComponentName: em -//ComponentChar: e -//ComponentNamespace: dash_html_components -//ComponentType: Em -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Em = - - type Em() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (e:Em) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue e "namespace" "dash_html_components" - DynObj.setValue e "props" props - DynObj.setValue e "type" "Em" - - e - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Em() - |> Em.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let em (props:seq) (children:seq) = - let e = Em.init(children) - let componentProps = - match (e.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue e "props" - e :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Embed.fs b/src/Dash.NET/DashComponents/HTMLComponents/Embed.fs deleted file mode 100644 index cff6792..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Embed.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Embed -//camelCaseComponentName: embed -//ComponentChar: e -//ComponentNamespace: dash_html_components -//ComponentType: Embed -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Embed = - - type Embed() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (e:Embed) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue e "namespace" "dash_html_components" - DynObj.setValue e "props" props - DynObj.setValue e "type" "Embed" - - e - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Embed() - |> Embed.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let embed (props:seq) (children:seq) = - let e = Embed.init(children) - let componentProps = - match (e.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue e "props" - e :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Fieldset.fs b/src/Dash.NET/DashComponents/HTMLComponents/Fieldset.fs deleted file mode 100644 index 98442fa..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Fieldset.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Fieldset -//camelCaseComponentName: fieldset -//ComponentChar: f -//ComponentNamespace: dash_html_components -//ComponentType: Fieldset -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Fieldset = - - type Fieldset() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (f:Fieldset) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue f "namespace" "dash_html_components" - DynObj.setValue f "props" props - DynObj.setValue f "type" "Fieldset" - - f - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Fieldset() - |> Fieldset.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let fieldset (props:seq) (children:seq) = - let f = Fieldset.init(children) - let componentProps = - match (f.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue f "props" - f :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Figcaption.fs b/src/Dash.NET/DashComponents/HTMLComponents/Figcaption.fs deleted file mode 100644 index 085f313..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Figcaption.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Figcaption -//camelCaseComponentName: figcaption -//ComponentChar: f -//ComponentNamespace: dash_html_components -//ComponentType: Figcaption -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Figcaption = - - type Figcaption() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (f:Figcaption) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue f "namespace" "dash_html_components" - DynObj.setValue f "props" props - DynObj.setValue f "type" "Figcaption" - - f - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Figcaption() - |> Figcaption.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let figcaption (props:seq) (children:seq) = - let f = Figcaption.init(children) - let componentProps = - match (f.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue f "props" - f :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Figure.fs b/src/Dash.NET/DashComponents/HTMLComponents/Figure.fs deleted file mode 100644 index aaacf40..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Figure.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Figure -//camelCaseComponentName: figure -//ComponentChar: f -//ComponentNamespace: dash_html_components -//ComponentType: Figure -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Figure = - - type Figure() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (f:Figure) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue f "namespace" "dash_html_components" - DynObj.setValue f "props" props - DynObj.setValue f "type" "Figure" - - f - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Figure() - |> Figure.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let figure (props:seq) (children:seq) = - let f = Figure.init(children) - let componentProps = - match (f.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue f "props" - f :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Font.fs b/src/Dash.NET/DashComponents/HTMLComponents/Font.fs deleted file mode 100644 index 016813e..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Font.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Font -//camelCaseComponentName: font -//ComponentChar: f -//ComponentNamespace: dash_html_components -//ComponentType: Font -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Font = - - type Font() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (f:Font) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue f "namespace" "dash_html_components" - DynObj.setValue f "props" props - DynObj.setValue f "type" "Font" - - f - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Font() - |> Font.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let font (props:seq) (children:seq) = - let f = Font.init(children) - let componentProps = - match (f.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue f "props" - f :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Footer.fs b/src/Dash.NET/DashComponents/HTMLComponents/Footer.fs deleted file mode 100644 index 6d4d135..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Footer.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Footer -//camelCaseComponentName: footer -//ComponentChar: f -//ComponentNamespace: dash_html_components -//ComponentType: Footer -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Footer = - - type Footer() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (f:Footer) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue f "namespace" "dash_html_components" - DynObj.setValue f "props" props - DynObj.setValue f "type" "Footer" - - f - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Footer() - |> Footer.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let footer (props:seq) (children:seq) = - let f = Footer.init(children) - let componentProps = - match (f.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue f "props" - f :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Form.fs b/src/Dash.NET/DashComponents/HTMLComponents/Form.fs deleted file mode 100644 index baf567e..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Form.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Form -//camelCaseComponentName: form -//ComponentChar: f -//ComponentNamespace: dash_html_components -//ComponentType: Form -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Form = - - type Form() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (f:Form) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue f "namespace" "dash_html_components" - DynObj.setValue f "props" props - DynObj.setValue f "type" "Form" - - f - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Form() - |> Form.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let form (props:seq) (children:seq) = - let f = Form.init(children) - let componentProps = - match (f.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue f "props" - f :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Frame.fs b/src/Dash.NET/DashComponents/HTMLComponents/Frame.fs deleted file mode 100644 index 8f7067d..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Frame.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Frame -//camelCaseComponentName: frame -//ComponentChar: f -//ComponentNamespace: dash_html_components -//ComponentType: Frame -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Frame = - - type Frame() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (f:Frame) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue f "namespace" "dash_html_components" - DynObj.setValue f "props" props - DynObj.setValue f "type" "Frame" - - f - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Frame() - |> Frame.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let frame (props:seq) (children:seq) = - let f = Frame.init(children) - let componentProps = - match (f.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue f "props" - f :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Frameset.fs b/src/Dash.NET/DashComponents/HTMLComponents/Frameset.fs deleted file mode 100644 index 70c02a2..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Frameset.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Frameset -//camelCaseComponentName: frameset -//ComponentChar: f -//ComponentNamespace: dash_html_components -//ComponentType: Frameset -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Frameset = - - type Frameset() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (f:Frameset) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue f "namespace" "dash_html_components" - DynObj.setValue f "props" props - DynObj.setValue f "type" "Frameset" - - f - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Frameset() - |> Frameset.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let frameset (props:seq) (children:seq) = - let f = Frameset.init(children) - let componentProps = - match (f.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue f "props" - f :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/H1.fs b/src/Dash.NET/DashComponents/HTMLComponents/H1.fs deleted file mode 100644 index e17db6b..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/H1.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: H1 -//camelCaseComponentName: h1 -//ComponentChar: h -//ComponentNamespace: dash_html_components -//ComponentType: H1 -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module H1 = - - type H1() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (h:H1) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue h "namespace" "dash_html_components" - DynObj.setValue h "props" props - DynObj.setValue h "type" "H1" - - h - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - H1() - |> H1.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let h1 (props:seq) (children:seq) = - let h = H1.init(children) - let componentProps = - match (h.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue h "props" - h :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/H2.fs b/src/Dash.NET/DashComponents/HTMLComponents/H2.fs deleted file mode 100644 index 5f8ddae..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/H2.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: H2 -//camelCaseComponentName: h2 -//ComponentChar: h -//ComponentNamespace: dash_html_components -//ComponentType: H2 -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module H2 = - - type H2() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (h:H2) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue h "namespace" "dash_html_components" - DynObj.setValue h "props" props - DynObj.setValue h "type" "H2" - - h - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - H2() - |> H2.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let h2 (props:seq) (children:seq) = - let h = H2.init(children) - let componentProps = - match (h.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue h "props" - h :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/H3.fs b/src/Dash.NET/DashComponents/HTMLComponents/H3.fs deleted file mode 100644 index e47cd83..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/H3.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: H3 -//camelCaseComponentName: h3 -//ComponentChar: h -//ComponentNamespace: dash_html_components -//ComponentType: H3 -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module H3 = - - type H3() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (h:H3) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue h "namespace" "dash_html_components" - DynObj.setValue h "props" props - DynObj.setValue h "type" "H3" - - h - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - H3() - |> H3.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let h3 (props:seq) (children:seq) = - let h = H3.init(children) - let componentProps = - match (h.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue h "props" - h :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/H4.fs b/src/Dash.NET/DashComponents/HTMLComponents/H4.fs deleted file mode 100644 index 99d8531..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/H4.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: H4 -//camelCaseComponentName: h4 -//ComponentChar: h -//ComponentNamespace: dash_html_components -//ComponentType: H4 -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module H4 = - - type H4() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (h:H4) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue h "namespace" "dash_html_components" - DynObj.setValue h "props" props - DynObj.setValue h "type" "H4" - - h - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - H4() - |> H4.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let h4 (props:seq) (children:seq) = - let h = H4.init(children) - let componentProps = - match (h.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue h "props" - h :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/H5.fs b/src/Dash.NET/DashComponents/HTMLComponents/H5.fs deleted file mode 100644 index 31431f9..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/H5.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: H5 -//camelCaseComponentName: h5 -//ComponentChar: h -//ComponentNamespace: dash_html_components -//ComponentType: H5 -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module H5 = - - type H5() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (h:H5) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue h "namespace" "dash_html_components" - DynObj.setValue h "props" props - DynObj.setValue h "type" "H5" - - h - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - H5() - |> H5.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let h5 (props:seq) (children:seq) = - let h = H5.init(children) - let componentProps = - match (h.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue h "props" - h :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/H6.fs b/src/Dash.NET/DashComponents/HTMLComponents/H6.fs deleted file mode 100644 index f590d2d..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/H6.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: H6 -//camelCaseComponentName: h6 -//ComponentChar: h -//ComponentNamespace: dash_html_components -//ComponentType: H6 -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module H6 = - - type H6() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (h:H6) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue h "namespace" "dash_html_components" - DynObj.setValue h "props" props - DynObj.setValue h "type" "H6" - - h - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - H6() - |> H6.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let h6 (props:seq) (children:seq) = - let h = H6.init(children) - let componentProps = - match (h.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue h "props" - h :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Header.fs b/src/Dash.NET/DashComponents/HTMLComponents/Header.fs deleted file mode 100644 index 1b20c8f..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Header.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Header -//camelCaseComponentName: header -//ComponentChar: h -//ComponentNamespace: dash_html_components -//ComponentType: Header -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Header = - - type Header() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (h:Header) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue h "namespace" "dash_html_components" - DynObj.setValue h "props" props - DynObj.setValue h "type" "Header" - - h - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Header() - |> Header.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let header (props:seq) (children:seq) = - let h = Header.init(children) - let componentProps = - match (h.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue h "props" - h :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Hgroup.fs b/src/Dash.NET/DashComponents/HTMLComponents/Hgroup.fs deleted file mode 100644 index c739014..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Hgroup.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Hgroup -//camelCaseComponentName: hgroup -//ComponentChar: h -//ComponentNamespace: dash_html_components -//ComponentType: Hgroup -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Hgroup = - - type Hgroup() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (h:Hgroup) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue h "namespace" "dash_html_components" - DynObj.setValue h "props" props - DynObj.setValue h "type" "Hgroup" - - h - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Hgroup() - |> Hgroup.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let hgroup (props:seq) (children:seq) = - let h = Hgroup.init(children) - let componentProps = - match (h.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue h "props" - h :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Hr.fs b/src/Dash.NET/DashComponents/HTMLComponents/Hr.fs deleted file mode 100644 index 422451d..0000000 --- a/src/Dash.NET/DashComponents/HTMLComponents/Hr.fs +++ /dev/null @@ -1,77 +0,0 @@ -//--- -//ComponentName: Hr -//camelCaseComponentName: hr -//ComponentChar: h -//ComponentNamespace: dash_html_components -//ComponentType: Hr -//LibraryNamespace: Dash.NET.HTML -//--- - -namespace Dash.NET.HTML - -open Dash.NET -open System -open Plotly.NET -open HTMLPropTypes - -[] -module Hr = - - type Hr() = - inherit DashComponent() - static member applyMembers - ( - children : seq, - ?Id : string, - ?ClassName : string, - ?Style : DashComponentStyle - ) = - ( - fun (h:Hr) -> - - let props = DashComponentProps() - - children - |> DashComponent.transformChildren - |> DynObj.setValue props "children" - - Id |> DynObj.setValueOpt props "id" - ClassName |> DynObj.setValueOpt props "className" - Style |> DynObj.setValueOpt props "style" - - DynObj.setValue h "namespace" "dash_html_components" - DynObj.setValue h "props" props - DynObj.setValue h "type" "Hr" - - h - - ) - static member init - ( - children, - ?Id, - ?ClassName, - ?Style - ) = - Hr() - |> Hr.applyMembers - ( - children, - ?Id = Id, - ?ClassName = ClassName, - ?Style = Style - ) - - let hr (props:seq) (children:seq) = - let h = Hr.init(children) - let componentProps = - match (h.TryGetTypedValue("props")) with - | Some p -> p - | None -> DashComponentProps() - props - |> Seq.iter (fun prop -> - let fieldName,boxedProp = prop |> HTMLProps.toDynamicMemberDef - boxedProp |> DynObj.setValue componentProps fieldName - ) - componentProps |> DynObj.setValue h "props" - h :> DashComponent \ No newline at end of file diff --git a/src/Dash.NET/DashComponents/HTMLComponents/Html.fs b/src/Dash.NET/DashComponents/HTMLComponents/Html.fs new file mode 100644 index 0000000..2f76b92 --- /dev/null +++ b/src/Dash.NET/DashComponents/HTMLComponents/Html.fs @@ -0,0 +1,285 @@ +namespace Dash.NET + +open Dash.NET +open Plotly.NET + +/// The html components have been adopted from +/// https://github.com/alfonsogarciacaro/Feliz.Engine +/// and are available under the Dash.NET.Html module. + +module Css = + type Style = StyleProperty of string * obj + + /// Additional Css helpers are available under the Feliz namespace + let Css = + Feliz.CssEngine(fun k v -> StyleProperty(k, v)) + +module Html = + open Css + + type internal HtmlText = Text of string + + type private HtmlString() = + inherit DashComponent() + + static member init(innerHTML: string) = + let d = DashComponent(true) + DynObj.setValue d "innerHTML" innerHTML + d + + type private HtmlElement() = + inherit DashComponent() + + static member applyMembers((tag, children)) = + fun (node: HtmlElement) -> + + let props = DashComponentProps() + + children + |> DashComponent.transformChildren + |> DynObj.setValue props "children" + + DynObj.setValue node "namespace" "dash_html_components" + DynObj.setValue node "props" props + DynObj.setValue node "type" tag + + node + + static member init(el) = + HtmlElement() |> HtmlElement.applyMembers (el) + + type HtmlProp = + | Prop of (string * obj) + | Children' of List + + static member internal toDashComponent(tag, props) = + + //seperate and extract children and other attributes + let (props_: List, children_: List) = + List.fold + (fun (props, children) (p: HtmlProp) -> + match p with + | Prop prop -> (prop :: props, children) + | Children' child -> (props, child @ children) + ) + ([], []) + props + + let el = HtmlElement.init (tag, List.toSeq children_) + + let componentProps = + match (el.TryGetTypedValue("props")) with + | Some p -> p + | None -> DashComponentProps() + + props_ + |> List.iter + (fun (fieldName, boxedProp) -> + boxedProp + |> DynObj.setValue componentProps fieldName) + + + componentProps |> DynObj.setValue el "props" + el :> DashComponent + + static member internal toDashComponent(htmlText: HtmlText) = + match htmlText with + | Text value -> HtmlString.init (value) + + type HtmlEngine<'HtmlProp, 'DashComponent> + ( + mkTaggedElement: (string -> List<'HtmlProp> -> 'DashComponent), + mkHtmlText: string -> 'DashComponent + ) = + member _.text(value: string) = mkHtmlText value + member _.text(value: int) = mkHtmlText (string value) + member _.text(value: float) = mkHtmlText (string value) + member _.text(value: System.Guid) = mkHtmlText (string value) + member _.custom(key: string, props: List<'HtmlProp>) = mkTaggedElement key props + member _.none = mkHtmlText "" + member _.a props = mkTaggedElement "A" props + member _.abbr props = mkTaggedElement "Abbr" props + member _.address props = mkTaggedElement "Address" props + member _.anchor props = mkTaggedElement "A" props + member _.area props = mkTaggedElement "Area" props + member _.article props = mkTaggedElement "Article" props + member _.aside props = mkTaggedElement "Aside" props + member _.audio props = mkTaggedElement "Audio" props + member _.b props = mkTaggedElement "B" props + member _.base' props = mkTaggedElement "Base" props + member _.bdi props = mkTaggedElement "Bdi" props + member _.bdo props = mkTaggedElement "Bdo" props + member _.blockquote props = mkTaggedElement "Blockquote" props + member _.body props = mkTaggedElement "Body" props + member _.br props = mkTaggedElement "Br" props + member _.button props = mkTaggedElement "Button" props + member _.canvas props = mkTaggedElement "Canvas" props + member _.caption props = mkTaggedElement "Caption" props + member _.cite props = mkTaggedElement "Cite" props + member _.code props = mkTaggedElement "Code" props + member _.col props = mkTaggedElement "Col" props + member _.colgroup props = mkTaggedElement "Colgroup" props + member _.data props = mkTaggedElement "Data" props + member _.datalist props = mkTaggedElement "Datalist" props + member _.dd props = mkTaggedElement "Dd" props + member _.del props = mkTaggedElement "Del" props + member _.details props = mkTaggedElement "Details" props + member _.dfn props = mkTaggedElement "Dfn" props + member _.dialog props = mkTaggedElement "Dialog" props + member _.div props = mkTaggedElement "Div" props + member _.dl props = mkTaggedElement "Dl" props + member _.dt props = mkTaggedElement "Dt" props + member _.em props = mkTaggedElement "Em" props + member _.fieldSet props = mkTaggedElement "Fieldset" props + member _.figcaption props = mkTaggedElement "Figcaption" props + member _.figure props = mkTaggedElement "Figure" props + member _.footer props = mkTaggedElement "Footer" props + member _.form props = mkTaggedElement "Form" props + member _.h1 props = mkTaggedElement "H1" props + member _.h2 props = mkTaggedElement "H2" props + member _.h3 props = mkTaggedElement "H3" props + member _.h4 props = mkTaggedElement "H4" props + member _.h5 props = mkTaggedElement "H5" props + member _.h6 props = mkTaggedElement "H6" props + member _.head props = mkTaggedElement "Head" props + member _.header props = mkTaggedElement "Header" props + member _.hr props = mkTaggedElement "Hr" props + member _.html props = mkTaggedElement "Html" props + member _.i props = mkTaggedElement "I" props + member _.iframe props = mkTaggedElement "Iframe" props + member _.img props = mkTaggedElement "Img" props + member _.input props = mkTaggedElement "Input" props + member _.ins props = mkTaggedElement "Ins" props + member _.kbd props = mkTaggedElement "Kbd" props + member _.label props = mkTaggedElement "Label" props + member _.legend props = mkTaggedElement "Legend" props + member _.li props = mkTaggedElement "Li" props + member _.listItem props = mkTaggedElement "Li" props + member _.main props = mkTaggedElement "Main" props + member _.map props = mkTaggedElement "Map" props + member _.mark props = mkTaggedElement "Mark" props + member _.metadata props = mkTaggedElement "Metadata" props + member _.meter props = mkTaggedElement "Meter" props + member _.nav props = mkTaggedElement "Nav" props + member _.noscript props = mkTaggedElement "Noscript" props + member _.object props = mkTaggedElement "Object" props + member _.ol props = mkTaggedElement "Ol" props + member _.option props = mkTaggedElement "Option" props + member _.optgroup props = mkTaggedElement "Optgroup" props + member _.orderedList props = mkTaggedElement "Ol" props + member _.output props = mkTaggedElement "Output" props + member _.p props = mkTaggedElement "P" props + member _.paragraph props = mkTaggedElement "P" props + member _.picture props = mkTaggedElement "Picture" props + member _.pre props = mkTaggedElement "Pre" props + member _.progress props = mkTaggedElement "Progress" props + member _.q props = mkTaggedElement "Q" props + member _.rb props = mkTaggedElement "Rb" props + member _.rp props = mkTaggedElement "Rp" props + member _.rt props = mkTaggedElement "Rt" props + member _.rtc props = mkTaggedElement "Rtc" props + member _.ruby props = mkTaggedElement "Ruby" props + member _.s props = mkTaggedElement "S" props + member _.samp props = mkTaggedElement "Samp" props + member _.script props = mkTaggedElement "Script" props + member _.section props = mkTaggedElement "Section" props + member _.select props = mkTaggedElement "Select" props + member _.small props = mkTaggedElement "Small" props + member _.source props = mkTaggedElement "Source" props + member _.span props = mkTaggedElement "Span" props + member _.strong props = mkTaggedElement "Strong" props + member _.sub props = mkTaggedElement "Sub" props + member _.summary props = mkTaggedElement "Summary" props + member _.sup props = mkTaggedElement "Sup" props + member _.table props = mkTaggedElement "Table" props + member _.tableBody props = mkTaggedElement "Tbody" props + member _.tableCell props = mkTaggedElement "Td" props + member _.tableHeader props = mkTaggedElement "Th" props + member _.tableRow props = mkTaggedElement "Tr" props + member _.tbody props = mkTaggedElement "Tbody" props + member _.td props = mkTaggedElement "Td" props + member _.template props = mkTaggedElement "Template" props + member _.textarea props = mkTaggedElement "Textarea" props + member _.tfoot props = mkTaggedElement "Tfoot" props + member _.th props = mkTaggedElement "Th" props + member _.thead props = mkTaggedElement "Thead" props + member _.time props = mkTaggedElement "Time" props + member _.tr props = mkTaggedElement "Tr" props + member _.track props = mkTaggedElement "Track" props + member _.u props = mkTaggedElement "U" props + member _.ul props = mkTaggedElement "Ul" props + member _.unorderedList props = mkTaggedElement "Ul" props + member _.var props = mkTaggedElement "Var" props + member _.video props = mkTaggedElement "Video" props + member _.wbr props = mkTaggedElement "Wbr" props + + type DashHtmlEngine() = + inherit HtmlEngine( + (fun tag props -> (tag, props) |> HtmlProp.toDashComponent), + (fun str -> (Text str) |> HtmlProp.toDashComponent)) + + + let Html = DashHtmlEngine() + + type DashAttrEngine() = + inherit Feliz.AttrEngine( + (fun key value -> Prop (key, box value)), + (fun key value -> Prop (key, box value))) + + member _.style(value: List