geochan/src/babillard_page.eml.html

let f request =
  <script type="text/javascript" src="/assets/js/js_babillard.js" defer="defer"></script>
  <h1>Babillard is love ❤️</h1>
  <br />
  <div class="row mb-3">
    <div class="col-md-6">
      <div id="map"></div>
      <br />
      <button class="btn btn-primary" id="geolocalize">Geolocalize me</button>
% begin match Dream.session "nick" request with
% | None ->
% let redirect = Dream.to_percent_encoded "/new_thread" in
% ()
<a class="btn btn-primary" href="/login?redirect=<%s redirect%>">New Thread</a>
% | Some _ ->
      <a class="btn btn-primary" href="/new_thread">New Thread</a>
    </div>
    <div class="col-md-6">
      <div id="thread_preview_div"></div>
      <a id="thread_link"></a>
    </div>
  </div>
% end;