diff options
| -rw-r--r-- | src/guile/skribilo/engine/html.scm | 42 |
1 files changed, 20 insertions, 22 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm index 65eb9a9..991050b 100644 --- a/src/guile/skribilo/engine/html.scm +++ b/src/guile/skribilo/engine/html.scm @@ -865,28 +865,26 @@ unspecified or #f values are ignored." (markup-writer '&html-header-style :before " <style type=\"text/css\">\n <!--\n" :action (lambda (node engine) - (let ((icss (let ((ic (engine-custom engine 'inline-css))) - (if (string? ic) - (list ic) - ic)))) - (display " pre { font-family: monospace }\n") - (display " tt { font-family: monospace }\n") - (display " code { font-family: monospace }\n") - (display " p.flushright { text-align: right }\n") - (display " p.flushleft { text-align: left }\n") - (display " span.sc { font-variant: small-caps }\n") - (display " span.sf { font-family: sans-serif }\n") - (display " span.skribetitle { font-family: sans-serif; font-weight: bolder; font-size: x-large; }\n") - (display " li.skribilo-toc-item::marker { content: attr(skribilo-toc-item-marker) }\n") - (when (pair? icss) - (for-each (lambda (css) - (display (guard (c (else (skribe-error - 'html-css - "Can't open CSS file for input" - css))) - (call-with-input-file css - get-string-all)))) - icss)))) + (display " pre { font-family: monospace }\n") + (display " tt { font-family: monospace }\n") + (display " code { font-family: monospace }\n") + (display " p.flushright { text-align: right }\n") + (display " p.flushleft { text-align: left }\n") + (display " span.sc { font-variant: small-caps }\n") + (display " span.sf { font-family: sans-serif }\n") + (display " span.skribetitle { font-family: sans-serif; font-weight: bolder; font-size: x-large; }\n") + (display " li.skribilo-toc-item::marker { content: attr(skribilo-toc-item-marker) }\n") + (for-each (lambda (css) + (display (guard (c (else (skribe-error + 'html-css + "Can't open CSS file for input" + css))) + (call-with-input-file css + get-string-all)))) + (let ((inline-css (engine-custom engine 'inline-css))) + (if (string? inline-css) + (list inline-css) + inline-css)))) :after " -->\n </style>\n") (markup-writer '&html-header-javascript |