namespace web_api_cookbook

open WebSharper
open WebSharper.UI
open WebSharper.UI.Client
open WebSharper.UI.Html
open Units.Animation
open Units.Time


[<JavaScript>]
module Client =
    [<SPAEntryPoint>]
    let Main () =
        let isClicked = Var.Create false
        let opacityAnimated = Animate.valueWhen isClicked.View 1.0 0. 120.<frames/s> 1.<s>
        let opacityStyle = View.MapCached (sprintf "opacity: %f") opacityAnimated
        let onClick = on.click (fun _ _ -> Var.Set isClicked true)

        div [] [
            UI.Components.button [attr.styleDyn opacityStyle; onClick] "Hide Me"
        ]
        |> Doc.RunById "main"