|
Last change
on this file since 65 was 65, checked in by yakumo.izuru, 8 months ago |
|
Replace Cmdliner with Ocmd, re-add documentation
Signed-off-by: Izuru Yakumo <yakumo.izuru@…>
|
|
File size:
521 bytes
|
| Rev | Line | |
|---|
| [65] | 1 | open Ocmd
|
|---|
| [3] | 2 | let default_cmd =
|
|---|
| 3 | let doc = "Discover, collect & exchange texts" in
|
|---|
| [61] | 4 | let man = [ `S "CONTACT"; `P "<mailto:logarion-dev@chaotic.ninja>" ] in
|
|---|
| [65] | 5 | Term.(ret (const (`Help (`Pager, None)))), Term.info "txt" ~version:"%%VERSION%%" ~doc ~man
|
|---|
| [3] | 6 |
|
|---|
| 7 | let () = match Term.eval_choice default_cmd [
|
|---|
| 8 | Authors.term;
|
|---|
| 9 | Convert.term;
|
|---|
| [25] | 10 | Edit.term;
|
|---|
| [3] | 11 | File.term; File.unfile_term;
|
|---|
| 12 | Index.term;
|
|---|
| 13 | Last.term;
|
|---|
| 14 | Listing.term;
|
|---|
| 15 | New.term;
|
|---|
| [31] | 16 | Peers.term;
|
|---|
| [3] | 17 | Pull.term;
|
|---|
| [9] | 18 | Read.term;
|
|---|
| [17] | 19 | Recent.term;
|
|---|
| [3] | 20 | Topics.term;
|
|---|
| 21 | ] with `Error _ -> exit 1 | _ -> exit 0
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
