NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-11-22 23:30:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

Update TextInput.V6 upgrade script

Browse Source
This commit is contained in:
Aaron VonderHaar 2020-04-16 17:06:36 -07:00
parent a0da3944ec
commit ec0c6de530
1 changed files with 226 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

233
elm-refactor/v8-to-v9/TextInputV6.elm
View File

@ -1,9 +1,186 @@
module Main exposing (upgrade_Nri_Ui_TextInput_V5_view)
module Main exposing (..)
{-| NOTE: requires elm-refactor alpha-220-g24db2f5 or later.
-}
import ElmFix
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
@ -27,73 +204,67 @@ upgrade_Nri_Ui_TextInput_V5_email =
upgrade_Nri_Ui_TextInput_V5_view model =
TextInput.view model.label
(model.type_ model.onInput)
(List.filterMap identity
[ case model.isInError of
False ->
ElmFix.remove
Nothing
_ ->
TextInput.errorIf model.isInError
Just (TextInput.errorIf model.isInError)
, case model.showLabel of
True ->
ElmFix.remove
Nothing
False ->
TextInput.hiddenLabel
Just TextInput.hiddenLabel
, if model.placeholder == model.label then
ElmFix.remove
Nothing
else
TextInput.placeholder model.placeholder
, case model.onBlur of
Nothing ->
ElmFix.remove
Just msg ->
TextInput.onBlur msg
Just (TextInput.placeholder model.placeholder)
, Maybe.map TextInput.onBlur model.onBlur
, case model.autofocus of
True ->
TextInput.autofocus
Just TextInput.autofocus
False ->
ElmFix.remove
Nothing
]
)
model.value
upgrade_Nri_Ui_TextInput_V5_writing model =
TextInput.view model.label
(model.type_ model.onInput)
[ TextInput.writing
(List.filterMap identity
[ Just TextInput.writing
, case model.isInError of
False ->
ElmFix.remove
Nothing
_ ->
TextInput.errorIf model.isInError
Just (TextInput.errorIf model.isInError)
, case model.showLabel of
True ->
ElmFix.remove
Nothing
False ->
TextInput.hiddenLabel
Just TextInput.hiddenLabel
, if model.placeholder == model.label then
ElmFix.remove
Nothing
else
TextInput.placeholder model.placeholder
, case model.onBlur of
Nothing ->
ElmFix.remove
Just msg ->
TextInput.onBlur msg
Just (TextInput.placeholder model.placeholder)
, Maybe.map TextInput.onBlur model.onBlur
, case model.autofocus of
True ->
TextInput.autofocus
Just TextInput.autofocus
False ->
ElmFix.remove
Nothing
]
)
model.value