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

refactor(sterni/mblog/mail-note): make dependency on config explicit

Browse source 
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
This commit is contained in:
sterni 2024-12-26 00:35:54 +01:00 committed by clbot
parent 1f5e1383f5
commit 9d0b9a8395
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -9,7 +9,7 @@
(defun html-escape-stream (in out) (defun html-escape-stream (in out)
"Escape characters read from stream IN and write them to "Escape characters read from stream IN and write them to
stream OUT escaped using WHO:ESCAPE-STRING-MINIMAL." 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) (loop for len = (read-sequence buf in)
while (> len 0) while (> len 0)
do (write-string (who:escape-string-minimal (subseq buf 0 len)) out)))) do (write-string (who:escape-string-minimal (subseq buf 0 len)) out))))

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

@ -22,8 +22,8 @@
:common-lisp :common-lisp
:closure-html :closure-html
:cl-date-time-parser :cl-date-time-parser
:mime4cl :mime4cl)
:config) (:import-from :config :*general-buffer-size*)
(:import-from (:import-from
:alexandria :alexandria
:when-let* :when-let*