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

use pp_print_list and improve code cleanliness

Browse source
This commit is contained in:
Swrup 2022-01-14 13:23:45 +01:00
parent 4f0f78cae5
commit fe9afe325f
4 changed files with 71 additions and 85 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/newthread_page.eml.html
View file

@ -1,6 +1,7 @@
let f ~board request =
<script type="text/javascript" src="/assets/js/js_babillard.js" defer="defer"></script>
<%s! Dream.form_tag ~action:(Format.sprintf "/%s/new_thread" (Babillard.string_of_board board)) ~enctype:`Multipart_form_data request %>
%let url = Format.asprintf "/%a/new_thread" Babillard.pp_board board in
<%s! Dream.form_tag ~action:url ~enctype:`Multipart_form_data request %>
<input type="hidden" id="lat_input" name="lat_input">
<input type="hidden" id="lng_input" name="lng_input">