martiplier/src/Items/Introduction.elm

57 lines
1.2 KiB
Elm

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 []