module SidebarLayout 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. 
"""


sampleText2 =
    """ 
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 10, spacing 10 ]
            [ column
                [ width <| px 150
                , height fill
                , Border.widthEach { right = 2, left = 0, top = 0, bottom = 0 }
                , Border.color <| rgb255 0xE0 0xE0 0xE0
                ]
                -- pixel heights for elements are needed to work around a bug in Safari
                [ el [ alignTop, height <| px 30 ] <| text "Gallery"
                , el [ alignTop, height <| px 30 ] <| text "About"
                , el [ alignTop, height <| px 30 ] <| text "Settings"
                , el [ alignBottom ] <| text "Logout"
                ]
            , textColumn [ width fill, height fill, spacing 20, scrollbarY, Font.size 16 ]
                [ paragraph [] [ text sampleText ]
                , paragraph [] [ text sampleText2 ]
                ]
            ]