From 7ec9075c8a20b4a8f2b1c0de9e5b86e18ad4ae8e Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Thu, 27 Oct 2022 13:46:56 -0500
Subject: Add: auth-pages via a middleware page serving function

---
 vampire.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'vampire.lisp')

diff --git a/vampire.lisp b/vampire.lisp
index 97266d3..2e8f506 100644
--- a/vampire.lisp
+++ b/vampire.lisp
@@ -84,6 +84,12 @@
    :directory (datastore-directory config)
    :subsystems (list (make-instance 'bknr.datastore:store-object-subsystem))))
 
+(defun redirect-to-root (body)
+  (setf (url (location body)) "/"))
+
+(defun when-logged-in? (fn)
+  (<?> 'session-user fn 'redirect-to-root))
+
 (defun start (config)
   (setf *config* config)
   (initialize-database config )
-- 
cgit v1.2.3