bf09b87215
* Part 1: Refactor views. I'm in the middle of nowhere. It's cold, but I distinguish lights. It's dark, but my good ol' Elm keeps barking when something looks wrong or dangerous. I'm not afraid. * Part 2: More views refactoring. The night is deep, but I can see clear. The truth is at the end of this path. Perhaps. * Part 3: The sun is rising. The darkness is gently fading over, dawn is near. I can now see mountains drawing in the horizon. Elm is rather quiet, but keeps scrutating the shadows. * Part 4: Moaar view splitting. I follow some wrong path, but I'm back on track. The sun is shining. * Epilogue That was actually fun.
55 lines
2.0 KiB
Elm
55 lines
2.0 KiB
Elm
module View.Auth exposing (authView)
|
|
|
|
import Html exposing (..)
|
|
import Html.Attributes exposing (..)
|
|
import Html.Events exposing (..)
|
|
import Types exposing (..)
|
|
|
|
|
|
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" ]
|
|
[ 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" ]
|
|
]
|
|
]
|
|
]
|
|
]
|