From ed4e86f47935994fb424c977e4123bde625ddff1 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 3 Jun 2024 16:56:30 -0500
Subject: Fix html/other sourcing; re-scramble Makefile

---
 src/util.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'src/util.scm')

diff --git a/src/util.scm b/src/util.scm
index 41da769..c71c600 100644
--- a/src/util.scm
+++ b/src/util.scm
@@ -2,6 +2,7 @@
 
   (import scheme (chicken base)
           (chicken condition)
+          (only (chicken irregex) irregex-replace/all)
           (chicken string))
 
   (define-syntax define-public
@@ -34,6 +35,15 @@
             (apply alist-walk (cdr kv) (cdr keys)))))))
 
   (define (string-join ss #!optional (sep " "))
-  (string-intersperse ss sep)))
+    (string-intersperse ss sep))
+
+  (define (flush-lines-left lines)
+    (irregex-replace/all '(: bol (* space))
+                         (string-join lines) ""))
+
+  (define (join-lines lines)
+    (apply string-append lines))
+
+  )
 
 
-- 
cgit 1.4.1-21-gabe81