Source file terminal_app_intf.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
open! Core

module type S = sig
  val run : mode:[ `Minimal | `Tui ] -> unit -> unit Lwt.t
  val command : argv:string array -> unit -> unit
end

module Make (App : Quickterface.App.S) : S = struct
  module Minimal_app = App (Minimal_terminal_io)
  module Tui_app = App (Tui_terminal_io)

  let run_minimal_app () =
    let io = Minimal_terminal_io.make () in
    Minimal_app.main ~io ()

  let run_tui_app () =
    let io = Tui_terminal_io.make () in
    let%lwt () = Tui_app.main ~io () in
    let%lwt () = Tui_terminal_io.output_text io "[Press any key to exit]" () in
    let%lwt () = Tui_terminal_io.input_any_key io () in
    Lwt.return ()

  let run ~mode =
    match mode with
    | `Tui -> run_tui_app
    | `Minimal -> run_minimal_app

  let command ~argv () =
    let open Cmdliner in
    let mode_term =
      let doc = "Mode to run the application in. Can be 'tui' or 'minimal'." in
      Arg.(
        value
        & opt (enum [ ("tui", `Tui); ("minimal", `Minimal) ]) `Tui
        & info [ "m"; "mode" ] ~docv:"MODE" ~doc)
    in

    let run_term =
      Term.(const (fun mode -> Lwt_main.run (run ~mode ())) $ mode_term)
    in

    let cmd =
      let doc = "Run the application" in
      let info = Cmd.info "app" ~doc in
      Cmd.v info run_term
    in

    exit (Cmd.eval ~argv cmd)
end