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

more fixes

Browse source
This commit is contained in:
Swrup 2022-02-18 03:22:24 +01:00
parent 8ec7533db1
commit 01e62889e2
4 changed files with 20 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/js/dune
View file

@ -8,7 +8,7 @@
(library
(name js_pretty_post)
(modules js_pretty_post)
(libraries js_of_ocaml brr)
(libraries js_of_ocaml brr unix)
(preprocess
(pps js_of_ocaml-ppx)))

20
src/js/js_pretty_post.ml
View file

@ -31,25 +31,17 @@ let image_click post_image event =
let render_time date_span =
log "render time@.";
let unix_time =
let t =
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
let t = Unix.localtime t in
let date =
Format.sprintf "%02d-%02d-%02d %02d:%02d" (1900 + t.tm_year) (1 + t.tm_mon)
t.tm_mday t.tm_hour t.tm_min
in
ignore @@ Jv.set date_span "innerHTML" (Jv.of_string date_string)
ignore @@ Jv.set date_span "innerHTML" (Jv.of_string date)
let make_pretty _ =
log "make pretty@.";