about summary refs log tree commit diff
path: root/users/sterni/mblog/note.lisp
diff options
context:
space:
mode:
authorsterni <sternenseemann@systemli.org>2023-03-17T16·36+0100
committerclbot <clbot@tvl.fyi>2023-03-24T18·32+0000
commit80e168b22d602e2d2b8b872beadacc64460bd670 (patch)
treeb87796e4df8a06583feffca6a9a16ff735432be0 /users/sterni/mblog/note.lisp
parentfee0c83915918f60c55c25a9c48c59b4e92eb598 (diff)
feat(sterni/mblog): implement environment based config mechanism r/6040
Change-Id: I091c0d5decc0a1eb3d24e81b713434ab391c677d
Reviewed-on: https://cl.tvl.fyi/c/depot/+/8347
Reviewed-by: sterni <sternenseemann@systemli.org>
Autosubmit: sterni <sternenseemann@systemli.org>
Tested-by: BuildkiteCI
Diffstat (limited to 'users/sterni/mblog/note.lisp')
-rw-r--r--users/sterni/mblog/note.lisp7
1 files changed, 2 insertions, 5 deletions
diff --git a/users/sterni/mblog/note.lisp b/users/sterni/mblog/note.lisp
index 21257fc7b47a..d44bcc0d0a1a 100644
--- a/users/sterni/mblog/note.lisp
+++ b/users/sterni/mblog/note.lisp
@@ -1,18 +1,15 @@
 ;; SPDX-License-Identifier: GPL-3.0-only
-;; SPDX-FileCopyrightText: Copyright (C) 2022 by sterni
+;; SPDX-FileCopyrightText: Copyright (C) 2022-2023 by sterni
 
 (in-package :note)
 (declaim (optimize (safety 3)))
 
 ;;; util
 
-;; TODO(sterni): merge this with mblog::*copy-buffer-size*
-(defvar *copy-buffer-size* 4096)
-
 (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 *copy-buffer-size*)))
+  (let ((buf (make-string config:*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))))