diff --git a/src/add_plant.eml.html b/src/add_plant.eml.html index 9cb07e8..97a41d9 100644 --- a/src/add_plant.eml.html +++ b/src/add_plant.eml.html @@ -1,8 +1,11 @@ let f nick request = <%s Format.sprintf "Add a plant to your Collection %s !" nick %> -
+
+
+
+
<%s! Dream.form_tag ~action:"/add_plant" ~enctype:`Multipart_form_data request %> @@ -14,5 +17,5 @@ let f nick request =
Add a optional picture for your plant
-
+
diff --git a/src/babillard.ml b/src/babillard.ml index 5504120..496d3c2 100644 --- a/src/babillard.ml +++ b/src/babillard.ml @@ -282,7 +282,7 @@ let view_post post_id = (*TODO thumbnails *) Format.sprintf {| -
+
@@ -320,10 +320,12 @@ let view_post post_id = Ok (Format.sprintf {| -
- %s - %s -
%s
+
+
+ %s + %s +
%s
+
|} post_id post_info_view image_view comment ) diff --git a/src/babillard_page.eml.html b/src/babillard_page.eml.html index 2805575..f500eec 100644 --- a/src/babillard_page.eml.html +++ b/src/babillard_page.eml.html @@ -1,7 +1,8 @@ let f request = <%s Format.sprintf "Babillard is love" %> -
+
+
% begin match Dream.session "nick" request with % | None -> @@ -9,6 +10,9 @@ let f request = [New Thread] % end;
+
+
+
diff --git a/src/content/assets/css/style.css b/src/content/assets/css/style.css index 4e944ad..108ae03 100644 --- a/src/content/assets/css/style.css +++ b/src/content/assets/css/style.css @@ -2,7 +2,7 @@ body { padding-top: 3rem; padding-bottom: 3rem; color: #5a5a5a; - background-color: #EEEEEE; + background-color: #e8eaf6; line-height: 1.6; font-size: 18px; } @@ -26,3 +26,26 @@ blockquote.blockquote { height: 800px; width: 600px; } + +.post { + background-color: #C5E1A5; + margin: 5px 5px 5px 5px; + border: 2px solid #FFB300; + padding: 2px; + display:table; +} + +.postInfo { + display: block; + width: 100%; +} + +.postComment { + display: block; +} + +.postImage { + float: left; + padding: 5px 5px 5px 5px; +} + diff --git a/src/template.eml.html b/src/template.eml.html index a13c1f2..237b9cd 100644 --- a/src/template.eml.html +++ b/src/template.eml.html @@ -60,7 +60,7 @@ let render_unsafe ~title ~content request =
- <%s! content %> + <%s! content %>