From 68792eac19257e8cc0273ec127784ee83ec74680 Mon Sep 17 00:00:00 2001
From: Craig Oates <craig@craigoates.net>
Date: Fri, 16 Sep 2022 18:58:32 +0100
Subject: [PATCH] add alert message data to "/" defroute.

---
 src/web.lisp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/web.lisp b/src/web.lisp
index 4aab8c4..0b62a95 100644
--- a/src/web.lisp
+++ b/src/web.lisp
@@ -32,9 +32,12 @@
 ;; Routing rules
 
 (defroute "/" ()
-  (hermetic:auth (:logged-in)
-		 (render #P"index.html" (auth:auth-user-data))
-		 (render #P"index.html")))    
+  (let ((alert (utils:get-and-reset-alert)))
+    (hermetic:auth (:logged-in)
+		   (render #P"index.html"
+			   (append (auth:auth-user-data)
+				   `(:alert ,alert)))
+		   (render #P"index.html" `(:alert ,alert)))))
 
 (defroute "/setup" ()
   ;; If there is no database, there is no user, hence no more checks.