1 files changed, 0 insertions, 97 deletions
diff --git a/elm/User/Register.elm b/elm/User/Register.elm
deleted file mode 100644
index 9afdded4..00000000
--- a/elm/User/Register.elm
+++ /dev/null
@@ -1,97 +0,0 @@
-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 ]
-      ]
-    ]