From 0900ae82605103b4ca1208afc55554e2e89abbce Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Fri, 20 Sep 2024 19:12:34 -0700
Subject: Add: announcement

---
 home.lisp | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'home.lisp')

diff --git a/home.lisp b/home.lisp
index cac1c3b..173700c 100644
--- a/home.lisp
+++ b/home.lisp
@@ -135,6 +135,8 @@
   (with-clog-create body
       (div ()
            (navigation-header ())
+(div (:class "row")
+     (p (:content "ANNOUNCEMENT: Vampire Sucks (ha ha). No really. It has been regularly refusing connections. You may have noticed a White Screen Of Death. I (colin) have been (very slowly) working on an improved application. Stay tuned: IMPROVEMENTS LAND IN OCTOBER 2024. Forthcoming new features: Comments! Search! Exploration!")))
            (div (:class "row")
                 (div () 
                      (section  (:pre :content (format nil "Welcome ~a" (user-name (session-user body)))))
-- 
cgit v1.2.3