Remove: Purged CLOG

1 files changed, 0 insertions, 32 deletions

diff --git a/login.lisp b/login.lisp
deleted file mode 100644
index 0cf08b5..0000000
--- a/login.lisp
+++ /dev/null
@@ -1,32 +0,0 @@
-;;;; login.lisp
-
-(in-package :vampire)
-
-(defun login-page (body)
-  (include-style body)
-  (with-clog-create body
-      (div (:class "login")
-           (div ()
-                (section (:h3 :content "LOGIN"))
-                (form ()
-                      (form-element (:text :bind name-input))
-                      (br ())
-                      (form-element (:password :bind pw-input))
-                      (br ())
-                      (button (:bind btn :content "Click here to log in"))))
-           (div ()
-                (:p ()
-                    (:a (:link "/new-account" :content "Create an account")))))
-    (setf (place-holder name-input) "Name"
-          (place-holder pw-input) "Password")
-    (set-on-click
-     btn
-     (thunk*
-       (let ((user
-               (login-user (value name-input) (value pw-input))))
-         (if user
-             (let ((session (make-session user)))
-               (setf (session-key (window body)) (key session)
-                     (url (location body)) "/home"))
-             (alert (window body) "Error logging in.")))))))
-