Make some data global available

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