diff options
Diffstat (limited to 'src/audio.ml')
| -rw-r--r-- | src/audio.ml | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/audio.ml b/src/audio.ml new file mode 100644 index 0000000..f7358a7 --- /dev/null +++ b/src/audio.ml @@ -0,0 +1,13 @@ +type audio + +external create : string -> audio = "Audio" [@@bs.new] + +external play : audio -> unit = "play" [@@bs.send] + +external currentTime : audio -> int = "currentTime" [@@bs.get] + +external setCurrentTime : audio -> int -> unit = "currentTime" [@@bs.set] + +let playOrReplay audio = + let () = if currentTime audio > 0 then setCurrentTime audio 0 else () in + play audio |