76 lines
2.3 KiB
OCaml
76 lines
2.3 KiB
OCaml
|
let log = Format.printf
|
||
|
|
|
||
|
|
(*change postImage class to make it bigger/smaller on click*)
|
||
|
|
let image_click post_image event =
|
||
|
|
log "image_click@.";
|
||
|
|
let current_class =
|
||
|
|
Jv.to_string @@ Jv.call post_image "getAttribute" [| Jv.of_string "class" |]
|
||
|
|
in
|
||
|
|
let new_class =
|
||
|
|
match current_class with
|
||
|
|
| "postImage" -> "postImageBig"
|
||
|
|
| "postImageBig" -> "postImage"
|
||
|
|
| _ -> failwith "invalid image class name"
|
||
|
|
in
|
||
|
|
ignore
|
||
|
|
@@ Jv.call post_image "setAttribute"
|
||
|
|
[| Jv.of_string "class"; Jv.of_string new_class |];
|
||
|
|
(*prevent opening image in new tab*)
|
||
|
|
ignore @@ Jv.call event "preventDefault" [||];
|
||
|
|
()
|
||
|
|
|
||
|
|
let render_time date_span =
|
||
|
|
log "render time@.";
|
||
|
|
let unix_time =
|
||
|
|
float_of_int
|
||
|
|
(Jv.to_int
|
||
|
|
(Jv.call date_span "getAttribute" [| Jv.of_string "data-time" |]) )
|
||
|
|
in
|
||
|
|
(*use float because int overflow*)
|
||
|
|
let time_millisecs = 1000.0 *. unix_time in
|
||
|
|
let date_constructor = Jv.get Jv.global "Date" in
|
||
|
|
let date = Jv.new' date_constructor [| Jv.of_float time_millisecs |] in
|
||
|
|
let year = Jv.to_int @@ Jv.call date "getFullYear" [||] in
|
||
|
|
(*the month is 0-indexed*)
|
||
|
|
let month = (Jv.to_int @@ Jv.call date "getMonth" [||]) + 1 in
|
||
|
|
let day = Jv.to_int @@ Jv.call date "getDate" [||] in
|
||
|
|
let hour = Jv.to_int @@ Jv.call date "getHours" [||] in
|
||
|
|
let min = Jv.to_int @@ Jv.call date "getMinutes" [||] in
|
||
|
|
let date_string =
|
||
|
|
Format.sprintf "%02d-%02d-%02d %02d:%02d" year month day hour min
|
||
|
|
in
|
||
|
|
ignore @@ Jv.set date_span "innerHTML" (Jv.of_string date_string);
|
||
|
|
()
|
||
|
|
|
||
|
|
let make_pretty _ =
|
||
|
|
log "make pretty@.";
|
||
|
|
let document = Jv.get Jv.global "document" in
|
||
|
|
|
||
|
|
let times =
|
||
|
|
Jv.to_jv_list
|
||
|
|
@@ Jv.call document "getElementsByClassName" [| Jv.of_string "date" |]
|
||
|
|
in
|
||
|
|
List.iter render_time times;
|
||
|
|
|
||
|
|
(*add event image_click to all postImage*)
|
||
|
|
let post_images =
|
||
|
|
Jv.to_jv_list
|
||
|
|
@@ Jv.call document "getElementsByClassName" [| Jv.of_string "postImage" |]
|
||
|
|
in
|
||
|
|
let add_click el =
|
||
|
|
ignore
|
||
|
|
@@ Jv.call el "addEventListener"
|
||
|
|
[| Jv.of_string "click"; Jv.repr (image_click el) |]
|
||
|
|
in
|
||
|
|
List.iter add_click post_images;
|
||
|
|
()
|
||
|
|
|
||
|
|
(*make pretty after page load*)
|
||
|
|
let () =
|
||
|
|
log "add load eventlistener to make pretty@.";
|
||
|
|
let window = Jv.get Jv.global "window" in
|
||
|
|
ignore
|
||
|
|
@@ Jv.call window "addEventListener"
|
||
|
|
[| Jv.of_string "load"; Jv.repr make_pretty |];
|
||
|
|
()
|