diff options
Diffstat (limited to 'users/sterni/mblog/packages.lisp')
-rw-r--r-- | users/sterni/mblog/packages.lisp | 59 |
1 files changed, 54 insertions, 5 deletions
diff --git a/users/sterni/mblog/packages.lisp b/users/sterni/mblog/packages.lisp index ca2e41b682..d6e33955d3 100644 --- a/users/sterni/mblog/packages.lisp +++ b/users/sterni/mblog/packages.lisp @@ -1,15 +1,64 @@ -(defpackage :mblog +;; SPDX-License-Identifier: GPL-3.0-only +;; SPDX-FileCopyrightText: Copyright (C) 2022-2023 by sterni + +(defpackage :maildir + (:use :common-lisp) + (:shadow :list) + (:export :list) + (: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 - :mime4cl :closure-html - :who - :uiop) - (:shadow :with-html-output) ; conflict between closure-html and who + :cl-date-time-parser + :mime4cl + :config) (:import-from :alexandria :when-let* :when-let :starts-with-subseq :ends-with-subseq) + (:import-from :who :escape-string-minimal) + (:export + :apple-note + :apple-note-uuid + :apple-note-subject + :apple-note-time + :apple-note-text-part + :make-apple-note + :apple-note-html-fragment)) + +(defpackage :mblog + (:use + :common-lisp + :klatre + :who + :maildir + :note + :config) + (:export :build-mblog) + (:import-from :local-time :universal-to-timestamp) + (:import-from :mime4cl :redirect-stream) + (:shadowing-import-from :common-lisp :list)) + +(defpackage :cli + (:use + :common-lisp + :uiop + :note + :config + :mblog) + (:import-from :alexandria :starts-with) (:export :main)) |