src/main.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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