module Items.Introduction exposing (..)

import Color exposing (Color)
import Element exposing (Element)
import Element.Background
import Theme
import Widget.Material.Typography



-- MODEL


type alias Model =
    ()


type alias Msg =
    ()



-- UPDATE
-- SUBSCRIPTIONS
-- VIEW


view :
    { colorBackground : Color
    , width : Int
    }
    -> Element msg
view data =
    [ header "Martiplier"
    , text "Martiplier (short for Matrix Plier) is a unique client. It doesn't let you browse rooms and have chat conversations."
    , text "Instead, it offers you a more debug-like display of a user account. This helps when trying to do bulk operations, or to discover information about a client."
    ]
        |> Element.column
            [ Element.Background.color (Theme.toElmUiColor data.colorBackground)
            , Element.padding 30
            , Element.spacing 20
            , Element.width (Element.px data.width)
            ]


header : String -> Element msg
header =
    Element.text
        >> Element.el Widget.Material.Typography.h1
        >> List.singleton
        >> Element.paragraph []


text : String -> Element msg
text =
    Element.text >> List.singleton >> Element.paragraph []