diff options
| author | colin <colin@cicadas.surf> | 2024-09-20 19:12:34 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-09-20 19:12:34 -0700 |
| commit | 0900ae82605103b4ca1208afc55554e2e89abbce (patch) | |
| tree | e3ae8167e5698a25e9832a4003fa420d45764d3a | |
| parent | a3eb0edbd315e6f1e97350b2d7e762bdbf5b23f9 (diff) | |
Add: announcementoldmain
| -rw-r--r-- | explore.lisp | 2 | ||||
| -rw-r--r-- | home.lisp | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/explore.lisp b/explore.lisp index 4016d71..f6f7ff7 100644 --- a/explore.lisp +++ b/explore.lisp @@ -38,6 +38,8 @@ (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 (:bind playlist-area) (section (:h2 :content "Recent Playlists" :class "center")) (recent-playlists-area ())) @@ -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))))) |