diff --git a/qlfile b/qlfile index 1b680f7..052a4e6 100644 --- a/qlfile +++ b/qlfile @@ -10,4 +10,3 @@ git microcms https://github.com/skyizwhite/microcms-lisp-sdk ql local-time ql function-cache ql jonathan -ql access diff --git a/qlfile.lock b/qlfile.lock index f3d33ac..bcfc50c 100644 --- a/qlfile.lock +++ b/qlfile.lock @@ -50,7 +50,3 @@ (: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")) diff --git a/src/components/header.lisp b/src/components/header.lisp index d4a2f9c..9546095 100644 --- a/src/components/header.lisp +++ b/src/components/header.lisp @@ -1,6 +1,7 @@ (defpackage #:website/components/header (:use #:cl - #:website/helper) + #:hsx + #:jingle) (:export #:~header)) (in-package #:website/components/header) diff --git a/src/components/metadata.lisp b/src/components/metadata.lisp index 780e2c8..f8fb04a 100644 --- a/src/components/metadata.lisp +++ b/src/components/metadata.lisp @@ -1,6 +1,7 @@ (defpackage #:website/components/metadata (:use #:cl - #:website/helper) + #:hsx + #:jingle) (:import-from #:website/lib/env #:website-url) (:export #:~metadata)) diff --git a/src/helper.lisp b/src/helper.lisp index a367676..5ee1bda 100644 --- a/src/helper.lisp +++ b/src/helper.lisp @@ -2,8 +2,7 @@ (:use #:cl) (:use-reexport #:hsx #:jingle - #:jonathan - #:access) + #:jonathan) (:export #:api-p)) (in-package #:website/helper) diff --git a/src/routes/about.lisp b/src/routes/about.lisp index fa84d69..e17f122 100644 --- a/src/routes/about.lisp +++ b/src/routes/about.lisp @@ -24,7 +24,7 @@ (div :class "flex justify-center" (figure :class "flex flex-col items-center" (img - :src (accesses about :avatar :url) + :src (getf (getf 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 fe78adb..efc327e 100644 --- a/src/routes/index.lisp +++ b/src/routes/index.lisp @@ -30,7 +30,7 @@ (hsx (div :class "flex flex-col items-center justify-center h-full" (img - :src (accesses about :avatar :url) + :src (getf (getf 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"