website: replicant-blog: fix naming.

Some variables were named after the default haunt theme (ugly) or a
static blog generator used by GNU Boot (untitled).

Signed-off-by: Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>

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