add vomit inducing css

src/add_plant.eml.html

@@ -1,8 +1,11 @@
 let f nick request =
 <script type="text/javascript" src="/assets/js/js_plant_map.js" defer="defer"></script>
 <%s  Format.sprintf "Add a plant to your Collection %s !" nick %>
-      <div class="mb-3">
+<div class="row mb-3">
+      <div class="col-md-6">
 <div id="map"></div>
+      </div>
+      <div class="col-md-6">
         <%s! Dream.form_tag ~action:"/add_plant" ~enctype:`Multipart_form_data request %>
         <input type="hidden" id="lat_input" name="lat_input">
         <input type="hidden" id="lng_input" name="lng_input">
@@ -14,5 +17,5 @@ let f nick request =
         <input id="files" name="files" aria-describedby="filesHelp" type="file" multiple>
         <div id="filesHelp" class="form-text">Add a optional picture for your plant</div>
       <button type="submit" class="btn btn-primary">Add Plant</button>
-      </div>
     </form>
+   </div>

src/babillard.ml

@@ -282,7 +282,7 @@ let view_post post_id =
           (*TODO thumbnails *)
           Format.sprintf
             {|
-    <div class="file">
+    <div class="postImage">
         <a title="%s" href="/post_pic/%s">
         <img src="/post_pic/%s" style="width:200px;height:200px;" loading="lazy">
         </a>
@@ -320,10 +320,12 @@ let view_post post_id =
       Ok
         (Format.sprintf
            {|
-<div class="post" id="%s">
+<div class="container">
+        <div class="post" id="%s">
             %s
             %s
-    <blockquote class="comment">%s</blockquote> 
+            <blockquote class="postComment">%s</blockquote> 
+        </div> 
 </div> 
 |}
            post_id post_info_view image_view comment )

src/babillard_page.eml.html

@@ -1,7 +1,8 @@
 let f request =
 <script type="text/javascript" src="/assets/js/js_babillard.js" defer="defer"></script>
 <%s  Format.sprintf "Babillard is love" %>
-      <div class="mb-3">
+<div class="row mb-3">
+      <div class="col-md-6">
 % begin match Dream.session "nick" request with
 % | None ->
 
@@ -9,6 +10,9 @@ let f request =
 <a href="/babillard/new_thread">[New Thread]</a>
 % end;
 <div id="map"></div>
+      </div>
+      <div class="col-md-6">
 <div id="thread_preview_div"></div>
 <a id="thread_link"></a>
       </div>
+</div>

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;
+}
+

src/thread_page.eml.html

@@ -1,9 +1,6 @@
 let f thread_view thread_id request =
-<script type="text/javascript" src="/assets/js/js_babillard.js" defer="defer"></script>
 <script type="text/javascript" src="/assets/js/js_thread.js" defer="defer"></script>
-<%s  Format.sprintf "[Reply]" %>
       <%s! thread_view %>
-
 % begin match Dream.session "nick" request with
 % | None ->