diff options
| -rw-r--r-- | tissue/web/static.scm | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/tissue/web/static.scm b/tissue/web/static.scm index ad9849b..f41523a 100644 --- a/tissue/web/static.scm +++ b/tissue/web/static.scm @@ -87,16 +87,20 @@ mutate @var{engine}." key-value-pairs) clone)) -(define* (html-engine #:key css) +(define* (html-engine #:key css head) "Return a new HTML engine. @var{css} is the URI to a CSS stylesheet. If it is @code{#f}, no -stylesheet is included in the generated web pages." +stylesheet is included in the generated web pages. @var{head} is a +string included within the HTML @code{<head>} element." (apply engine-custom-set (find-engine 'html) - (if css - `((css . ,(list css))) - '()))) + (append (if css + `((css . ,(list css))) + '()) + (if head + `((head . ,head)) + '())))) (define (gemtext-reader) "Return a skribilo reader for gemtext." |