Matrix-Programs/Scylla
1
0
Fork 0
Code Issues 9 Pull Requests Releases Wiki Activity

Style the "Log In" screen.

Browse Source
This commit is contained in:
Danila Fedorin
2018-12-10 12:21:08 -08:00
parent b76e4bdf7d
commit 4b2c0d2ae8
2 changed files with 68 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/Scylla/Views.elm
View File

@@ -4,8 +4,8 @@ import Scylla.Sync exposing (..)
import Scylla.Route exposing (..)
import Url.Builder
import Json.Decode as Decode
import Html exposing (Html, div, input, text, button, div, span, a)
import Html.Attributes exposing (type_, value, href)
import Html exposing (Html, div, input, text, button, div, span, a, h2)
import Html.Attributes exposing (type_, value, href, class)
import Html.Events exposing (onInput, onClick)
import Dict
@@ -45,8 +45,9 @@ roomListView s jr =
a [ href <| Url.Builder.absolute [ "room", s ] [] ] [ text name ]
loginView : Model -> Html Msg
loginView m = div []
[ input [ type_ "text", value m.loginUsername, onInput ChangeLoginUsername] []
loginView m = div [ class "login-wrapper" ]
[ h2 [] [ text "Log In" ]
, input [ type_ "text", value m.loginUsername, onInput ChangeLoginUsername] []
, input [ type_ "password", value m.loginPassword, onInput ChangeLoginPassword ] []
, input [ type_ "text", value m.apiUrl, onInput ChangeApiUrl ] []
, button [ onClick AttemptLogin ] [ text "Log In" ]