diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2025-08-19 23:03:00 +0200 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2025-08-19 23:03:00 +0200 |
| commit | 27bb299eb0681cdb368d396c86fc88e1a7c96960 (patch) | |
| tree | 47f5f731eeb80cec0755c4ada8f57763d7599c1a | |
| parent | 121b1328324b5eb77a19c1d2f6080482bd4e07fa (diff) | |
| -rw-r--r-- | cook/html.scm | 7 |
1 files 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 @@ (($ <note> text) `(p ,text)) (($ <section> name) - `(h1 ,name)) + `(h2 ,name)) (($ <step> elements) `(li ,@(map expand elements))) (($ <amount> quantity unit) @@ -14,7 +14,10 @@ ,@(if amount (expand amount) '()))) (($ <recipe> metadata body) `((@raw "<!DOCTYPE html>") - (html (body (ol ,@(expand body)))))) + (html + (body + (h1 ,(cdr (assoc "title" metadata))) + (ol ,@(expand body)))))) ((? list? x) (map expand x)) ((? string? x) |