59 lines
1.8 KiB
Elm
59 lines
1.8 KiB
Elm
module View.Auth exposing (authForm, authView)
|
|
|
|
import Html exposing (..)
|
|
import Html.Attributes exposing (..)
|
|
import Html.Events exposing (..)
|
|
import Types exposing (..)
|
|
|
|
|
|
authForm : Model -> Html Msg
|
|
authForm model =
|
|
Html.form [ class "form", onSubmit Register ]
|
|
[ div [ class "form-group" ]
|
|
[ label [ for "server" ] [ text "Mastodon server root URL" ]
|
|
, input
|
|
[ type_ "url"
|
|
, class "form-control"
|
|
, id "server"
|
|
, required True
|
|
, placeholder "https://mastodon.social"
|
|
, value model.server
|
|
, pattern "https://.+"
|
|
, onInput ServerChange
|
|
]
|
|
[]
|
|
, p [ class "help-block" ]
|
|
[ text <|
|
|
"You'll be redirected to that server to authenticate yourself. "
|
|
++ "We don't have access to your password."
|
|
]
|
|
]
|
|
, button [ class "btn btn-primary", type_ "submit" ]
|
|
[ text "Sign into Tooty" ]
|
|
]
|
|
|
|
|
|
authView : Model -> Html Msg
|
|
authView model =
|
|
div [ class "col-md-4 col-md-offset-4" ]
|
|
[ div [ class "page-header" ]
|
|
[ h1 []
|
|
[ text "tooty"
|
|
, small []
|
|
[ text " is a Web client for the "
|
|
, a
|
|
[ href "https://github.com/tootsuite/mastodon"
|
|
, target "_blank"
|
|
]
|
|
[ text "Mastodon" ]
|
|
, text " API."
|
|
]
|
|
]
|
|
]
|
|
, div [ class "panel panel-default" ]
|
|
[ div [ class "panel-heading" ] [ text "Authenticate" ]
|
|
, div [ class "panel-body" ]
|
|
[ authForm model ]
|
|
]
|
|
]
|