Fix #<unspecified> appearing when there are no Comments section.

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

1 files changed, 20 insertions, 17 deletions

diff --git a/website/builders/replicant-blog.scm b/website/builders/replicant-blog.scm
index f8e5c46..1c7c525 100644
--- a/website/builders/replicant-blog.scm
+++ b/website/builders/replicant-blog.scm
@@ -111,29 +111,32 @@
 	"."))
     (div (@ (id "post-content")) ,(post-sxml post))
 
-    (h1 "Comments")
-    ,(cond
-      ((and (post-ref post 'thread-link)
-            (post-ref post 'thread-name))
-       (assert (post-ref post 'thread-name))
-       `(div
-         (p "You can view replies on the Replicant mailing list, in the "
-            (a (@ (href ,(post-ref post 'thread-link)))
-               ,(post-ref post 'thread-name)) " thread.")
-         (p "If you also want to comment on this blog post, you can simply
+    ,(if
+      (and (post-ref post 'thread-link)
+           (post-ref post 'thread-name))
+      `(div
+        (h1 "Comments")
+        (p "You can view replies on the Replicant mailing list, in the "
+           (a (@ (href ,(post-ref post 'thread-link)))
+              ,(post-ref post 'thread-name)) " thread.")
+        (p "If you also want to comment on this blog post, you can simply
 reply to the "
-            (a (@ (href ,(post-ref post 'thread-link)))
-               ,(post-ref post 'thread-name)) " thread.")
+           (a (@ (href ,(post-ref post 'thread-link)))
+              ,(post-ref post 'thread-name)) " thread.")
 
-         (p "If for some reasons you can't reply to this thread or you don't
+        (p "If for some reasons you can't reply to this thread or you don't
 know how to do it, simply write a mail to the mailing list instead.")
 
-         (p "It is easier for everybody if you subscribe to the mailing list
+        (p "It is easier for everybody if you subscribe to the mailing list
 to do that: if you don't your mail will probably still reach the mailing list
 but it will require a moderator to approve it so it can take time. See "
-            (a (@ (href "https://redmine.replicant.us/projects/replicant/wiki/CommunityAndContact#Mailing-list"))
-               "the CommunityAndContact page")
-            " on the Replicant wiki for how to subscribe"))))))
+           (a (@ (href "https://redmine.replicant.us/projects/replicant/wiki/CommunityAndContact#Mailing-list"))
+              "the CommunityAndContact page")
+           " on the Replicant wiki for how to subscribe"))
+      ;; Empty div to avoid #<unspecified> showing up on the page when we have
+      ;; no comments.
+      `(div))))
+
 
 (define (sort-posts-by-most-recent-first a b)
   (time>?