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 function-cache
ql jonathan
ql access

View file

@ -50,3 +50,7 @@
(: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"))

View file

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

View file

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

View file

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

View file

@ -24,7 +24,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))

View file

@ -30,7 +30,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"