elm-ui/cases/resolved/MultilineInput.elm

module Main exposing (main)

import Browser
import Element exposing (..)
import Element.Background as Background
import Element.Border as Border
import Element.Font as Font
import Element.Input as Input exposing (labelAbove, multiline)
import Html exposing (Html)
import Html.Events exposing (onClick)


type alias Model =
    { count : Int }


initialModel : Model
initialModel =
    { count = 0 }


type Msg
    = Increment
    | Decrement
    | MLChanged String


update : Msg -> Model -> Model
update msg model =
    case msg of
        Increment ->
            { model | count = model.count + 1 }

        Decrement ->
            { model | count = model.count - 1 }

        MLChanged s ->
            model


examplePlaceholder =
    Input.placeholder [ Font.color (rgb 0.2 0.2 0.8) ] (text "My placeholder...")


examplePlaceholderLong =
    Input.placeholder [ Font.color (rgb 0.2 0.2 0.8) ] (text "My placeholderMy placeholderMy placeholderMy placeholderMy placeholderMy placeholderMy placeholderMy placeholder...")


background =
    Background.color (rgb 0 1 0)


testtxt =
    """orem Ipsum is simply dummy text of the printing 
and typesetting industry. Lorem Ipsum has been the industry's 
standard dummy text ever since the 1500s, when an unknown 
printer took a galley of type and scrambled it to make a type specimen book. 
It has survived not only five centuries, but also the leap into electronic 
typesetting

, remaining essentially unchanged. It was popularised in the 1960s with the release of Letraset sheets containing Lorem Ipsum passages, and more recently with desktop publishing software like Aldus PageMaker including versions of Lorem Ipsum.  Why do we use it?"""


rowTest header els =
    column [ width fill, spacing 24 ]
        [ el [] (text header)
        , row
            [ width fill
            , height (px 800)
            , spacing 50
            , centerX
            , Border.width 1
            ]
            els
        ]


label str =
    labelAbove
        [ width (px 100)
        , Font.italic
        ]
        (text str)


view : Model -> Html Msg
view model =
    layout [] <|
        column
            [ width (px 1500)
            , padding 100
            , spacing 500
            , centerX
            ]
            [ rowTest "Heights"
                [ multiline [ background ]
                    { onChange = MLChanged
                    , text = testtxt
                    , placeholder = Nothing
                    , spellcheck = False
                    , label =
                        label "Default"
                    }
                , multiline [ background, height shrink ]
                    { onChange = MLChanged
                    , text = testtxt
                    , placeholder = Nothing
                    , spellcheck = False
                    , label =
                        label "Height shrink"
                    }
                , multiline [ background, height fill ]
                    { onChange = MLChanged
                    , text = testtxt
                    , placeholder = Nothing
                    , spellcheck = False
                    , label =
                        label "Height Fill"
                    }
                , multiline [ background, height (px 200) ]
                    { onChange = MLChanged
                    , text = testtxt
                    , placeholder = Nothing
                    , spellcheck = False
                    , label =
                        label "Height 200px"
                    }
                ]
            , rowTest "Widths"
                [ multiline []
                    { onChange = MLChanged
                    , text = testtxt
                    , placeholder = Nothing
                    , spellcheck = False
                    , label =
                        label "Default"
                    }
                , multiline [ width fill ]
                    { onChange = MLChanged
                    , text = testtxt
                    , placeholder = Nothing
                    , spellcheck = False
                    , label =
                        label "Width fill"
                    }
                , multiline [ width shrink ]
                    { onChange = MLChanged
                    , text = testtxt
                    , placeholder = Nothing
                    , spellcheck = False
                    , label =
                        label "Width Shrink"
                    }
                , multiline [ width (px 300) ]
                    { onChange = MLChanged
                    , text = testtxt
                    , placeholder = Nothing
                    , spellcheck = False
                    , label = label "width 300"
                    }
                ]
            , rowTest "Spacing"
                [ multiline []
                    { onChange = MLChanged
                    , text = testtxt
                    , placeholder = Nothing
                    , spellcheck = False
                    , label =
                        label "Default"
                    }
                , multiline [ spacing 30, padding 60 ]
                    { onChange = MLChanged
                    , text = testtxt
                    , placeholder = Nothing
                    , spellcheck = False
                    , label =
                        label "Spacing 30"
                    }
                , multiline [ spacing 0 ]
                    { onChange = MLChanged
                    , text = testtxt
                    , placeholder = Nothing
                    , spellcheck = False
                    , label = label "Spacing 0"
                    }
                ]
            , rowTest "Scrollable viewport with different paddings "
                [ multiline [ height (px 200), padding 30 ]
                    { onChange = MLChanged
                    , text = testtxt
                    , placeholder = Nothing
                    , spellcheck = False
                    , label =
                        label "Height 200, Padding 30"
                    }
                , multiline [ height (px 200), padding 60 ]
                    { onChange = MLChanged
                    , text = testtxt
                    , placeholder = Nothing
                    , spellcheck = False
                    , label =
                        label "Height 200, Padding 60"
                    }
                , multiline [ height (px 200), padding 0 ]
                    { onChange = MLChanged
                    , text = testtxt
                    , placeholder = Nothing
                    , spellcheck = False
                    , label = label "Height 200, Padding 0"
                    }
                ]
            , rowTest "Placeholders"
                [ multiline []
                    { onChange = MLChanged
                    , text = ""
                    , placeholder = Just examplePlaceholder
                    , spellcheck = False
                    , label =
                        label "Default"
                    }
                , multiline [ height shrink ]
                    { onChange = MLChanged
                    , text = ""
                    , placeholder = Just examplePlaceholder
                    , spellcheck = False
                    , label =
                        label "Height shrink"
                    }
                , multiline [ height fill ]
                    { onChange = MLChanged
                    , text = ""
                    , placeholder = Just examplePlaceholder
                    , spellcheck = False
                    , label =
                        label "Height Fill"
                    }
                , multiline [ height (px 200) ]
                    { onChange = MLChanged
                    , text = ""
                    , placeholder = Just examplePlaceholder
                    , spellcheck = False
                    , label =
                        label "Height 200px"
                    }
                ]
            , rowTest "Long Placeholders"
                [ multiline []
                    { onChange = MLChanged
                    , text = ""
                    , placeholder = Just examplePlaceholderLong
                    , spellcheck = False
                    , label =
                        label "Default"
                    }
                , multiline [ height shrink ]
                    { onChange = MLChanged
                    , text = ""
                    , placeholder = Just examplePlaceholderLong
                    , spellcheck = False
                    , label =
                        label "Height shrink"
                    }
                , multiline [ height fill ]
                    { onChange = MLChanged
                    , text = ""
                    , placeholder = Just examplePlaceholderLong
                    , spellcheck = False
                    , label =
                        label "Height Fill"
                    }
                , multiline [ height (px 200) ]
                    { onChange = MLChanged
                    , text = ""
                    , placeholder = Just examplePlaceholderLong
                    , spellcheck = False
                    , label =
                        label "Height 200px"
                    }
                ]
            ]


main : Program () Model Msg
main =
    Browser.sandbox
        { init = initialModel
        , view = view
        , update = update
        }