From 4ce4de89a5400b0d8b9cddaa2922901a081fdaaa Mon Sep 17 00:00:00 2001 From: Joris Date: Thu, 23 Jun 2016 23:43:23 +0200 Subject: Use a dialog to add a payment --- src/client/elm/View/Form.elm | 41 +++++++++++++++++++++++++++-------------- 1 file changed, 27 insertions(+), 14 deletions(-) (limited to 'src/client/elm/View') diff --git a/src/client/elm/View/Form.elm b/src/client/elm/View/Form.elm index a85ba8a..5471e7d 100644 --- a/src/client/elm/View/Form.elm +++ b/src/client/elm/View/Form.elm @@ -1,11 +1,12 @@ module View.Form exposing ( textInput + , radioInputs ) import Html exposing (..) import Html.Attributes exposing (..) -import Form exposing (Form) +import Form exposing (Form, FieldState) import Form.Input as Input import Form.Error as FormError exposing (Error(..)) @@ -40,29 +41,41 @@ textInput translations form htmlMap fieldName = Nothing -> text "" ] -simpleTextInput : Translations -> Form String a -> (Html Form.Msg -> Html msg) -> String -> Html msg -simpleTextInput translations form htmlMap fieldName = - let field = Form.getFieldAsString fieldName form +radioInputs : Translations -> Form String a -> (Html Form.Msg -> Html msg) -> String -> List String -> Html msg +radioInputs translations form htmlMap radioName fieldNames = + let field = Form.getFieldAsString radioName form in div [ classList - [ ("textInput", True) + [ ("radioGroup", True) , ("error", isJust field.liveError) ] ] - [ htmlMap <| - Input.textInput - field - [ id fieldName - , classList [ ("filled", isJust field.value) ] - ] - , label - [ for fieldName ] - [ text (Translations.getMessage fieldName translations) ] + [ div + [ class "title" ] + [ text (Translations.getMessage radioName translations) ] + , div + [ class "radioElems" ] + (List.map (radioInput translations field htmlMap) fieldNames) , case field.liveError of Just error -> formError translations error Nothing -> text "" ] +radioInput : Translations -> FieldState String String -> (Html Form.Msg -> Html msg) -> String -> Html msg +radioInput translations field htmlMap fieldName = + label + [ for fieldName ] + [ htmlMap <| + Input.radioInput + field.path + field + [ id fieldName + , value fieldName + , checked (field.value == Just fieldName) + ] + , text (Translations.getMessage fieldName translations) + ] + formError : Translations -> FormError.Error String -> Html msg formError translations error = let errorElement error params = -- cgit v1.2.3