From 23873b455554ba40f79be561b5150b4526a19d3f Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 18 May 2024 07:50:16 -0700
Subject: Remove: Purged CLOG

---
 new-account.lisp | 75 --------------------------------------------------------
 1 file changed, 75 deletions(-)
 delete mode 100644 new-account.lisp

(limited to 'new-account.lisp')

diff --git a/new-account.lisp b/new-account.lisp
deleted file mode 100644
index 653818a..0000000
--- a/new-account.lisp
+++ /dev/null
@@ -1,75 +0,0 @@
-;;;; new-account.lisp
-
-(in-package :vampire)
-
-(defparameter +username-regex+
-  (ppcre:create-scanner "^[a-zA-Z0-9\_\\-!@#$^&*]{3,25}$"))
-
-
-
-(defun new-accout-page (body)
-  (include-style body)
-  (with-clog-create body
-      (div (:class "row")
-           (div ()  (section (:h2 :content "Create a new account"))
-                (form (:bind new-user-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))))
-           (div (:bind name-help :hidden t)
-                (p (:content  "3-25 characters, no spaces, numbers, letters, or !@#$^&*()_-"))))
-
-    (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*
-       (let ((name (value name)))
-         (setf (text name-status)
-               (cond
-                 ((not (ppcre:all-matches +username-regex+ name))
-                  (setf (visiblep name-help) t)                  
-                  "Invalid Name.")
-                 ((user-with-name name)
-                  (setf (visiblep name-help) nil)                  
-                  "Name Already Taken")
-                 (t
-                  (setf (visiblep name-help) nil)                  
-                  "✔"))))))
-
-    (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."))))))
-- 
cgit v1.2.3