make things pretty

src/babillard_page.eml.html

@@ -4,12 +4,12 @@ let f request =
   <br />
   <div class="row mb-3">
     <div class="col-md-6">
-% if Option.is_some @@ Dream.session "nick" request then begin
-      <a href="/babillard/new_thread" >[New Thread]</a>
-% end;
       <div id="map"></div>
       <br />
       <button class="btn btn-primary" onclick="geolocalize()">Geolocalize me</button>
+% if Option.is_some @@ Dream.session "nick" request then begin
+      <a class="btn btn-primary" href="/babillard/new_thread">New Thread</a>
+% end;
     </div>
     <div class="col-md-6">
       <div id="thread_preview_div"></div>

src/newthread_page.eml.html

@@ -1,16 +1,20 @@
 let f request =
 % begin match Dream.session "nick" request with
 % | None ->
-Login to make a new thread.
+  <a href="/login">Login</a> to make a new thread.
 % | Some _nick ->
   <script type="text/javascript" src="/assets/js/js_newthread.js" defer="defer"></script>
-<div id="newthread">Click the map to make a new thread:</div>
+  <h1>New thread</h1>
+  <div id="newthread">
+      Click the map to make a new thread:
+  </div>
+  <br />
   <div class="row mb-3">
     <div class="col-md-6">
       <div id="map"></div>
-        <button onclick="geolocalize()">Geolocalize me</button>
+      <br />
+      <button class="btn btn-primary" onclick="geolocalize()">Geolocalize me</button>
     </div>
-
     <div class="col-md-6" id="newthread-form">
       <div class="postForm">
 <%s! Dream.form_tag ~action:"/babillard/new_thread" ~enctype:`Multipart_form_data request %>

src/user.ml

@@ -129,8 +129,18 @@ let public_profile request =
   let^? nick, _password, _email, (bio, _) = Db.find_opt Q.get_user nick in
   let user_info =
     Format.sprintf
-      {|nick = `%s`; bio = '%s';
+      {|
-    <img src="/user/%s/avatar" class="img-thumbnail" alt="Your avatar picture">|}
+    <h1>%s</h1>
+    <br />
+    <div class="row">
+      <div class="col-md-6">
+        <blockquote>%s</blockquote>
+      </div>
+      <div class="col-md-6">
+        <img src="/user/%s/avatar" class="img-thumbnail" alt="Your avatar picture">
+      </div>
+    </div>
+|}
       nick (Dream.html_escape bio) nick
   in
   Ok user_info

src/user_profile.eml.html

@@ -1,5 +1,5 @@
 let f nick bio request =
-<%s  Format.sprintf "Hello %s !" nick %>
+  <h1><%s  Format.sprintf "Hello %s !" nick %></h1>
   <%s! Dream.form_tag ~action:"/profile" request %>
     <div class="mb-3">
       <label for="bio" class="form-label">Bio</label>
@@ -8,9 +8,12 @@ let f nick bio request =
     </div>
     <button type="submit" class="btn btn-primary">Save</button>
   </form>
-
+  <br />
-    <img src="/user/<%s nick %>/avatar" class="img-thumbnail" alt="Your avatar picture">
+  <img src="/user/<%s nick %>/avatar" class="img-thumbnail" alt="Your avatar picture" />
+  <br />
+  <br />
   <%s! Dream.form_tag ~action:"/profile" ~enctype:`Multipart_form_data request %>
-      <input name="file" type="file">
+    <input name="file" type="file"><br />
-      <button>Submit!</button>
+    <br />
+    <button class="btn btn-primary">Submit picture!</button>
   </form>