diff --git a/src/components/header.lisp b/src/components/header.lisp index 6f4573c..21b8caa 100644 --- a/src/components/header.lisp +++ b/src/components/header.lisp @@ -7,7 +7,7 @@ (in-package #:website/components/header) (defparameter *nav-menu* - '(("/bio" "bio") + '(("/about" "about") ("/work" "work") ("/blog" "blog"))) diff --git a/src/components/metadata.lisp b/src/components/metadata.lisp index 37986fa..52ed27e 100644 --- a/src/components/metadata.lisp +++ b/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 diff --git a/src/lib/cms.lisp b/src/lib/cms.lisp index a133274..f8ba8df 100644 --- a/src/lib/cms.lisp +++ b/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) diff --git a/src/routes/bio.lisp b/src/routes/about.lisp similarity index 68% rename from src/routes/bio.lisp rename to src/routes/about.lisp index 3678ffb..6c8f28e 100644 --- a/src/routes/bio.lisp +++ b/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" - :path "/bio")) + (list :title "about" + :path "/about")) (defcomp ~page () (hsx - (p "coming soon"))) + (p "coming soon"))) (defun handle-get (params) (declare (ignore params))