From 221b6451fb4f8559a10e7fefebd13ce125ef29d0 Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 13 May 2021 14:50:51 +0200
Subject: Rewrite in TypeScript

BuckleScript is no longer maintained. Choose a widely used techno that
will still be maintained in the following years.
---
 src/audio.ml | 34 ----------------------------------
 1 file changed, 34 deletions(-)
 delete mode 100644 src/audio.ml

(limited to 'src/audio.ml')

diff --git a/src/audio.ml b/src/audio.ml
deleted file mode 100644
index 1446440..0000000
--- a/src/audio.ml
+++ /dev/null
@@ -1,34 +0,0 @@
-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
-
-(* Sounds *)
-
-let c3 = create "sounds/c3.mp3"
-
-let c4 = create "sounds/c4.mp3"
-
-let c5 = create "sounds/c5.mp3"
-
-(* Play from step *)
-
-let playFromStep (config: Config.config) (step : Step.state) =
-  match step.step with
-  | Step.Prepare when step.remaining == config.prepare ->
-      playOrReplay c3
-  | Step.Work when step.remaining == config.work ->
-      playOrReplay c5
-  | Step.Rest when step.remaining == config.rest ->
-      playOrReplay c3
-  | Step.End -> playOrReplay c3
-  | _ -> if step.remaining <= 3 then playOrReplay c4 else ()
-- 
cgit v1.2.3