Various site updates

2 files changed, 7 insertions, 5 deletions

diff --git a/jakob/builder/blog.scm b/jakob/builder/blog.scm
index e03c3e2..003f96c 100644
--- a/jakob/builder/blog.scm
+++ b/jakob/builder/blog.scm
@@ -49,7 +49,7 @@
 ;;;
 
 (define (build-comment-url post)
-  (format #f "/api/comment-form/~a" (post-slug post)))
+  (format #f "/apps/comment-form/~a" (post-slug post)))
 
 (define (render-article post)
   "Return the SHTML for POST's contents."
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)))))))))
 
 
 ;;;