shinyoukai/kosuzu
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Migrate the codebase to the latest revision of Cmdliner

Browse Source 
Signed-off-by: Izuru Yakumo <yakumo.izuru@chaotic.ninja>

git-svn-id: file:///srv/svn/repo/kosuzu/trunk@66 eb64cd80-c68d-6f47-b6a3-0ada418499da
This commit is contained in:
yakumo.izuru
2024-08-21 01:37:05 +00:00
parent 3f090772ce
commit d310d041ce
17 changed files with 271 additions and 233 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
cli/txt.ml
View File

@@ -1,21 +1,31 @@
open Ocmd
let default_cmd =
let doc = "Discover, collect & exchange texts" in
let man = [ `S "CONTACT"; `P "<mailto:logarion-dev@chaotic.ninja>" ] in
Term.(ret (const (`Help (`Pager, None)))), Term.info "txt" ~version:"%%VERSION%%" ~doc ~man
open Cmdliner
let () = match Term.eval_choice default_cmd [
Authors.term;
Convert.term;
Edit.term;
File.term; File.unfile_term;
Index.term;
Last.term;
Listing.term;
New.term;
Peers.term;
Pull.term;
Read.term;
Recent.term;
Topics.term;
] with `Error _ -> exit 1 | _ -> exit 0
let subs = [
Authors.cmd; (* Done *)
Convert.cmd; (* Done *)
Edit.cmd; (* Done *)
File.cmd; (* Done *)
Index.cmd; (* Done *)
Last.cmd; (* Done *)
Listing.cmd; (* Done *)
New.cmd; (* Done *)
Peers.cmd; (* Done *)
Pull.cmd; (* Done *)
Read.cmd; (* Done *)
Recent.cmd; (* Done *)
Topics.cmd; (* Done *)
Unfile.cmd; (* Done *)
]
let default_cmd = Term.(ret (const (`Help (`Pager, None))))
let txt =
let doc = "Discover, collect and exchange texts" in
let man = [
`S "CONTACT";
`P "<mailto:logarion-dev@chaotic.ninja>"; ]
in
Cmd.group (Cmd.info "txt" ~version:"%%VERSION%%" ~doc ~man) ~default:default_cmd subs
let main () = exit (Cmd.eval txt)
let () = main ()