Add microcms and local-time

This commit is contained in:
Akira Tempaku 2025-04-29 01:26:02 +09:00
commit 412a8adbe0
Signed by: paku
GPG key ID: 5B4E8402BCC50607
4 changed files with 30 additions and 1 deletions

View file

@ -3,7 +3,9 @@
(:import-from #:cl-dotenv
#:load-env)
(:export #:hp-env
#:hp-url))
#:hp-url
#:microcms-service-domain
#:microcms-api-key))
(in-package #:hp/env)
(load-env (merge-pathnames "./.env"))
@ -14,3 +16,5 @@
(env-var hp-env "HP_ENV")
(env-var hp-url "HP_URL")
(env-var microcms-service-domain "MICROCMS_SERVICE_DOMAIN")
(env-var microcms-api-key "MICROCMS_API_KEY")

15
src/lib/cms.lisp Normal file
View file

@ -0,0 +1,15 @@
(defpackage #:hp/lib/cms
(:use #:cl)
(:import-from #:microcms
#:define-list-client)
(:import-from #:hp/env
#:microcms-service-domain
#:microcms-api-key)
(:export #:get-blog-list
#:get-blog-detail))
(in-package :hp/lib/cms)
(setf microcms:*service-domain* (microcms-service-domain))
(setf microcms:*api-key* (microcms-api-key))
(define-list-client blog)