From b38a7c9add4c299273779bab1f269b07aa9c2174 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 26 Aug 2023 15:00:56 +0100
Subject: html: Use get-string-all to read inline CSS files.

* src/guile/skribilo/engine/html.scm: Import (rnrs io ports).
(&html-header-style): Use get-string-all instead of explicit loop to
read inline CSS files.
---
 src/guile/skribilo/engine/html.scm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'src')

diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index f63d475..525567c 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -47,6 +47,8 @@
   #:use-module (srfi srfi-26)
   #:use-module (srfi srfi-39)
 
+  #:use-module (rnrs io ports)
+
   #:export (html-engine html-title-engine html-file
            html-width html-class html-markup-class
            html-title-authors))
@@ -884,12 +886,8 @@ unspecified or #f values are ignored."
 					 "Can't open CSS file for input"
 					 css)
 					(begin
-					   (let loop ((l (read-line p)))
-					      (unless (eof-object? l)
-						 (display l)
-						 (newline)
-						 (loop (read-line p))))
-					   (close-input-port p)))))
+                                          (display (get-string-all p))
+					  (close-input-port p)))))
 			      icss))))
    :after "  -->\n </style>\n")
 
-- 
cgit v1.2.3