26 lines
1.2 KiB
HTML
26 lines
1.2 KiB
HTML
let f thread_view thread_id request =
|
|
<script type="text/javascript" src="/assets/js/js_thread.js" defer="defer"></script>
|
|
<%s! thread_view %>
|
|
% begin match Dream.session "nick" request with
|
|
% | None ->
|
|
|
|
% | Some _ ->
|
|
<div class="post-form">
|
|
<%s! Dream.form_tag ~action:( Format.sprintf "/thread/%s" thread_id)
|
|
~enctype:`Multipart_form_data request %>
|
|
|
|
<label for="reply-comment" id="reply-comment-label" class="form-label">Comment:</label>
|
|
<textarea name="reply-comment" type="text" class="form-control" id="reply-comment" aria-labelledby="reply-comment-label"></textarea>
|
|
|
|
<label for="tags" id="tags-label" class="form-label">Tags:</label>
|
|
<input name="tags" type="text" class="form-control" id="tags" aria-labelledby="tags-label"></input>
|
|
|
|
<label for="file" id="file-label" class="form-label">Picture:</label>
|
|
<input id="file" name="file" aria-describedby="file-label" type="file" accept="image/*">
|
|
|
|
<label for="alt" id="alt-label" class="form-label">Image description:</label>
|
|
<input name="alt" type="text" class="form-control" id="alt" aria-labelledby="alt-label"></input>
|
|
<button type="submit" class="btn btn-primary">Reply</button>
|
|
</div>
|
|
</form>
|
|
% end;
|