aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorArun Isaac2023-08-26 15:00:56 +0100
committerArun Isaac2023-08-29 17:08:45 +0100
commitb38a7c9add4c299273779bab1f269b07aa9c2174 (patch)
tree529dde28c49500a6501b9258bc8d3091e7df165a /src
parent53a8b73f259e291e144c783a57ebf8347a01c541 (diff)
downloadskribilo-b38a7c9add4c299273779bab1f269b07aa9c2174.tar.gz
skribilo-b38a7c9add4c299273779bab1f269b07aa9c2174.tar.lz
skribilo-b38a7c9add4c299273779bab1f269b07aa9c2174.zip
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.
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/engine/html.scm10
1 files changed, 4 insertions, 6 deletions
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")