diff --git a/src/components/header.lisp b/src/components/header.lisp index 9546095..ca08c9b 100644 --- a/src/components/header.lisp +++ b/src/components/header.lisp @@ -7,7 +7,7 @@ (defparameter *nav-menu* '(("/about" "about") - ("/work" "work") + ("/works" "works") ("/blog" "blog"))) (defcomp ~pc-header () diff --git a/src/lib/cms.lisp b/src/lib/cms.lisp index 7f75c80..f374ad9 100644 --- a/src/lib/cms.lisp +++ b/src/lib/cms.lisp @@ -9,7 +9,7 @@ #:microcms-service-domain #:microcms-api-key) (:export #:get-about - #:get-work + #:get-works #:get-blog-list #:get-blog-detail)) (in-package #:website/lib/cms) @@ -27,8 +27,8 @@ (define-object-client about) (memorize get-about) -(define-object-client work) -(memorize get-work) +(define-object-client works) +(memorize get-works) (define-list-client blog) (memorize get-blog-list) diff --git a/src/routes/work.lisp b/src/routes/works.lisp similarity index 73% rename from src/routes/work.lisp rename to src/routes/works.lisp index c1e6cf4..b331190 100644 --- a/src/routes/work.lisp +++ b/src/routes/works.lisp @@ -1,17 +1,17 @@ -(defpackage #:website/routes/work +(defpackage #:website/routes/works (:use #:cl #:hsx #:jingle) (:import-from #:website/lib/cms - #:get-work) + #:get-works) (:import-from #:website/lib/time #:datetime #:jp-datetime) (:export #:handle-get)) -(in-package #:website/routes/work) +(in-package #:website/routes/works) (defparameter *metadata* - (list :title "work")) + (list :title "works")) (defun handle-get (params) (declare (ignore params))