maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(sterni/mblog): implement environment based config mechanism

Browse source 
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
This commit is contained in:
sterni 2023-03-17 17:36:57 +01:00 • committed by clbot
parent fee0c83915
commit 80e168b22d
6 changed files with 54 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

7
users/sterni/mblog/note.lisp
View file

@ -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))))