From 6cd1f6f183317fab7661c907686df04bb6b7ade9 Mon Sep 17 00:00:00 2001 From: sterni Date: Fri, 28 Jan 2022 15:49:16 +0100 Subject: [PATCH] refactor(sterni/mblog/note): only get escape-char-minimal from WHO 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 --- users/sterni/mblog/note.lisp | 2 +- users/sterni/mblog/packages.lisp | 6 ++---- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/users/sterni/mblog/note.lisp b/users/sterni/mblog/note.lisp index 93d9231aa..b1f903c9a 100644 --- a/users/sterni/mblog/note.lisp +++ b/users/sterni/mblog/note.lisp @@ -56,7 +56,7 @@ :initarg :mime-subtype :reader apple-note-mime-subtype)) (: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) "Checks X-Uniform-Type-Identifier of a MIME:MIME-MESSAGE diff --git a/users/sterni/mblog/packages.lisp b/users/sterni/mblog/packages.lisp index 7e357f89f..aa2fa952f 100644 --- a/users/sterni/mblog/packages.lisp +++ b/users/sterni/mblog/packages.lisp @@ -11,17 +11,15 @@ :babel :babel-encodings :closure-html - :who :cl-date-time-parser - :mime4cl - :who) + :mime4cl) (:import-from :alexandria :when-let* :when-let :starts-with-subseq :ends-with-subseq) - (:shadow :with-html-output) ; conflict between closure-html and who + (:import-from :who :escape-char-minimal) (:export :apple-note :apple-note-uuid