2022-02-17 03:59:23 +01:00
|
|
|
let f request =
|
2022-02-20 18:13:07 +01:00
|
|
|
|
|
|
|
|
% let new_thread_url =
|
|
|
|
|
% if Option.is_none @@ Dream.session "nick" request then
|
2022-02-20 18:37:24 +01:00
|
|
|
% Format.sprintf "/login?redirect=%s" (Dream.to_percent_encoded "/new_thread")
|
2022-02-20 18:13:07 +01:00
|
|
|
% else "/new_thread"
|
|
|
|
|
% in
|
2022-02-18 02:04:57 +01:00
|
|
|
<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 />
|
2022-02-18 18:31:55 +01:00
|
|
|
<button class="btn btn-primary" id="geolocalize">Geolocalize me</button>
|
2022-02-20 18:13:07 +01:00
|
|
|
<a class="btn btn-primary" href="<%s! new_thread_url %>">New Thread</a>
|
2022-02-18 02:04:57 +01:00
|
|
|
</div>
|
|
|
|
|
<div class="col-md-6">
|
|
|
|
|
<div id="thread_preview_div"></div>
|
|
|
|
|
<a id="thread_link"></a>
|
|
|
|
|
</div>
|
|
|
|
|
</div>
|