diff options
| author | Arun Isaac | 2023-08-26 15:00:56 +0100 |
|---|---|---|
| committer | Arun Isaac | 2023-08-29 17:08:45 +0100 |
| commit | b38a7c9add4c299273779bab1f269b07aa9c2174 (patch) | |
| tree | 529dde28c49500a6501b9258bc8d3091e7df165a | |
| parent | 53a8b73f259e291e144c783a57ebf8347a01c541 (diff) | |
| download | skribilo-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.
| -rw-r--r-- | src/guile/skribilo/engine/html.scm | 10 |
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") |