Sitelet.View.fs

module View =

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

    let Page title body =
        PageContent <| fun ctx ->
            {
                Page.Default with
                    Title   = Some title
                    Body    =
                        H1 [Text title]
                        ::
                        UL [
                            LI ["Home"    => ctx.Link Home]
                            LI ["AboutUs" => ctx.Link AboutUs]
                        ]
                        ::
                        body
            }