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

fix

Browse source
This commit is contained in:
Swrup 2022-02-27 19:58:32 +01:00
parent bff747b4ca
commit 048f77098b
5 changed files with 24 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/js/js_post_form.ml
View file

@ -10,7 +10,7 @@ let insert_quote post_id _event =
let new_content =
if String.ends_with ~suffix:"\n" content || String.length content = 0
then Format.sprintf "%s>>%s " content post_id
else Format.sprintf "%s\n>>%s " content post_id
else Format.sprintf "%s@\n>>%s " content post_id
in
ignore @@ Jv.set textarea "value" (Jv.of_string new_content) )
Jv.(find global "reply-comment")