noredink-ui/elm-refactor/v8-to-v9/TextInputV6.elm

module Main exposing (..)

{-| NOTE: requires elm-refactor alpha-220-g24db2f5 or later.
-}

import Nri.Ui.TextInput.V6 as TextInput



--
-- Nri.Ui.TextInput.V3 to V6
--


upgrade_Nri_Ui_TextInput_V3_view config =
    TextInput.view
        config.label
        (config.type_ config.onInput)
        (List.filterMap identity
            [ case config.isInError of
                False ->
                    Nothing

                _ ->
                    Just (TextInput.errorIf config.isInError)
            , if config.placeholder == config.label then
                Nothing

              else
                Just (TextInput.placeholder config.placeholder)
            , if config.autofocus then
                Just TextInput.autofocus

              else
                Nothing
            , if config.showLabel then
                Nothing

              else
                Just TextInput.hiddenLabel
            ]
        )
        config.value


upgrade_Nri_Ui_TextInput_V3_writing config =
    TextInput.view
        config.label
        (config.type_ config.onInput)
        (List.filterMap identity
            [ Just TextInput.writing
            , Just (TextInput.errorIf config.isInError)
            , if config.placeholder == config.label then
                Nothing

              else
                Just (TextInput.placeholder config.placeholder)
            , if config.autofocus then
                Just TextInput.autofocus

              else
                Nothing
            , if config.showLabel then
                Nothing

              else
                Just TextInput.hiddenLabel
            ]
        )
        config.value


upgrade_Nri_Ui_TextInput_V3_number =
    TextInput.number


upgrade_Nri_Ui_TextInput_V3_text =
    TextInput.text



--
-- Nri.Ui.TextInput.V4 to V6
--


upgrade_Nri_Ui_TextInput_V4_view config =
    TextInput.view
        config.label
        (config.type_ config.onInput)
        (List.filterMap identity
            [ case config.isInError of
                False ->
                    Nothing

                _ ->
                    Just (TextInput.errorIf config.isInError)
            , case config.onBlur of
                Nothing ->
                    Nothing

                Just onBlur ->
                    Just (TextInput.onBlur onBlur)
            , if config.placeholder == config.label then
                Nothing

              else
                Just (TextInput.placeholder config.placeholder)
            , case config.autofocus of
                False ->
                    Nothing

                True ->
                    Just TextInput.autofocus
            , case config.showLabel of
                True ->
                    Nothing

                False ->
                    Just TextInput.hiddenLabel
            ]
        )
        config.value


upgrade_Nri_Ui_TextInput_V4_writing config =
    TextInput.view
        config.label
        (config.type_ config.onInput)
        (List.filterMap identity
            [ Just TextInput.writing
            , case config.isInError of
                False ->
                    Nothing

                _ ->
                    Just (TextInput.errorIf config.isInError)
            , case config.onBlur of
                Nothing ->
                    Nothing

                Just onBlur ->
                    Just (TextInput.onBlur onBlur)
            , if config.placeholder == config.label then
                Nothing

              else
                Just (TextInput.placeholder config.placeholder)
            , case config.autofocus of
                False ->
                    Nothing

                True ->
                    Just TextInput.autofocus
            , case config.showLabel of
                True ->
                    Nothing

                False ->
                    Just TextInput.hiddenLabel
            ]
        )
        config.value


upgrade_Nri_Ui_TextInput_V4_generateId =
    TextInput.generateId


upgrade_Nri_Ui_TextInput_V4_number =
    TextInput.number


upgrade_Nri_Ui_TextInput_V4_text =
    TextInput.text



--
-- Nri.Ui.TextInput.V5 to V6
--


upgrade_Nri_Ui_TextInput_V5_text =
    TextInput.text


upgrade_Nri_Ui_TextInput_V5_number =
    TextInput.number


upgrade_Nri_Ui_TextInput_V5_float =
    TextInput.float


upgrade_Nri_Ui_TextInput_V5_password =
    TextInput.password


upgrade_Nri_Ui_TextInput_V5_email =
    TextInput.email


upgrade_Nri_Ui_TextInput_V5_view model =
    TextInput.view model.label
        (model.type_ model.onInput)
        (List.filterMap identity
            [ case model.isInError of
                False ->
                    Nothing

                _ ->
                    Just (TextInput.errorIf model.isInError)
            , case model.showLabel of
                True ->
                    Nothing

                False ->
                    Just TextInput.hiddenLabel
            , if model.placeholder == model.label then
                Nothing

              else
                Just (TextInput.placeholder model.placeholder)
            , Maybe.map TextInput.onBlur model.onBlur
            , case model.autofocus of
                True ->
                    Just TextInput.autofocus

                False ->
                    Nothing
            ]
        )
        model.value


upgrade_Nri_Ui_TextInput_V5_writing model =
    TextInput.view model.label
        (model.type_ model.onInput)
        (List.filterMap identity
            [ Just TextInput.writing
            , case model.isInError of
                False ->
                    Nothing

                _ ->
                    Just (TextInput.errorIf model.isInError)
            , case model.showLabel of
                True ->
                    Nothing

                False ->
                    Just TextInput.hiddenLabel
            , if model.placeholder == model.label then
                Nothing

              else
                Just (TextInput.placeholder model.placeholder)
            , Maybe.map TextInput.onBlur model.onBlur
            , case model.autofocus of
                True ->
                    Just TextInput.autofocus

                False ->
                    Nothing
            ]
        )
        model.value


upgrade_Nri_Ui_TextInput_V5_generateId labelText =
    TextInput.generateId labelText