Compare commits

..

2 commits

Author SHA1 Message Date
fa0c60d475
Add access to helper 2025-05-17 17:14:58 +09:00
cb7062028e
re-export hsx, jingle, jonathan in helper 2025-05-17 17:13:38 +09:00
7 changed files with 11 additions and 7 deletions

1
qlfile
View file

@ -10,3 +10,4 @@ git microcms https://github.com/skyizwhite/microcms-lisp-sdk
ql local-time ql local-time
ql function-cache ql function-cache
ql jonathan ql jonathan
ql access

View file

@ -50,3 +50,7 @@
(:class qlot/source/ql:source-ql (:class qlot/source/ql:source-ql
:initargs (:%version :latest) :initargs (:%version :latest)
:version "ql-2020-09-25")) :version "ql-2020-09-25"))
("access" .
(:class qlot/source/ql:source-ql
:initargs (:%version :latest)
:version "ql-2024-10-12"))

View file

@ -1,7 +1,6 @@
(defpackage #:website/components/header (defpackage #:website/components/header
(:use #:cl (:use #:cl
#:hsx #:website/helper)
#:jingle)
(:export #:~header)) (:export #:~header))
(in-package #:website/components/header) (in-package #:website/components/header)

View file

@ -1,7 +1,6 @@
(defpackage #:website/components/metadata (defpackage #:website/components/metadata
(:use #:cl (:use #:cl
#:hsx #:website/helper)
#:jingle)
(:import-from #:website/lib/env (:import-from #:website/lib/env
#:website-url) #:website-url)
(:export #:~metadata)) (:export #:~metadata))

View file

@ -2,7 +2,8 @@
(:use #:cl) (:use #:cl)
(:use-reexport #:hsx (:use-reexport #:hsx
#:jingle #:jingle
#:jonathan) #:jonathan
#:access)
(:export #:api-p)) (:export #:api-p))
(in-package #:website/helper) (in-package #:website/helper)

View file

@ -24,7 +24,7 @@
(div :class "flex justify-center" (div :class "flex justify-center"
(figure :class "flex flex-col items-center" (figure :class "flex flex-col items-center"
(img (img
:src (getf (getf about :avatar) :url) :src (accesses about :avatar :url)
:alt "avatar" :class "size-40 rounded-xl shadow-sm avatar") :alt "avatar" :class "size-40 rounded-xl shadow-sm avatar")
(figcaption (getf about :avatar-caption)))) (figcaption (getf about :avatar-caption))))
(raw! (getf about :content)) (raw! (getf about :content))

View file

@ -30,7 +30,7 @@
(hsx (hsx
(div :class "flex flex-col items-center justify-center h-full" (div :class "flex flex-col items-center justify-center h-full"
(img (img
:src (getf (getf about :avatar) :url) :src (accesses about :avatar :url)
:alt "avatar" :class "size-40 rounded-xl shadow-sm avatar") :alt "avatar" :class "size-40 rounded-xl shadow-sm avatar")
(div :class "flex flex-col items-center gap-2 py-6" (div :class "flex flex-col items-center gap-2 py-6"
(h1 :class "font-bold text-2xl text-center" (h1 :class "font-bold text-2xl text-center"