Add microcms and local-time
This commit is contained in:
parent
8d209a1bb4
commit
412a8adbe0
4 changed files with 30 additions and 1 deletions
|
@ -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
15
src/lib/cms.lisp
Normal 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)
|
Loading…
Add table
Add a link
Reference in a new issue