diff options
| author | sterni <sternenseemann@systemli.org> | 2024-12-25T23·35+0100 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2024-12-26T12·59+0000 |
| commit | 9d0b9a839529ed16f90eea1a831d38eebc473a00 (patch) | |
| tree | 007b92baad462d4ac75722b742ac352c4f566d75 | |
| parent | 1f5e1383f5273e487a95606458c45f097fe30d8d (diff) | |
refactor(sterni/mblog/mail-note): make dependency on config explicit r/9027
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 <sternenseemann@systemli.org> Autosubmit: sterni <sternenseemann@systemli.org> Tested-by: BuildkiteCI
| -rw-r--r-- | users/sterni/mblog/mail-note/note.lisp | 2 | ||||
| -rw-r--r-- | 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 5afe706055bc..aea8ff0b430e 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 e555582674a5..5e9d2fe14441 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* |