我正在为HTML中使用的各种类定义DU:
type Class =
| Logo
| Screen
| Continue
现在不幸的是FSharpValue.GetUnionFields
没有转换为JS(我不希望它)并且在DU上覆盖ToString,因此它转换为JS似乎也不起作用。因此,我定义了以下运算符来处理从Dom元素添加/删除类:
[<JavaScript>]
let getClassString = function
| Logo -> "logo"
| Screen -> "screen"
| Continue -> "continue"
[<JavaScript>]
let inline (|+>) (x : Element) (c : Class) = x.AddClass (getClassString c); x
[<JavaScript>]
let inline (|->) (x : Element) (c : Class) = x.RemoveClass (getClassString c)
这真的让人感到幸福:
[<JavaScript>]
let mainMenu =
Div [
H2 [Text "Jewel"; Br [] :> _; Text "Warrior"] |+> Logo
[
"Play", gameScreen
"HighScore", highScores
"About", notReady
"Exit", notReady
] |> Seq.map (fun (text, screen) -> LI [Button [Text text] |>! OnClick (fun _ _ -> show screen)])
|> UL |+> Menu
] |+> MainMenu |+> Screen
有人可以确认F#类型的提供者是否适合直接从CSS生成我的Class DU?
我们可以期待WebSharper与VS11 beta兼容,还是只有在它发布时?
谢谢!
答案 0 :(得分:2)