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

fmt

Browse source
This commit is contained in:
zapashcanon 2022-02-18 02:40:04 +01:00
parent abb70caabd
commit 47753368e3
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
7 changed files with 41 additions and 127 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/js/js_pretty_post.ml
View file

@ -9,9 +9,7 @@ let of_string = function
| "postImageBig" -> Some Big
| _ -> None
let to_string = function
| Small -> "postImage"
| Big -> "postImageBig"
let to_string = function Small -> "postImage" | Big -> "postImageBig"
(*change postImage class to make it bigger/smaller on click*)
let image_click post_image event =
@ -22,10 +20,7 @@ let image_click post_image event =
let new_class =
match of_string current_class with
| Some image_size ->
to_string
( match image_size with
| Big -> Small
| Small -> Big )
to_string (match image_size with Big -> Small | Small -> Big)
| None -> failwith "invalid image class name"
in
ignore