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

remove camelCase

Browse source
This commit is contained in:
Swrup 2022-02-18 20:17:24 +01:00
parent e25a0891de
commit b6d31f47cf
9 changed files with 57 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/js/js_newthread.ml
View file

@ -15,8 +15,8 @@ let on_click e =
let lat = Jv.get lat_lng "lat" in
let lng = Jv.get lat_lng "lng" in
let lat_input = Jv.get Jv.global "lat_input" in
let lng_input = Jv.get Jv.global "lng_input" in
let lat_input = Jv.get Jv.global "lat-input" in
let lng_input = Jv.get Jv.global "lng-input" in
ignore @@ Jv.call lat_input "setAttribute" [| Jv.of_string "value"; lat |];
ignore @@ Jv.call lng_input "setAttribute" [| Jv.of_string "value"; lng |];

6
src/js/js_post_form.ml
View file

@ -12,7 +12,7 @@ let insert_quote post_id _event =
[| Jv.of_string "\n>>"; post_id; Jv.of_string " " |]
in
ignore @@ Jv.set comment_textarea "value" new_content )
Jv.(find global "replyComment");
Jv.(find global "reply-comment");
Jv.undefined
let () =
@ -20,7 +20,7 @@ let () =
let document = Jv.get Jv.global "document" in
let quote_links =
Jv.to_jv_list
@@ Jv.call document "getElementsByClassName" [| Jv.of_string "quoteLink" |]
@@ Jv.call document "getElementsByClassName" [| Jv.of_string "quote-link" |]
in
log "quote_links leng %d@." (List.length quote_links);
let add_click quote_link =
@ -43,7 +43,7 @@ let () =
Option.iter
(fun file_input ->
let alt_input = Jv.get Jv.global "alt" in
let alt_label = Jv.get Jv.global "altLabel" in
let alt_label = Jv.get Jv.global "alt-label" in
ignore
@@ Jv.call file_input "addEventListener"
[| Jv.of_string "change"; Jv.repr (make_visible alt_input) |];

8
src/js/js_pretty_post.ml
View file

@ -5,11 +5,11 @@ type image_size =
| Small
let of_string = function
| "postImage" -> Some Small
| "postImageBig" -> Some Big
| "post-image" -> Some Small
| "post-image-big" -> Some Big
| _ -> None
let to_string = function Small -> "postImage" | Big -> "postImageBig"
let to_string = function Small -> "post-image" | Big -> "post-image-big"
(*change postImage class to make it bigger/smaller on click*)
let image_click post_image event =
@ -56,7 +56,7 @@ let make_pretty _event =
(*add event image_click to all postImage*)
let post_images =
Jv.to_jv_list
@@ Jv.call document "getElementsByClassName" [| Jv.of_string "postImage" |]
@@ Jv.call document "getElementsByClassName" [| Jv.of_string "post-image" |]
in
let add_click el =
ignore