From abb70caabda7d82857c2d0ffdd39759b110207ab Mon Sep 17 00:00:00 2001
From: zapashcanon <leo@ndrs.fr>
Date: Fri, 18 Feb 2022 02:39:25 +0100
Subject: [PATCH] make things pretty

---
 src/babillard_page.eml.html |  6 ++---
 src/newthread_page.eml.html | 52 ++++++++++++++++++++-----------------
 src/user.ml                 | 14 ++++++++--
 src/user_profile.eml.html   | 33 ++++++++++++-----------
 4 files changed, 61 insertions(+), 44 deletions(-)

diff --git a/src/babillard_page.eml.html b/src/babillard_page.eml.html
index aa81d58..47954df 100644
--- a/src/babillard_page.eml.html
+++ b/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>
diff --git a/src/newthread_page.eml.html b/src/newthread_page.eml.html
index 97dade9..b3e1d82 100644
--- a/src/newthread_page.eml.html
+++ b/src/newthread_page.eml.html
@@ -1,39 +1,43 @@
 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>
-<div class="row mb-3">
+  <script type="text/javascript" src="/assets/js/js_newthread.js" defer="defer"></script>
+  <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>
+      <div id="map"></div>
+      <br />
+      <button class="btn btn-primary" onclick="geolocalize()">Geolocalize me</button>
     </div>
-
     <div class="col-md-6" id="newthread-form">
-    <div class="postForm">
+      <div class="postForm">
 <%s! Dream.form_tag ~action:"/babillard/new_thread" ~enctype:`Multipart_form_data request %>
-        <input type="hidden" id="lat_input" name="lat_input">
-        <input type="hidden" id="lng_input" name="lng_input">
+          <input type="hidden" id="lat_input" name="lat_input">
+          <input type="hidden" id="lng_input" name="lng_input">
 
-        <label for="subject" id="subjectLabel" class="form-label">Subject</label>
-        <input name="subject" type="text" class="form-control" id="subject" aria-labelledby="subjectLabel"></input>
+          <label for="subject" id="subjectLabel" class="form-label">Subject</label>
+          <input name="subject" type="text" class="form-control" id="subject" aria-labelledby="subjectLabel"></input>
 
-        <label for="threadComment" id="threadCommentLabel" class="form-label">Comment</label>
-        <textarea name="threadComment" type="text" class="form-control" id="threadComment" aria-labelledby="threadCommentLabel"></textarea>
+          <label for="threadComment" id="threadCommentLabel" class="form-label">Comment</label>
+          <textarea name="threadComment" type="text" class="form-control" id="threadComment" aria-labelledby="threadCommentLabel"></textarea>
 
-        <label for="tags" id="tagsLabel" class="form-label">Tags</label>
-        <input name="tags" type="text" class="form-control" id="tags" aria-labelledby="tagsLabel"></input>
+          <label for="tags" id="tagsLabel" class="form-label">Tags</label>
+          <input name="tags" type="text" class="form-control" id="tags" aria-labelledby="tagsLabel"></input>
 
-        <label for="file" id="fileLabel" class="form-label">Picture:</label>
-        <input id="file" name="file" aria-describedby="fileLabel" type="file" accept="image/*">
+          <label for="file" id="fileLabel" class="form-label">Picture:</label>
+          <input id="file" name="file" aria-describedby="fileLabel" type="file" accept="image/*">
 
-        <label for="alt" id="altLabel" class="form-label">Image description:</label>
-        <input name="alt" type="text" class="form-control" id="alt" aria-labelledby="altLabel"></input>
-      <button type="submit" class="btn btn-primary">Make Thread</button>
-</form>
+          <label for="alt" id="altLabel" class="form-label">Image description:</label>
+          <input name="alt" type="text" class="form-control" id="alt" aria-labelledby="altLabel"></input>
+          <button type="submit" class="btn btn-primary">Make Thread</button>
+        </form>
+      </div>
     </div>
-    </div>
-</div>
+  </div>
 % end;
diff --git a/src/user.ml b/src/user.ml
index 791b78d..71d5078 100644
--- a/src/user.ml
+++ b/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
diff --git a/src/user_profile.eml.html b/src/user_profile.eml.html
index 61f828c..7fbe438 100644
--- a/src/user_profile.eml.html
+++ b/src/user_profile.eml.html
@@ -1,16 +1,19 @@
 let f nick bio request =
-<%s  Format.sprintf "Hello %s !" nick %>
-    <%s! Dream.form_tag ~action:"/profile" request %>
-      <div class="mb-3">
-        <label for="bio" class="form-label">Bio</label>
-        <textarea name="bio" type="text" class="form-control" id="bio" aria-describedby="bioHelp"><%s bio %></textarea>
-        <div id="bioHelp" class="form-text">Who are you?</div>
-      </div>
-      <button type="submit" class="btn btn-primary">Save</button>
-    </form>
-
-    <img src="/user/<%s nick %>/avatar" class="img-thumbnail" alt="Your avatar picture">
-    <%s! Dream.form_tag ~action:"/profile" ~enctype:`Multipart_form_data request %>
-      <input name="file" type="file">
-      <button>Submit!</button>
-    </form>
+  <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>
+      <textarea name="bio" type="text" class="form-control" id="bio" aria-describedby="bioHelp"><%s bio %></textarea>
+      <div id="bioHelp" class="form-text">Who are you?</div>
+    </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" />
+  <br />
+  <br />
+  <%s! Dream.form_tag ~action:"/profile" ~enctype:`Multipart_form_data request %>
+    <input name="file" type="file"><br />
+    <br />
+    <button class="btn btn-primary">Submit picture!</button>
+  </form>