website/src/lib/cms.lisp

16 lines
422 B
Common Lisp
Raw Normal View History

2025-04-29 01:26:02 +09:00
(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)