From 7ec9075c8a20b4a8f2b1c0de9e5b86e18ad4ae8e Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 27 Oct 2022 13:46:56 -0500 Subject: Add: auth-pages via a middleware page serving function --- user.lisp | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to 'user.lisp') diff --git a/user.lisp b/user.lisp index 6fbbf66..6f95b2c 100644 --- a/user.lisp +++ b/user.lisp @@ -48,12 +48,10 @@ url))))))) (defun user-home-page (body) - (if-let (user (session-user body)) - (with-clog-create body - (div () - (p (:content (format nil "Welcome ~a" (user-name user)))) - (new-playlist-form ()) - (playlist-listing ()))) - (setf (url (location body)) "/"))) + (with-clog-create body + (div () + (p (:content (format nil "Welcome ~a" (user-name (session-user body))))) + (new-playlist-form ()) + (playlist-listing ())))) -- cgit v1.2.3