feat(sterni/mblog): implement environment based config mechanism

Change-Id: I091c0d5decc0a1eb3d24e81b713434ab391c677d
Reviewed-on: https://cl.tvl.fyi/c/depot/+/8347
Reviewed-by: sterni <sternenseemann@systemli.org>
Autosubmit: sterni <sternenseemann@systemli.org>
Tested-by: BuildkiteCI
This commit is contained in:
sterni 2023-03-17 17:36:57 +01:00 committed by clbot
parent fee0c83915
commit 80e168b22d
6 changed files with 54 additions and 14 deletions

View file

@ -1,5 +1,5 @@
;; SPDX-License-Identifier: GPL-3.0-only
;; SPDX-FileCopyrightText: Copyright (C) 2022 by sterni
;; SPDX-FileCopyrightText: Copyright (C) 2022-2023 by sterni
(defpackage :maildir
(:use :common-lisp)
@ -8,12 +8,22 @@
(:documentation
"Very incomplete package for dealing with maildir(5)."))
(defpackage :config
(:use
:common-lisp)
(:import-from :uiop :getenv)
(:import-from :alexandria :when-let)
(:export
:init-from-env
:*general-buffer-size*))
(defpackage :note
(:use
:common-lisp
:closure-html
:cl-date-time-parser
:mime4cl)
:mime4cl
:config)
(:import-from
:alexandria
:when-let*
@ -36,7 +46,8 @@
:klatre
:who
:maildir
:note)
:note
:config)
(:export :build-mblog)
(:import-from :local-time :universal-to-timestamp)
(:shadowing-import-from :common-lisp :list))
@ -46,6 +57,7 @@
:common-lisp
:uiop
:note
:config
:mblog)
(:import-from :alexandria :starts-with)
(:export :main))