diff options
| -rw-r--r-- | new-account.lisp | 63 | ||||
| -rw-r--r-- | vampire.asd | 1 | ||||
| -rw-r--r-- | vampire.lisp | 1 |
3 files changed, 65 insertions, 0 deletions
diff --git a/new-account.lisp b/new-account.lisp new file mode 100644 index 0000000..10311af --- /dev/null +++ b/new-account.lisp @@ -0,0 +1,63 @@ +;;;; new-account.lisp + +(in-package :vampire) + +(defun valid-invite-code-p (arg) arg) +(defun use-invite-with-code (code username pw)) + +(defun new-accout-page (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 (valid-invite-code-p (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 "✔" (value 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.")))))) diff --git a/vampire.asd b/vampire.asd index 87e187f..dbde6f1 100644 --- a/vampire.asd +++ b/vampire.asd @@ -19,6 +19,7 @@ (:file "downloader") (:file "model") (:file "session") + (:file "new-account") (:file "login") (:file "user") (:file "playlist") diff --git a/vampire.lisp b/vampire.lisp index e4940f9..97266d3 100644 --- a/vampire.lisp +++ b/vampire.lisp @@ -94,6 +94,7 @@ (set-on-new-window 'user-home-page :path "/home") (set-on-new-window 'login-page :path "/login") (set-on-new-window 'playlist-page :path "/playlist") + (set-on-new-window 'new-accout-page :path "/new-account") (open-browser)) (defun hacking-start () |