diff options
Diffstat (limited to 'jakob/builder/cookbook.scm')
| -rw-r--r-- | jakob/builder/cookbook.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/jakob/builder/cookbook.scm b/jakob/builder/cookbook.scm index a0be836..f221107 100644 --- a/jakob/builder/cookbook.scm +++ b/jakob/builder/cookbook.scm @@ -32,9 +32,11 @@ #:use-module (srfi srfi-26) #:export (cookbook)) + + ;;; Commentary: ;;; -;;; A builder for a cookbook, based on Haunt's default 'blog' builder. +;;; A custom cookbook builder. ;;; ;;; Code: @@ -50,7 +52,7 @@ ;;; Rendering. ;;; -(define (tags-to-spans tags) +(define (tags->spans tags) (define (tag->class tag) (string-map (lambda (c) (if (char=? c #\:) #\- c)) tag)) (define (make-class tag) @@ -62,7 +64,7 @@ (($ <cookbook-page> path metadata body) (let* ((title (or (assq-ref metadata 'title) "Untitled")) (content `((h1 ,title) - (p ,(tags-to-spans (assq-ref metadata 'tags))) + (p ,(tags->spans (assq-ref metadata 'tags))) ,@body (p ,(hyperlink "/cookbook/" "Back to Cookbook")))) (content (theme #:title title #:content content))) @@ -78,7 +80,7 @@ (format #f "/cookbook/recipes/~a" thumb) "/cookbook/recipes/default-thumb.jpg"))))) (div (a (@ (href ,(format #f "/~a" path))) (h3 ,title)) - (p ,(tags-to-spans (assq-ref metadata 'tags))))))))) + (p ,(tags->spans (assq-ref metadata 'tags))))))))) ;;; |