geochan/src/babillard_page.eml.html

let f request =
<script type="text/javascript" src="/assets/js/js_babillard.js" defer="defer"></script>
<div id="board" boardvalue="babillard">
<%s  Format.sprintf "Babillard is love" %>
</div>
<div class="row mb-3">
      <div class="col-md-6">
% begin match Dream.session "nick" request with
% | None ->

% | Some _nick ->
<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>