Action.fs

type PagePath =
    | [<Require(typeof<kendo.Resources.Culture.French>)>] FR
    | [<Require(typeof<kendo.Resources.Culture.English>)>] EN

open kendo.Resources

type Action =
    | [<CompiledName "">] EN
    | FR

[<Require(typeof<Themes.Silver>); Require(typeof<Culture.French>)>]
type FrenchPage() =
    inherit Web.Control()

    [<JS>]
    override this.Body = Client.page() :> _

[<Require(typeof<Themes.Silver>); Require(typeof<Culture.English>)>]
type EnglishPage() =
    inherit Web.Control()

    [<JS>]
    override this.Body = Client.page() :> _

[<Sealed>]
type Site() =
    interface IWebsite<Action> with
        member this.Sitelet =
            function
            | page ->
                Content.PageContent <| fun _ ->
                    let page =
                        match page with
                        | EN -> Div [new EnglishPage()]
                        | FR -> Div [new FrenchPage()]
                    {
                        Page.Default with
                            Title = Some "Kendo samples"
                            Body = [page]
                    }
            |> Sitelet.Infer
        member this.Actions = []