From c30f5e0472f2463f475e6e4d4cf80341ab1e0e62 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 18 Jun 2024 12:42:48 -0500
Subject: Fix verbatim processing fully

No more special-casing on the surface of the code; that is, the filter expects a list of strings and outputs a single string, etc.
---
 lib/html.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib/html.scm')

diff --git a/lib/html.scm b/lib/html.scm
index 6c16dd0..6780aea 100644
--- a/lib/html.scm
+++ b/lib/html.scm
@@ -48,7 +48,9 @@
          (stanza . "<h3>~a</h3>~%"))))
 
 (set-filters!
- `((verb (stanza . ,(o ensure-newline (cut string-join <> "\n"))))
+ `((verb (stanza . ,(o ensure-newline
+                       escape-entities
+                       (cut string-join <> "\n"))))
    (link (line . ,(lambda (ln)
                     (cons (car ln)
                           ((o list
-- 
cgit 1.4.1-21-gabe81