c3b2: small fixes

- if the download timeouts then the file is #f, filter it
- the published file is only the message

1 files changed, 5 insertions, 2 deletions

diff --git a/prototypes/c3b2/web.scm b/prototypes/c3b2/web.scm
index aab9ce7..20e53f1 100755
--- a/prototypes/c3b2/web.scm
+++ b/prototypes/c3b2/web.scm
@@ -63,7 +63,10 @@ exec guile -L $(pwd) -e '(@ (web) main)' -s "$0" "$@"
 
 (define (c3b2/topics)
   "Return vertices of topics ie. messages without parent"
-  (map get (fs:find 'parent #f)))
+  (map utf8->string
+       (filter values
+               (map (lambda (uri) (download %configuration uri))
+                    (search %configuration '("c3b2://v1/topic"))))))
 
 (define (c3b2/topic-add! body)
   (let ((new-topic `((kind . message)
@@ -95,7 +98,7 @@ exec guile -L $(pwd) -e '(@ (web) main)' -s "$0" "$@"
       ,body))))
 
 (define (template/topic topic)
-  `(div (p ,(vertex-ref topic 'body))))
+  `(div (p ,topic)))
 
 (define (template/index topics)
   `(,(map template/topic topics)