website/src/lib/cms.lisp

21 lines
582 B
Common Lisp
Raw Normal View History

2025-05-02 09:39:55 +09:00
(defpackage #:website/lib/cms
2025-04-29 01:26:02 +09:00
(:use #:cl)
(:import-from #:microcms
2025-04-29 19:13:40 +09:00
#:define-list-client
#:define-object-client)
2025-05-02 09:39:55 +09:00
(:import-from #:website/lib/env
2025-04-29 01:26:02 +09:00
#:microcms-service-domain
#:microcms-api-key)
(:export #:get-blog-list
2025-04-29 19:13:40 +09:00
#:get-blog-detail
2025-05-03 13:26:31 +09:00
#:get-about
2025-04-29 19:13:40 +09:00
#:get-work))
2025-05-02 09:39:55 +09:00
(in-package :website/lib/cms)
2025-04-29 01:26:02 +09:00
(setf microcms:*service-domain* (microcms-service-domain))
(setf microcms:*api-key* (microcms-api-key))
2025-05-03 13:26:31 +09:00
(define-object-client about)
2025-04-29 19:13:40 +09:00
(define-object-client work)
2025-04-29 01:26:02 +09:00
(define-list-client blog)