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 <sternenseemann@systemli.org> Autosubmit: sterni <sternenseemann@systemli.org> Tested-by: BuildkiteCI
This commit is contained in:
parent
1f5e1383f5
commit
9d0b9a8395
2 changed files with 3 additions and 3 deletions
|
@ -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))))
|
||||
|
|
|
@ -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*
|
||||
|
|
Loading…
Reference in a new issue