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

clean babillard, remove option for multiple boards

Browse source
This commit is contained in:
Swrup 2022-02-17 03:59:23 +01:00
parent 995df439a7
commit 812133d0ad
8 changed files with 104 additions and 166 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/newthread_page.eml.html
View file

@ -1,13 +1,10 @@
let f ~board request =
%let board = Format.asprintf "%a" Babillard.pp_board board in
%let url = Format.sprintf "/%s/new_thread" board in
let f request =
% begin match Dream.session "nick" request with
% | None ->
Login to make a new thread.
% | Some _nick ->
<script type="text/javascript" src="/assets/js/js_newthread.js" defer="defer"></script>
<div id="newthread">Click the map to make a new thread:</div>
<div id="board" data-board=<%s board %> ></div>
<div class="row mb-3">
<div class="col-md-6">
<div id="map"></div>
@ -16,7 +13,7 @@ Login to make a new thread.
<div class="col-md-6" id="newthread-form">
<div class="postForm">
<%s! Dream.form_tag ~action:url ~enctype:`Multipart_form_data request %>
<%s! Dream.form_tag ~action:"/babillard/new_thread" ~enctype:`Multipart_form_data request %>
<input type="hidden" id="lat_input" name="lat_input">
<input type="hidden" id="lng_input" name="lng_input">