kumikode/leaflet
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

better Ev

Browse source
This commit is contained in:
Swrup 2022-04-07 19:04:33 +02:00
parent 2d8301bdfd
commit d99eafccbf
2 changed files with 83 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

33
src/ev.ml
View file

@ -1,12 +1,31 @@
type t = Jv.t
module Make () = struct
type t = Jv.t
module Event = struct
(*type for simple Event *)
type nonrec t = t
end
let type' e = Jv.get e "type" |> Jv.to_string
module Mouse = struct
type nonrec t = t
let target e = Jv.get e "target" |> Brr.Ev.target_of_jv
let source_target e = Jv.get e "sourceTarget" |> Brr.Ev.target_of_jv
let propagated_from e = Jv.get e "propagatedFrom"
let latlng e = Latlng.of_jv_t @@ Jv.get e "latlng"
let layer_point e = Jv.get e "layerPoint"
let container_point e = Jv.get e "containerPoint"
let original_event e = Jv.get e "originalEvent"
let message e = Jv.get e "message" |> Jv.to_string
let code e = Jv.get e "code" |> Jv.to_int
end
module Event = Make ()
module Keyboard = Make ()
module Mouse = Make ()
module Error = Make ()