1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
module User.Register exposing (main)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Browser
import Lib.Api as Api
import Gen.Api as GApi
import Gen.UserRegister as GUR
import Lib.Html exposing (..)
main : Program () Model Msg
main = Browser.element
{ init = always (init, Cmd.none)
, subscriptions = always Sub.none
, view = view
, update = update
}
type alias Model =
{ username : String
, email : String
, vns : Int
, state : Api.State
, success : Bool
}
init : Model
init =
{ username = ""
, email = ""
, vns = 0
, state = Api.Normal
, success = False
}
type Msg
= Username String
| EMail String
| VNs String
| Submit
| Submitted GApi.Response
update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
case msg of
Username n -> ({ model | username = String.toLower n }, Cmd.none)
EMail n -> ({ model | email = n }, Cmd.none)
VNs n -> ({ model | vns = Maybe.withDefault model.vns (String.toInt n) }, Cmd.none)
Submit -> ( { model | state = Api.Loading }
, GUR.send { username = model.username, email = model.email, vns = model.vns } Submitted )
Submitted GApi.Success -> ({ model | success = True }, Cmd.none)
Submitted e -> ({ model | state = Api.Error e }, Cmd.none)
view : Model -> Html Msg
view model =
if model.success
then
div [ class "mainbox" ]
[ h1 [] [ text "Account created" ]
, div [ class "notice" ]
[ p [] [ text "Your account has been created! In a few minutes, you should receive an email with instructions to set your password." ] ]
]
else
form_ Submit (model.state == Api.Loading)
[ div [ class "mainbox" ]
[ h1 [] [ text "Create an account" ]
, table [ class "formtable" ]
[ formField "username::Username"
[ inputText "username" model.username Username GUR.valUsername
, br_ 1
, text "Preferred username. Must be lowercase, between 2 and 15 characters long and consist entirely of alphanumeric characters or a dash."
, text " Names that look like database identifiers (i.e. a single letter followed by several numbers) are also disallowed."
]
, formField "email::E-Mail"
[ inputText "email" model.email EMail GUR.valEmail
, br_ 1
, text "Your email address will only be used in case you lose your password. "
, text "We will never send spam or newsletters unless you explicitly ask us for it or we get hacked."
, br_ 3
, text "Anti-bot question: How many visual novels do we have in the database? (Hint: look to your left)"
]
, formField "vns::Answer" [ inputText "vns" (if model.vns == 0 then "" else String.fromInt model.vns) VNs [] ]
]
]
, div [ class "mainbox" ]
[ fieldset [ class "submit" ] [ submitButton "Submit" model.state True ]
]
]
|
