swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

make things pretty

Browse source
This commit is contained in:
zapashcanon 2022-02-18 02:39:25 +01:00
parent a5eeb32fbe
commit abb70caabd
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
4 changed files with 61 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/babillard_page.eml.html
View file

@ -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>