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

autofocus textarea

Browse source
This commit is contained in:
Swrup 2022-04-18 03:21:56 +02:00
parent f73e220176
commit a91c50c428
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/js/babillard.ml
View file

@ -5,6 +5,8 @@ open Map
module Visibility = struct
let new_thread_div = find_by_id "new-thread"
let thread_comment = find_by_id "thread-comment"
let thread_preview_div = find_by_id "thread-preview"
let return_button = find_by_id "return-button"
@ -29,6 +31,7 @@ module Visibility = struct
set_visible return_button;
set_invisible thread_preview_div;
Option.iter set_invisible new_thread_button;
El.set_has_focus true thread_comment;
Leaflet.Map.close_popup ~popup:None map
let to_babillard_mode _event =