tvl-depot/users/sterni/mblog/packages.lisp

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

50 lines
955 B
Common Lisp
Raw Normal View History

(defpackage :maildir
(:use :common-lisp)
(:shadow :list)
(:export :list)
(:documentation
"Very incomplete package for dealing with maildir(5)."))
(defpackage :note
(:use
:common-lisp
:closure-html
:cl-date-time-parser
:mime4cl)
(: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)
(:export :build-mblog)
(:import-from :local-time :universal-to-timestamp)
(:import-from :sclf :pathname-as-directory)
(:shadowing-import-from :common-lisp :list))
(defpackage :cli
(:use
:common-lisp
:uiop
:note
:mblog)
(:import-from :alexandria :starts-with)
(:export :main))