From 27bb299eb0681cdb368d396c86fc88e1a7c96960 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Tue, 19 Aug 2025 23:03:00 +0200 Subject: html: Add title --- cook/html.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/cook/html.scm b/cook/html.scm index 0f8a501..d390ca3 100644 --- a/cook/html.scm +++ b/cook/html.scm @@ -4,7 +4,7 @@ (($ text) `(p ,text)) (($
name) - `(h1 ,name)) + `(h2 ,name)) (($ elements) `(li ,@(map expand elements))) (($ quantity unit) @@ -14,7 +14,10 @@ ,@(if amount (expand amount) '()))) (($ metadata body) `((@raw "") - (html (body (ol ,@(expand body)))))) + (html + (body + (h1 ,(cdr (assoc "title" metadata))) + (ol ,@(expand body)))))) ((? list? x) (map expand x)) ((? string? x) -- cgit v1.2.3