20 lines
525 B
HTML
20 lines
525 B
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>
|