(** The [ogit] executable.

    Parses arguments and delegates to {!Ogit.Main.run}. [--git-project-root]
    overrides the configured repository root and is enough to run without any
    config file, which is what makes a bare [ogit --git-project-root .] usable
    for a quick look at a local checkout. *)

let usage = "Usage: ogit [--git-project-root <path>]"

let () =
  let git_project_root = ref None in
  let speclist =
    [
      ( "--git-project-root",
        Arg.String (fun path -> git_project_root := Some path),
        "<path> Root directory containing Git repositories" );
    ]
  in
  Arg.parse speclist (fun _ -> ()) usage;
  Ogit.Main.run ?git_project_root:!git_project_root ()