5789814dec
Non ASCII Subjects will use RFC2047 to encode their content. Using mime4cl's parse-RFC2047-text we obtain a list of ASCII strings and byte vectors tagged with their encoding. Using babel we can then decode the byte sequence, assuming the encoding is named the same in babel and RFC2047 (which it is for UTF-8 at least…). Change-Id: I2840672409452bd194fb1635721e338364d9b484 Reviewed-on: https://cl.tvl.fyi/c/depot/+/5078 Reviewed-by: sterni <sternenseemann@systemli.org> Tested-by: BuildkiteCI
39 lines
720 B
Common Lisp
39 lines
720 B
Common Lisp
(defpackage :maildir
|
|
(:use :common-lisp)
|
|
(:shadow :list)
|
|
(:export :list)
|
|
(:documentation
|
|
"Very incomplete package for dealing with maildir(5)."))
|
|
|
|
(defpackage :note
|
|
(:use
|
|
:common-lisp
|
|
:babel
|
|
:babel-encodings
|
|
:closure-html
|
|
:who
|
|
:cl-date-time-parser
|
|
:mime4cl
|
|
:who)
|
|
(:import-from
|
|
:alexandria
|
|
:when-let*
|
|
:when-let
|
|
:starts-with-subseq
|
|
:ends-with-subseq)
|
|
(:shadow :with-html-output) ; conflict between closure-html and who
|
|
(: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
|
|
:uiop
|
|
:note)
|
|
(:export :main))
|