t0yv0

Html.ActionLink<MyController>("Click me!", x => x.MyAction(1,2,3))

t0yv0

Html.ActionLink<MyController>("Click me!", x => x.MyAction(1,2,3))

t0yv0

type Action =
   | HomePage
   | AboutUs
   | BlogHomePage
   | Blog of BlogId

t0yv0

Router.Infer<'T>() : Router<'T>

t0yv0

A [Href (ctx.Link (Blog 5))] [Text "Next blog"]

t0yv0

type Action =
    | Home
    | AboutUs

t0yv0

module View =

    let ( => ) a b =
        A [HRef b] -< [Text a]

    let Page title body =
        PageContent <| fun ctx ->
            {
                Page.Default with
                    Title   = Some title

t0yv0

module Site =

    let HomePage =
        View.Page "Home" [
            Div [Text "Welcome to our website!"]
        ]
        |> Sitelet.Content "/" Home

    let AboutUsPage =
        View.Page "About Us" [

t0yv0

type Website() =
    interface IWebsite<Action> with
        member this.Actions = []
        member this.Sitelet = Site.Main

[<assembly: WebsiteAttribute(typeof<Website>)>]
do ()

t0yv0

module Client =
    open IntelliFactory.WebSharper.Html

    [<JavaScript>]
    let Button label =
        Button [Text label]
        |>! OnClick (fun button _ ->
            button.Text <- "CLICKED")

    type ButtonControl(label: string) =