module SplitScreenLayout exposing (..)

import Element exposing (..)
import Element.Border as Border
import Element.Font as Font
import Html exposing (Html)


sampleText =
    """
But I must explain to you how all this mistaken idea of denouncing pleasure and praising pain was born and I will give you a complete account of the system, and expound the actual teachings of the great explorer of the truth, the master-builder of human happiness. No one rejects, dislikes, or avoids pleasure itself, because it is pleasure, but because those who do not know how to pursue pleasure rationally encounter consequences that are extremely painful. 
"""


main : Html msg
main =
    layout [ width fill, height fill ] <|
        row [ width fill, height fill, padding 50, spacing 20 ]
            [ column
                [ width fill
                , centerY
                , spacing 10
                , Border.widthEach { right = 1, left = 0, top = 0, bottom = 0 }
                , Border.color <| rgb255 0xE0 0xE0 0xE0
                ]
                [ el [ centerX, clip, Border.rounded 100 ] <|
                    image [ width <| px 200, height <| px 200 ]
                        { src = "https://picsum.photos/200/200?grayscale"
                        , description = "An image"
                        }
                , el [ centerX, Font.italic ] <| text "A nice image"
                ]
            , column [ width fill, centerY, spacing 10 ]
                [ el [ centerX, Font.bold ] <| text "Lorem Ipsum"
                , paragraph [ width <| maximum 300 fill, centerX, Font.size 16 ]
                    [ text sampleText ]
                ]
            ]