c3b2: rework the ui to be a wall

1 files changed, 2 insertions, 4 deletions

diff --git a/prototypes/c3b2/web.scm b/prototypes/c3b2/web.scm
index 1c430c3..cc9d8c9 100755
--- a/prototypes/c3b2/web.scm
+++ b/prototypes/c3b2/web.scm
@@ -95,16 +95,14 @@ exec guile -L $(pwd) -e '(@ (web) main)' -s "$0" "$@"
       ,body))))
 
 (define (template/topic topic)
-  `(div (p ,(vertex-ref topic 'body))
-        (a (@ (href ,(string-append "/replies/" (vertex-uid topic))))
-           "[replies]")))
+  `(div (p ,(vertex-ref topic 'body))))
 
 (define (template/index topics)
   `(,(map template/topic topics)
     (hr)
     (form (@ (method "POST")
              (action "/"))
-          (h2 "Create a new topic")
+          (h2 "Chime in the conversation!")
           (textarea (@ (name "body")))
           (input (@ (type "submit")
                     (value "publish"))))))