From c5f0f6c32f3aa5ce2cac56e10585dac49617dec7 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Thu, 27 Oct 2022 13:48:00 -0500
Subject: Add: ensure logged in to access home and playlist pages

---
 vampire.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/vampire.lisp b/vampire.lisp
index 2e8f506..dcfb2e3 100644
--- a/vampire.lisp
+++ b/vampire.lisp
@@ -97,9 +97,9 @@
   (initialize 'main
               :extended-routing t
               :static-root (static-directory config))
-  (set-on-new-window 'user-home-page :path "/home")
+  (set-on-new-window (when-logged-in? 'user-home-page) :path "/home")
   (set-on-new-window 'login-page :path "/login")
-  (set-on-new-window 'playlist-page :path "/playlist")
+  (set-on-new-window (when-logged-in? 'playlist-page) :path "/playlist")
   (set-on-new-window 'new-accout-page :path "/new-account")
   (open-browser))
 
-- 
cgit v1.2.3