Rename work to works

src/components/header.lisp

@@ -7,7 +7,7 @@
 
 (defparameter *nav-menu*
   '(("/about" "about")
-    ("/work" "work")
+    ("/works" "works")
     ("/blog" "blog")))
 
 (defcomp ~pc-header ()

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)
+(define-object-client works)
-(memorize get-work)
+(memorize get-works)
 
 (define-list-client blog)
 (memorize get-blog-list)

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))