Rename bio to about

src/components/header.lisp

@@ -7,7 +7,7 @@
 (in-package #:website/components/header)
 
 (defparameter *nav-menu*
-  '(("/bio" "bio")
+  '(("/about" "about")
     ("/work" "work")
     ("/blog" "blog")))
 

src/components/metadata.lisp

@@ -32,7 +32,7 @@
 
 (defparameter *metadata-template*
   (let ((%title (lambda (title) (format nil "~@[~a - ~]~a" title "skyizwhite.dev")))
-        (%description "The personal website of Akira Tempaku (paku) - bio, work, blog and more."))
+        (%description "The personal website of Akira Tempaku (paku)"))
     (list :title %title
           :description %description
           :canonical #'path->url

src/lib/cms.lisp

@@ -8,13 +8,13 @@
                 #:microcms-api-key)
   (:export #:get-blog-list
            #:get-blog-detail
-           #:get-bio
+           #:get-about
            #:get-work))
 (in-package :website/lib/cms)
 
 (setf microcms:*service-domain* (microcms-service-domain))
 (setf microcms:*api-key* (microcms-api-key))
 
-(define-object-client bio)
+(define-object-client about)
 (define-object-client work)
 (define-list-client blog)

src/routes/about.lisp

@@ -1,21 +1,21 @@
-(defpackage #:website/routes/bio
+(defpackage #:website/routes/about
   (:use #:cl
         #:hsx)
   (:import-from #:website/lib/cms
-                #:get-bio)
+                #:get-about)
   (:import-from #:website/lib/time
                 #:datetime
                 #:jp-datetime)
   (:export #:handle-get))
-(in-package :website/routes/bio)
+(in-package :website/routes/about)
 
 (defparameter *metadata*
-  (list :title "bio"
+  (list :title "about"
-        :path "/bio"))
+        :path "/about"))
 
 (defcomp ~page ()
   (hsx
-    (p "coming soon")))
+   (p "coming soon")))
 
 (defun handle-get (params)
   (declare (ignore params))