Update index

index.lisp

@@ -28,21 +28,24 @@
 
 (defvar *lang* "en")
 
-(define-section-type with-section-projects (make-grid-class :row 1 :sm 2 :md 3 :g 3) nil)
+(define-section-type with-section-projects (:row 1 :sm 2 :md 3 :g 3) nil)
 
 (defparameter *active-projects*
-  '(("metalisp.sbt"
+  '(("dev.metalisp.sbt"
      ("Library of Common Lisp Macros to generate HTML." "In Active Development" "Common Lisp")
      "https://code.metalisp.dev/marcuskammer/dev.metalisp.sbt")
-    ("metalisp.survey"
+    ("dev.metalisp.survey"
      ("Create questionnaires and analyze the results." "In Active Development" "Common Lisp")
      "https://code.metalisp.dev/marcuskammer/dev.metalisp.survey")
-    ("metalisp.qmetrics"
+    ("dev.metalisp.qmetrics"
      ("Calculation engine for questionnaires." "In Active Development" "Common Lisp")
      "https://code.metalisp.dev/marcuskammer/dev.metalisp.qmetrics")
-    ("metalisp.activitystreams"
+    ("dev.metalisp.activitystreams"
      ("ActivityStreams 2 library" "In Active Development" "Common Lisp")
      "https://code.metalisp.dev/marcuskammer/dev.metalisp.activitystreams")
+    ("dev.metalisp.webdriver"
+     ("WebDriver library" "In Active Development" "Common Lisp")
+     "https://code.metalisp.dev/marcuskammer/dev.metalisp.webdriver")
     ("emacs dot files"
      ("Personal emacs dot files." "In Active Development" "Emacs Lisp")
      "https://code.metalisp.dev/marcuskammer/emacs.d")))
@@ -50,7 +53,7 @@
 (unless (uiop:directory-exists-p #P"public/")
   (uiop:ensure-all-directories-exist '(#P"public/")))
 
-(defparameter *brand-name* "metalisp")
+(defparameter *brand-name* "metalisp.dev")
 
 (defparameter *brand-url* "/")
 
@@ -71,8 +74,8 @@
       ;; Introduction
       ;; --
       (with-section
-        (with-title-bar "About metalisp")
-        (:raw (md-file-to-html-string "introduction.md")))
+        (with-title-bar "About metalisp.dev")
+        (:raw (md-file-to-html-string "about.md")))
       ;; --
       ;; News
       ;; --