blob: ea265a76676036dec7060c5da8b0a6b8fb46e8f0 (
plain)
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
|
;;;; new-account.lisp
(in-package :vampire)
(defun new-accout-page (body)
(include-style body)
(with-clog-create body
(div ()
(section (:h2 :content "Create a new account"))
(form ()
(form-element (:text :bind invite))
(span (:bind invite-status))
(br ())
(form-element (:text :bind name))
(span (:bind name-status))
(br ())
(form-element (:password :bind pw))
(br ())
(form-element (:password :bind pw-confirm))
(span (:bind pw-confirm-status))
(br ())
(button (:content "Make Account" :bind submit))))
(setf (place-holder invite) "Invite Code"
(place-holder name) "Name"
(place-holder pw) "Password"
(place-holder pw-confirm) "Repeat Password")
(set-on-blur
invite
(thunk*
(setf (inner-html invite-status)
(if (invite-by-code (value invite))
"✔"
"Bad Invite Code"))))
(set-on-blur
name
(thunk*
(setf (text name-status)
(if (user-with-name name)
"Name Already Taken"
"✔"))))
(set-on-key-press
pw-confirm
(thunk*
(setf (text pw-confirm-status)
(if (string-equal (value pw) (value pw-confirm))
"✔"
"Passwords Do Not Match"))))
(set-on-click
submit
(thunk*
(if (loop for status in (list pw-confirm-status name-status invite-status)
always (string-equal "✔" (text status)))
(if (use-invite-with-code (value invite) (value name) (value pw))
(setf (url (location body)) "/login")
(alert (window body) "An error occurred while making your account."))
(alert (window body) "Plase double check your inputs."))))))
|
