From 25afb0bde9b8a2c064135a534231c232a461b341 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 16 Feb 2020 22:45:07 +0100
Subject: Set up a first version of tabata timer

---
 src/main.ml | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 src/main.ml

(limited to 'src/main.ml')

diff --git a/src/main.ml b/src/main.ml
new file mode 100644
index 0000000..e399e3b
--- /dev/null
+++ b/src/main.ml
@@ -0,0 +1,18 @@
+let onTimerStart () =
+  Animation.start
+    ~onHidden:(fun () ->
+      let () = Config.hide () in
+      let () = Timer.init () in
+      Timer.show ())
+    ~onEnded:Timer.start
+
+let onTimerStop () =
+  Animation.start
+    ~onHidden:(fun () ->
+      let () = Timer.hide () in
+      Config.show ())
+    ~onEnded:(fun () -> ())
+
+let () =
+  let () = Config.setup onTimerStart in
+  Timer.setup onTimerStop
-- 
cgit v1.2.3