c3b2: create topics locally

2 files changed, 95 insertions, 40 deletions

diff --git a/prototypes/c3b2/static/main.css b/prototypes/c3b2/static/main.css
index 8a39fc8..3efd2b4 100644
--- a/prototypes/c3b2/static/main.css
+++ b/prototypes/c3b2/static/main.css
@@ -21,48 +21,47 @@ p {
 }
 
 a:link,
-a:visited,
 a:active {
-    color: white;
-    text-decoration: none;
+  color: rgb(200, 10, 10);
+  text-decoration: none;
 }
 
-body > div {
-    background: hsla(0, 0%, 0%, 0.3);
-    background: linear-gradient(0deg, hsla(0, 0%, 0%, 0.1) 5px, hsla(0, 0%, 100%, 0.1));
-    border-bottom: 1px solid hsla(0, 0%, 0%, 1);
-    border-radius: 3px;
-    border-right: 1px solid hsla(0, 0%, 0%, 1);
-    box-shadow: -1px -1px 0px hsla(0, 0%, 100%, 0.3), 1px 1px 2px black;
-    display: block;
-    margin: auto;
-    margin-bottom: 15px;
-    max-width: 500px;
-    padding: 15px;
-    text-align: justify;
+a:visited {
+  color: gray;
+  text-decoration: none;
 }
 
-/* #container .repositories a {
-   display: block;
-   padding: 30px;
-   border-bottom: 1px solid hsla(0, 0%, 0%, 0.7);
-   background: linear-gradient(0deg, hsla(0, 0%, 0%, 0.1) 5px, hsla(0, 0%, 100%, 0.1));
-   }
+a:hover {
+  color: pink;
+}
 
-   #container .repositories a:last-child {
-   border-bottom: none;
-   }
+body > div, body textarea, body input, body h2 {
+  background: hsla(0, 0%, 0%, 0.3);
+  background: linear-gradient(0deg, hsla(0, 0%, 0%, 0.1) 5px, hsla(0, 0%, 100%, 0.1));
+  border-bottom: 1px solid hsla(0, 0%, 0%, 1);
+  border-radius: 3px;
+  border-right: 1px solid hsla(0, 0%, 0%, 1);
+  box-shadow: -1px -1px 0px hsla(0, 0%, 100%, 0.3), 1px 1px 2px black;
+  display: block;
+  margin: auto;
+  margin-bottom: 15px;
+  max-width: 500px;
+  padding: 15px;
+  text-align: justify;
+  box-sizing: border-box;
+}
 
-   #container .repositories a p {
-   margin-top: 10px;
-   }
+hr {
+  max-width: 500px;
+  margin-bottom: 15px;
+}
 
-   .branches {
-   padding: 15px;
-   background: linear-gradient(0deg, hsla(0, 0%, 0%, 0.1) 5px, hsla(0, 0%, 100%, 0.1));
-   }
+textarea, input {
+  width: 500px;
+  border: 0px;
+  color: white;
+}
 
-   .branches > ul {
-   list-style: outside none none;
-   padding-left: 10px;
-   } */
+input {
+  cursor: pointer;
+}
diff --git a/prototypes/c3b2/web.scm b/prototypes/c3b2/web.scm
index c7694e6..0f72aa0 100755
--- a/prototypes/c3b2/web.scm
+++ b/prototypes/c3b2/web.scm
@@ -41,25 +41,81 @@ exec guile -L $(pwd) -e '(@ (web) main)' -s "$0" "$@"
 
 (setlocale LC_ALL "")
 
+;;; helpers
+;;
+;; until we have real messages backend by wt and gnunet
+;;
+
+(define %loremipsum (string-split "Suspendisse potenti. Quisque ac orci sed metus molestie ornare. Nam in neque magna. Proin vel consectetur nisl, a suscipit est. Ut eget lectus maximus, scelerisque felis non, gravida leo. Pellentesque nisi risus, posuere vitae elit eget, efficitur euismod risus. Cras pulvinar, nisl vitae tincidunt hendrerit, dui nulla pellentesque libero, vel maximus erat arcu sed dui. Mauris porta dui nec arcu auctor, quis tristique massa dictum. Etiam consequat leo quis tortor vulputate, vitae eleifend lorem tempus. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Quisque a enim scelerisque, tristique turpis sed, accumsan velit. Proin eleifend, augue sit amet efficitur volutpat, magna ipsum consequat elit, vel tempor est nulla et sem. Cras faucibus odio ac est vestibulum varius. Sed lobortis fringilla egestas. Vestibulum pulvinar est vel mauris malesuada, at dapibus nibh rutrum. Etiam pellentesque lacus nec sapien pharetra, quis ultrices lorem condimentum!" #\space))
+
+(define (choice lst)
+  (list-ref lst (random (length lst))))
+
+(define (loremipsum length)
+  (string-join (map (lambda _ (choice %loremipsum)) (iota length)) " "))
+
+(define (make-message body parent)
+  `((parent . ,parent)
+    (body . ,body)))
+
+(define (make-random-topic)
+  (make-message (loremipsum 99) #f))
+
 ;;;
 
+(define %topics (map (lambda _ (make-random-topic)) (iota 0)))
+
+(define (c3b2/topics)
+  "Return vertices of topics ie. messages without parent"
+  (map get (fs:find 'parent #f)))
+
+(define (c3b2/topic-add! body)
+  (let ((new-topic `((kind . message)
+                     (body . ,body)
+                     (parent . #f))))
+    (save (create-vertex new-topic))))
+
+;;; web
+
 (define (template body-class body)
   `((doctype "html")
     (html
      (head
       (meta (@ (charset "utf-8")))
-      (title "guile-web boilerplate")
+      (title "c3b2")
       (link (@ (rel "stylesheet") (href "/static/normalize.css")))
       (link (@ (rel "stylesheet") (href "/static/main.css"))))
      (body
       (div (h1 (a (@ (href "/")) "c3b2")))
       ,body))))
 
+(define (template/topic topic)
+  `(div (p ,(vertex-ref topic 'body))
+        (a (@ (href ,(string-append "/replies/" (vertex-uid topic))))
+           "[replies]")))
+
+(define (template/index topics)
+  `(,(map template/topic topics)
+    (hr)
+    (form (@ (method "POST")
+             (action "/"))
+          (h2 "Create a new topic")
+          (textarea (@ (name "body")))
+          (input (@ (type "submit")
+                    (value "publish"))))))
+
+(define (route/index/get)
+  (render-html (template "index" (template/index (c3b2/topics)))))
+
+(define (route/index/post body)
+  (c3b2/topic-add! (assoc-ref (decode body) "body"))
+  (redirect "/"))
 
-(define (handler request body)
+(define (router request body)
   (with-context*
    (match (cons (request-method request) (request-path-components request))
-     (('GET) (render-html (template "index" '(div "Héllo Guilers"))))
+     (('GET) (route/index/get))
+     (('POST) (route/index/post body))
      (('GET "static" path ...) (render-static-asset path))
      (_ (not-found (uri->string (request-uri request)))))))
 
@@ -67,4 +123,4 @@ exec guile -L $(pwd) -e '(@ (web) main)' -s "$0" "$@"
 (define-public (main _)
   (format #t "Server running @ http://localhost:8080\n")
   (with-env (env-open* "wt" (list *feature-space*) "create,log=(enabled=true)")
-    (run-server handler)))
+    (run-server router)))