diff options
| author | Grant Shangreaux <grant@unabridgedsoftware.com> | 2024-05-31 13:39:05 -0500 |
|---|---|---|
| committer | Grant Shangreaux <grant@unabridgedsoftware.com> | 2024-05-31 13:39:05 -0500 |
| commit | 9b51a908448c23eff673934f023d247a6c47519d (patch) | |
| tree | 89384c75ed8d2b8add927b1584267847e6ab0ea4 /site/home.lisp | |
| parent | 2832a7c9e75400e36ca12a028ffcbeece44c8216 (diff) | |
Add: initial login form and authentication
Diffstat (limited to 'site/home.lisp')
| -rw-r--r-- | site/home.lisp | 12 |
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))) |