diff options
Diffstat (limited to 'cook/html.scm')
| -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) |