From 79067d71b8a2e44d1d59debe5f6fb4cdc10cbc7b Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Tue, 4 Feb 2025 18:17:47 +0100
Subject: [PATCH] Make some data global available

---
 index.lisp | 24 ++++++++++++++++++++++--
 1 file changed, 22 insertions(+), 2 deletions(-)

diff --git a/index.lisp b/index.lisp
index ae1fad2..2deea47 100644
--- a/index.lisp
+++ b/index.lisp
@@ -45,20 +45,38 @@
 (unless (uiop:directory-exists-p #P"public/")
   (uiop:ensure-all-directories-exist '(#P"public/")))
 
+(defparameter *brand-name* "metalisp")
+
+(defparameter *brand-url* "/")
+
+(defparameter *main-headline* "Crafting Software with the Power of Lisp")
+
 (defparameter *index-html*
   (with-page (:title "metalisp.dev projects")
-    (with-body-header nil "Crafting Software with the Power of Lisp" *lang*
-      (with-navbar nil "metalisp" "/" nil nil))
+    ;; --
+    ;; Body Head
+    ;; --
+    (with-body-header nil *main-headline* *lang*
+      (with-navbar nil *brand-name* *brand-url* nil nil))
+    ;; --
+    ;; Body Main
+    ;; --
     (with-body-main nil
+      ;; --
       ;; Introduction
+      ;; --
       (with-section
         (with-title-bar "About metalisp")
         (:raw (md-file-to-html-string "introduction.md")))
+      ;; --
       ;; News
+      ;; --
       (with-section
         (with-title-bar "News")
         (:raw (md-file-to-html-string "news.md")))
+      ;; --
       ;; Active Projects
+      ;; --
       (with-section
         (with-title-bar "Active Projects")
         (with-section-row
@@ -68,7 +86,9 @@
                 :card-header cheader
                 :card-items citems
                 :card-body (btn (:url curl) (t9n "view-details" *lang*)))))))
+      ;; --
       ;; Contact
+      ;; --
       (with-section
         (with-title-bar "Contact")
         (with-list-group nil