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

add thumbnail

Browse source
This commit is contained in:
Swrup 2022-03-15 00:12:36 +01:00
parent c285e23bc5
commit 9ba542304a
5 changed files with 87 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/js/js_pretty_post.ml
View file

@ -21,13 +21,24 @@ let image_click post_image event =
in
let new_class =
match of_string current_class with
| Some image_size ->
to_string (match image_size with Big -> Small | Small -> Big)
| Some image_size -> ( match image_size with Big -> Small | Small -> Big )
| None -> failwith "invalid image class name"
in
ignore
@@ Jv.call post_image "setAttribute"
[| Jv.of_string "class"; Jv.of_string new_class |];
[| Jv.of_string "class"; Jv.of_string (to_string new_class) |];
let id =
Jv.to_string
@@ Jv.call post_image "getAttribute" [| Jv.of_string "data-id" |]
in
let src =
match new_class with
| Small -> Format.sprintf "/img/s/%s" id
| Big -> Format.sprintf "/img/%s" id
in
ignore
@@ Jv.call post_image "setAttribute"
[| Jv.of_string "src"; Jv.of_string src |];
(*prevent redirect to /img/:img*)
ignore @@ Jv.call event "preventDefault" [||];
ignore @@ Jv.call event "stopPropagation" [||]