aboutsummaryrefslogtreecommitdiffhomepage
path: root/site/home.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'site/home.lisp')
-rw-r--r--site/home.lisp12
1 files changed, 0 insertions, 12 deletions
diff --git a/site/home.lisp b/site/home.lisp
index 97c2a87..b96b52e 100644
--- a/site/home.lisp
+++ b/site/home.lisp
@@ -1,17 +1,5 @@
(in-package #:vampire)
-(defclass user-known ()
- ((user :accessor user)))
-
-(defmethod wknd:authenticate ((req user-known))
- (or
- (do>
- key :when= (wknd:get-cookie +session-cookie+)
- session :when= (object-with-key key)
- :when (typep session 'session)
- (setf (user req) (user session)))
- (weekend:endpoint-redirect 'login)))
-
(defun home-page (user)
(format nil "hey ~a" (user-name user)))