Add: auth-pages via a middleware page serving function

1 files changed, 5 insertions, 7 deletions

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 ()))))