diff options
| -rw-r--r-- | website/builders/replicant-blog.scm | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/website/builders/replicant-blog.scm b/website/builders/replicant-blog.scm index 0ad1455..d7067f5 100644 --- a/website/builders/replicant-blog.scm +++ b/website/builders/replicant-blog.scm @@ -41,7 +41,7 @@ (post-template theme-post-template) (collection-template theme-collection-template)) -(define (untitled-layout site title body) +(define (replicant-layout site title body) `((doctype "html") (head (meta (@ (charset "utf-8"))) @@ -66,11 +66,11 @@ "Forums"))))) ,body))) -(define (ugly-default-post-template post) +(define (replicant-default-post-template post) `((h2 ,(post-ref post 'title)) (div ,(post-sxml post)))) -(define (ugly-default-collection-template site title posts prefix) +(define (replicant-default-collection-template site title posts prefix) (define (post-uri post) (string-append (or prefix "") "/" (site-post-slug site post) ".html")) @@ -84,10 +84,10 @@ posts)))) (define* (theme #:key - (name "GNU Boot") - (layout untitled-layout) - (post-template ugly-default-post-template) - (collection-template ugly-default-collection-template)) + (name "Replicant") + (layout replicant-layout) + (post-template replicant-default-post-template) + (collection-template replicant-default-collection-template)) (make-theme name layout post-template collection-template)) (define (with-layout theme site title body) @@ -106,13 +106,13 @@ "Convert DATE to human readable string." (date->string date "~a ~d ~B ~Y")) -(define ugly-theme - (theme #:name "Ugly" - #:layout untitled-layout - #:post-template ugly-default-post-template - #:collection-template ugly-default-collection-template)) +(define replicant-theme + (theme #:name "Replicant" + #:layout replicant-layout + #:post-template replicant-default-post-template + #:collection-template replicant-default-collection-template)) -(define* (replicant-blog-website #:key (theme ugly-theme) prefix +(define* (replicant-blog-website #:key (theme replicant-theme) prefix (collections `(("" "index.html" ,posts/reverse-chronological)))) "Return a procedure that transforms a list of posts into pages |