diff --git a/qlfile b/qlfile index 9167909..b4862b2 100644 --- a/qlfile +++ b/qlfile @@ -10,4 +10,5 @@ git microcms https://github.com/skyizwhite/microcms-lisp-sdk ql local-time ql function-cache ql jonathan +ql access ql flexi-streams diff --git a/qlfile.lock b/qlfile.lock index 0dfceae..6421bac 100644 --- a/qlfile.lock +++ b/qlfile.lock @@ -50,6 +50,10 @@ (:class qlot/source/ql:source-ql :initargs (:%version :latest) :version "ql-2020-09-25")) +("access" . + (:class qlot/source/ql:source-ql + :initargs (:%version :latest) + :version "ql-2024-10-12")) ("flexi-streams" . (:class qlot/source/ql:source-ql :initargs (:%version :latest) diff --git a/src/routes/about.lisp b/src/routes/about.lisp index e8dcc44..1fd330c 100644 --- a/src/routes/about.lisp +++ b/src/routes/about.lisp @@ -1,7 +1,8 @@ (defpackage #:website/routes/about (:use #:cl #:hsx - #:jingle) + #:jingle + #:access) (:import-from #:website/lib/cms #:get-about) (:import-from #:website/lib/time @@ -25,7 +26,7 @@ (div :class "flex justify-center" (figure :class "flex flex-col items-center" (img - :src (getf (getf about :avatar) :url) + :src (accesses about :avatar :url) :alt "avatar" :class "size-40 rounded-xl shadow-sm avatar") (figcaption (getf about :avatar-caption)))) (raw! (getf about :content)) diff --git a/src/routes/index.lisp b/src/routes/index.lisp index 8797b29..398abbc 100644 --- a/src/routes/index.lisp +++ b/src/routes/index.lisp @@ -1,6 +1,7 @@ (defpackage #:website/routes/index (:use #:cl - #:hsx) + #:hsx + #:access) (:import-from #:website/lib/cms #:get-about) (:export #:handle-get @@ -30,7 +31,7 @@ (hsx (div :class "flex flex-col items-center justify-center h-full" (img - :src (getf (getf about :avatar) :url) + :src (accesses about :avatar :url) :alt "avatar" :class "size-40 rounded-xl shadow-sm avatar") (div :class "flex flex-col items-center gap-2 py-6" (h1 :class "font-bold text-2xl text-center"