mirror of
https://github.com/chshersh/github-tui.git
synced 2024-08-16 22:10:34 +03:00
27 lines
742 B
OCaml
27 lines
742 B
OCaml
open Cmdliner
|
|
|
|
let repo_arg =
|
|
let doc = "The GitHub repository to view in TUI." in
|
|
Arg.(value & pos 0 string "NOT_SPECIFIED" & info [] ~docv:"OWNER/REPO" ~doc)
|
|
|
|
let path_arg =
|
|
let doc = "Path to a local directory of a GitHub repository" in
|
|
Arg.(
|
|
value
|
|
& opt (some string) None
|
|
& info [ "d"; "directory" ] ~docv:"DIRECTORY_PATH" ~doc)
|
|
|
|
let run repo local_path = Tui.start ~repo ~local_path
|
|
let gh_tui_term = Term.(const run $ repo_arg $ path_arg)
|
|
|
|
let cmd =
|
|
let doc = "TUI of a GitHub repository" in
|
|
let man =
|
|
[
|
|
`S Manpage.s_bugs;
|
|
`P "Submit bug reports at: https://github.com/chshersh/github-tui/issues";
|
|
]
|
|
in
|
|
let info = Cmd.info "gh-tui" ~version:"0.1.0" ~doc ~man in
|
|
Cmd.v info gh_tui_term
|