Update contents

src/lib/cms.lisp

@@ -1,15 +1,20 @@
 (defpackage #:hp/lib/cms
   (:use #:cl)
   (:import-from #:microcms
-                #:define-list-client)
+                #:define-list-client
+                #:define-object-client)
   (:import-from #:hp/lib/env
                 #:microcms-service-domain
                 #:microcms-api-key)
   (:export #:get-blog-list
-           #:get-blog-detail))
+           #:get-blog-detail
+           #:get-bio
+           #:get-work))
 (in-package :hp/lib/cms)
 
 (setf microcms:*service-domain* (microcms-service-domain))
 (setf microcms:*api-key* (microcms-api-key))
 
+(define-object-client bio)
+(define-object-client work)
 (define-list-client blog)

src/lib/metadata.lisp

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

src/renderer.lisp

@@ -19,7 +19,7 @@
   (set-response-header :content-type "text/html; charset=utf-8")
   (set-response-header :cache-control (if (string= (hp-env) "dev")
                                           "private, no-store"
-                                          "public, s-maxage=60, stale-while-revalidate=86400, stale-if-error=86400"))
+                                          "public, max-age=60 s-maxage=300, stale-while-revalidate=86400, stale-if-error=86400"))
   (call-next-method app
                     (hsx:render-to-string
                      (match result

src/routes/index.lisp

@@ -14,7 +14,7 @@
 (defcomp ~page ()
   (hsx
    (section :class "flex flex-col items-center justify-center h-full"
-     (img :src "/img/avatar.jpg" :alt "avatar" :class "size-40 rounded-xl shadow-sm")
+     (img :src "/img/avatar.webp" :alt "avatar" :class "size-40 rounded-xl shadow-sm")
      (div :class "flex flex-col items-center gap-2 py-6"
        (h1 :class "font-bold text-2xl text-center"
          "Akira Tempaku")

src/ui/layout.lisp

@@ -40,29 +40,26 @@
        (link :rel "manifest" :href "/img/site.webmanifest")
        (link :rel "stylesheet" :href (bust-cache "/style/dist.css"))
        (link :rel "preconnect" :href "https://fonts.googleapis.com")
-       (link :rel "stylesheet" :href "https://fonts.googleapis.com/css2?family=Zen+Kurenaido&display=swap")
+       (link :rel "stylesheet" :href "https://fonts.googleapis.com/css2?family=Zen+Maru+Gothic&display=swap")
        (script :src "https://cdn.jsdelivr.net/npm/htmx.org@2.0.0/dist/htmx.min.js")
-       (script :src "https://cdn.jsdelivr.net/npm/htmx-ext-preload@2.0.0/preload.min.js")
        (script :src "https://cdn.jsdelivr.net/npm/htmx-ext-head-support@2.0.0/head-support.min.js")
        (script :src "https://cdn.jsdelivr.net/npm/htmx-ext-response-targets@2.0.0/response-targets.min.js")
        (script :src "https://cdn.jsdelivr.net/npm/alpinejs@3.14.0/dist/cdn.min.js" :defer t))
      (body
-       :hx-ext "head-support, response-targets, preload"
+       :hx-ext "head-support, response-targets"
        :hx-boost "true" :hx-target-404 "body" :hx-target-5* "body"
        :class (<>
-                "h-[100svh] flex flex-col bg-[url(/img/bg.jpg)] bg-cover bg-center "
+                "h-[100svh] flex flex-col bg-[url(/img/bg.webp)] bg-cover bg-center "
                 "p-2 md:p-8")
        (div :class (<> 
                      "bg-amber-50/90 flex flex-col flex-1 w-full max-w-[700px] overflow-hidden  shadow-sm "
                      "px-2 pt-2 mx-auto md:px-8 md:pt-8")
          (header :class "flex justify-between pb-2 md:pb-4 border-b-1"
-           (h1 :class "text-2xl md:text-4xl font-bold"
+           (h1 :class "text-2xl md:text-3xl font-bold"
              (a :href "/"
                "skyizwhite"))
            (nav :class "flex items-end"
-             (ul
-               :class "flex gap-4 text-lg [&_a]:underline [&_a]:hover:text-pink-500"
-               :preload t
+             (ul :class "flex gap-4 text-lg [&_a]:underline [&_a]:hover:text-pink-500"
                (li (a :href "/bio" "bio"))
                (li (a :href "/work" "work"))
                (li (a :href "/blog" "blog")))))

static/style/global.css

@@ -1,11 +1,12 @@
 @import "tailwindcss";
+@plugin "@tailwindcss/typography";
 
 :root {
-  font-family: "Zen Kurenaido", sans-serif;
+  font-family: "Zen Maru Gothic", sans-serif;
 }
 
 @supports (font-variation-settings: normal) {
   :root {
-    font-family: "Zen Kurenaido", sans-serif;
+    font-family: "Zen Maru Gothic", sans-serif;
   }
 }