From 9d0b9a839529ed16f90eea1a831d38eebc473a00 Mon Sep 17 00:00:00 2001 From: sterni Date: Thu, 26 Dec 2024 00:35:54 +0100 Subject: [PATCH] refactor(sterni/mblog/mail-note): make dependency on config explicit We reuse the common buffer size setting from mblog for convenience. Eventually we probably want to make mail-note an independent library, so it's good to make this internal dependency explicit and not a blanket USE-PACKAGE, so the amount of used symbols from config doesn't increase. Change-Id: I88458493c90d9f52410e34ed2a1db99be751b901 Reviewed-on: https://cl.tvl.fyi/c/depot/+/12914 Reviewed-by: sterni Autosubmit: sterni Tested-by: BuildkiteCI --- users/sterni/mblog/mail-note/note.lisp | 2 +- users/sterni/mblog/packages.lisp | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/users/sterni/mblog/mail-note/note.lisp b/users/sterni/mblog/mail-note/note.lisp index 5afe70605..aea8ff0b4 100644 --- a/users/sterni/mblog/mail-note/note.lisp +++ b/users/sterni/mblog/mail-note/note.lisp @@ -9,7 +9,7 @@ (defun html-escape-stream (in out) "Escape characters read from stream IN and write them to stream OUT escaped using WHO:ESCAPE-STRING-MINIMAL." - (let ((buf (make-string config:*general-buffer-size*))) + (let ((buf (make-string *general-buffer-size*))) (loop for len = (read-sequence buf in) while (> len 0) do (write-string (who:escape-string-minimal (subseq buf 0 len)) out)))) diff --git a/users/sterni/mblog/packages.lisp b/users/sterni/mblog/packages.lisp index e55558267..5e9d2fe14 100644 --- a/users/sterni/mblog/packages.lisp +++ b/users/sterni/mblog/packages.lisp @@ -22,8 +22,8 @@ :common-lisp :closure-html :cl-date-time-parser - :mime4cl - :config) + :mime4cl) + (:import-from :config :*general-buffer-size*) (:import-from :alexandria :when-let*