mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor(sterni/mblog/note): only get escape-char-minimal from WHO

Browse source 
This is the only thing we need from that package and it avoids having
to solve the annoying conflict between closure-html and who.

Change-Id: Iacfb8d4948d1987e767ffc456b8e141b468ef6d9
Reviewed-on: https://cl.tvl.fyi/c/depot/+/5111
Tested-by: BuildkiteCI
Reviewed-by: sterni <sternenseemann@systemli.org>
This commit is contained in:
sterni 2022-01-28 15:49:16 +01:00
parent 5789814dec
commit 6cd1f6f183
2 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
users/sterni/mblog/note.lisp
View file

@ -56,7 +56,7 @@
:initarg :mime-subtype :initarg :mime-subtype
:reader apple-note-mime-subtype)) :reader apple-note-mime-subtype))
(:documentation (:documentation
"Representation of a Note created using Apple's Notes using the IMAP backend")) "Representation of a Note created using Apple's Notes via the IMAP backend"))
(defun apple-note-p (msg) (defun apple-note-p (msg)
"Checks X-Uniform-Type-Identifier of a MIME:MIME-MESSAGE "Checks X-Uniform-Type-Identifier of a MIME:MIME-MESSAGE

6
users/sterni/mblog/packages.lisp
View file

@ -11,17 +11,15 @@
:babel :babel
:babel-encodings :babel-encodings
:closure-html :closure-html
:who
:cl-date-time-parser :cl-date-time-parser
:mime4cl :mime4cl)
:who)
(:import-from (:import-from
:alexandria :alexandria
:when-let* :when-let*
:when-let :when-let
:starts-with-subseq :starts-with-subseq
:ends-with-subseq) :ends-with-subseq)
(:shadow :with-html-output) ; conflict between closure-html and who (:import-from :who :escape-char-minimal)
(:export (:export
:apple-note :apple-note
:apple-note-uuid :apple-note-uuid