From fa0c60d4754d8cf7ec529a4701018029c730f35e Mon Sep 17 00:00:00 2001
From: Akira Tempaku <paku@skyizwhite.dev>
Date: Sat, 17 May 2025 17:14:58 +0900
Subject: [PATCH] Add access to helper
---
qlfile | 1 +
qlfile.lock | 4 ++++
src/helper.lisp | 3 ++-
src/routes/about.lisp | 2 +-
src/routes/index.lisp | 2 +-
5 files changed, 9 insertions(+), 3 deletions(-)
diff --git a/qlfile b/qlfile
index 052a4e6..1b680f7 100644
--- a/qlfile
+++ b/qlfile
@@ -10,3 +10,4 @@ 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 bcfc50c..f3d33ac 100644
--- a/qlfile.lock
+++ b/qlfile.lock
@@ -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"))
diff --git a/src/helper.lisp b/src/helper.lisp
index 5ee1bda..a367676 100644
--- a/src/helper.lisp
+++ b/src/helper.lisp
@@ -2,7 +2,8 @@
(:use #:cl)
(:use-reexport #:hsx
#:jingle
- #:jonathan)
+ #:jonathan
+ #:access)
(:export #:api-p))
(in-package #:website/helper)
diff --git a/src/routes/about.lisp b/src/routes/about.lisp
index e17f122..fa84d69 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 (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 efc327e..fe78adb 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 (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"