diff --git a/src/babillard_page.eml.html b/src/babillard_page.eml.html index b5cee28..0f2af1c 100644 --- a/src/babillard_page.eml.html +++ b/src/babillard_page.eml.html @@ -2,7 +2,7 @@ let f request = % let new_thread_button = % if Option.is_none @@ Dream.session "nick" request then -% Format.sprintf +% Format.sprintf % {|New Thread|} (Dream.to_percent_encoded "/") % else {||} % in @@ -18,38 +18,37 @@ let f request = <%s! new_thread_button %>
- -
- -
-

New thread

- +
+
+

New thread

+ Click the map and make a new thread: - -
-
+ +
+
<%s! Dream.form_tag ~action:"/" ~enctype:`Multipart_form_data request %> - - + + - - -
- - -
- - <%s! Format.asprintf "%a" Pp_babillard.pp_checkboxes () %> - -
- - -
- - -
- - + + +
+ + +
+ + <%s! Format.asprintf "%a" Pp_babillard.pp_checkboxes () %> + +
+ + +
+ + +
+ + +