elm - 让单选按钮反射(reflect)模型

Question

在 this example ，初始fontSize是 Medium .这反射(reflect)在字体的大小上，但没有选择中等单选按钮。有没有办法让单选按钮始终反射(reflect)当前fontSize ?

Answer 1

这就是你要找的吗？

view : Model -> Html Msg
view model =
  div []
    [ fieldset []
        [ radio "Small" (model.fontSize == Small) (SwitchTo Small)
        , radio "Medium"(model.fontSize == Medium)  (SwitchTo Medium)
        , radio "Large" (model.fontSize == Large) (SwitchTo Large)
        ]
    , Markdown.toHtml [ sizeToStyle model.fontSize ] model.content
    ]


radio : String -> Bool > msg -> Html msg
radio value isChecked msg =
  label
    [ style [("padding", "20px")]
    ]
    [ input [ type_ "radio", name "font-size", onInput msg, checked isChecked ] []
    , text value
    ]

请注意，我将 onClick 更改为 onInput，我认为这是表单选择的更好做法。

顺便说一句，我倾向于将 msg 参数放在类型签名的开头，因为它最不可能成为函数管道的一部分:

radio : msg -> Bool -> String -> Html msg