0ead86ec89
The type identifier Apple uses is com.apple.mail-note, so “Mail Note” is actually the best way to refer to this format. Not only doesn't it include a trademark, but it's also more accurate. The iOS and macOS Notes.app(s) allow authoring Notes to be saved in iCloud which seems to use a different API and/or storage format (at least these notes are no longer accessible via IMAP). In this sense they are “Apple Notes”, but not “Mail Notes”. Change-Id: I2fd3d3bd253ed39adf7965008290f7d1e622831d Reviewed-on: https://cl.tvl.fyi/c/depot/+/12815 Autosubmit: sterni <sternenseemann@systemli.org> Tested-by: BuildkiteCI Reviewed-by: sterni <sternenseemann@systemli.org>
64 lines
1.2 KiB
Common Lisp
64 lines
1.2 KiB
Common Lisp
;; SPDX-License-Identifier: GPL-3.0-only
|
|
;; SPDX-FileCopyrightText: Copyright (C) 2022-2024 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 :mail-note
|
|
(:use
|
|
:common-lisp
|
|
:closure-html
|
|
: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
|
|
:mail-note
|
|
:mail-note-uuid
|
|
:mail-note-subject
|
|
:mail-note-time
|
|
:mail-note-text-part
|
|
:make-mail-note
|
|
:mail-note-html-fragment))
|
|
|
|
(defpackage :mblog
|
|
(:use
|
|
:common-lisp
|
|
:klatre
|
|
:who
|
|
:maildir
|
|
:mail-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
|
|
:mail-note
|
|
:config
|
|
:mblog)
|
|
(:import-from :alexandria :starts-with)
|
|
(:export :main))
|