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

fix

Browse source
This commit is contained in:
Swrup 2022-02-23 14:30:06 +01:00
parent dec7d3f7fe
commit 277f0edad0
8 changed files with 88 additions and 86 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/js/js_pretty_post.ml
View file

@ -11,6 +11,8 @@ let of_string = function
let to_string = function Small -> "post-image" | Big -> "post-image-big"
let document = Jv.get Jv.global "document"
(*change postImage class to make it bigger/smaller on click*)
let image_click post_image event =
log "image_click@\n";
@ -33,9 +35,8 @@ let image_click post_image event =
let render_time date_span =
log "render time@\n";
let t =
float_of_int
(Jv.to_int
(Jv.call date_span "getAttribute" [| Jv.of_string "data-time" |]) )
Jv.to_float
(Jv.call date_span "getAttribute" [| Jv.of_string "data-time" |])
in
let t = Unix.localtime t in
let date =
@ -46,7 +47,6 @@ let render_time date_span =
let make_pretty _event =
log "make pretty@\n";
let document = Jv.get Jv.global "document" in
let times =
Jv.to_jv_list