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

add all event from ocaml

Browse source
This commit is contained in:
Swrup 2022-02-18 18:31:55 +01:00
parent c18af91a9f
commit 5785252c7f
8 changed files with 52 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/babillard_page.eml.html
View file

@ -6,7 +6,7 @@ let f request =
<div class="col-md-6">
<div id="map"></div>
<br />
<button class="btn btn-primary" onclick="geolocalize()">Geolocalize me</button>
<button class="btn btn-primary" id="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;