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

fix bug with editing textarea

Browse source
This commit is contained in:
Swrup 2022-05-18 22:59:35 +02:00
parent 778a03ae88
commit b8a6971363
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/js/post_form.ml
View file

@ -13,15 +13,15 @@ let insert_quote el _event =
match find_by_id_opt "comment" with
| None -> log "element `comment` not found, not logged in?@\n"
| Some textarea ->
let inner_html = El.Prop.jstr (Jstr.of_string "innerHTML") in
let content = Jstr.to_string @@ El.prop inner_html textarea in
let value = El.Prop.value in
let content = Jstr.to_string @@ El.prop value textarea in
let new_content =
if String.ends_with ~suffix:"\n" content || String.length content = 0 then
(* don't skip a line *)
Format.sprintf "%s[>%s] " content emojid
else Format.sprintf "%s@\n[>%s] " content emojid
in
El.set_prop inner_html (Jstr.of_string new_content) textarea;
El.set_prop value (Jstr.of_string new_content) textarea;
El.set_has_focus true textarea
(* make image description field visible when a file is selected*)