14 lines
284 B
Common Lisp
14 lines
284 B
Common Lisp
(defpackage #:hp/env
|
|
(:use #:cl)
|
|
(:import-from #:cl-dotenv
|
|
#:load-env)
|
|
(:export #:hp-env))
|
|
(in-package #:hp/env)
|
|
|
|
(load-env (merge-pathnames "./.env"))
|
|
|
|
(defmacro env-var (name var)
|
|
`(defun ,name ()
|
|
(or (uiop:getenv ,var) "")))
|
|
|
|
(env-var hp-env "HP_ENV")
|