2022-07-09 13:25:32 +02:00
|
|
|
;; SPDX-License-Identifier: GPL-3.0-only
|
|
|
|
;; SPDX-FileCopyrightText: Copyright (C) 2022 by sterni
|
|
|
|
|
2021-11-30 17:42:05 +01:00
|
|
|
(defpackage :maildir
|
|
|
|
(:use :common-lisp)
|
|
|
|
(:shadow :list)
|
|
|
|
(:export :list)
|
|
|
|
(:documentation
|
|
|
|
"Very incomplete package for dealing with maildir(5)."))
|
|
|
|
|
2022-01-13 00:33:59 +01:00
|
|
|
(defpackage :note
|
2021-08-02 15:13:05 +02:00
|
|
|
(:use
|
|
|
|
:common-lisp
|
|
|
|
:closure-html
|
2022-01-13 00:33:59 +01:00
|
|
|
:cl-date-time-parser
|
2022-01-28 15:49:16 +01:00
|
|
|
:mime4cl)
|
2021-08-02 15:13:05 +02:00
|
|
|
(:import-from
|
|
|
|
:alexandria
|
|
|
|
:when-let*
|
|
|
|
:when-let
|
|
|
|
:starts-with-subseq
|
|
|
|
:ends-with-subseq)
|
2022-02-01 16:33:54 +01:00
|
|
|
(:import-from :who :escape-string-minimal)
|
2022-01-13 00:33:59 +01:00
|
|
|
(: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
|
2022-01-29 16:18:19 +01:00
|
|
|
:klatre
|
|
|
|
:who
|
|
|
|
:maildir
|
2022-01-13 00:33:59 +01:00
|
|
|
:note)
|
2022-01-29 16:18:19 +01:00
|
|
|
(:export :build-mblog)
|
|
|
|
(:import-from :local-time :universal-to-timestamp)
|
|
|
|
(:shadowing-import-from :common-lisp :list))
|
|
|
|
|
|
|
|
(defpackage :cli
|
|
|
|
(:use
|
|
|
|
:common-lisp
|
|
|
|
:uiop
|
|
|
|
:note
|
|
|
|
:mblog)
|
|
|
|
(:import-from :alexandria :starts-with)
|
2021-08-02 15:13:05 +02:00
|
|
|
(:export :main))
|