|
Last change
on this file since 46 was 31, checked in by fox, 2 years ago |
|
Introduce 'peers' subcommand, refactor in pull
|
|
File size:
575 bytes
|
| Rev | Line | |
|---|
| [3] | 1 | let version = "%%VERSION%%"
|
|---|
| 2 |
|
|---|
| 3 | open Cmdliner
|
|---|
| 4 | let default_cmd =
|
|---|
| 5 | let doc = "Discover, collect & exchange texts" in
|
|---|
| [25] | 6 | let man = [ `S "Contact"; `P "<mailto:logarion@lists.tildeverse.org?subject=Logarion>" ] in
|
|---|
| [3] | 7 | Term.(ret (const (`Help (`Pager, None)))), Term.info "txt" ~version ~doc ~man
|
|---|
| 8 |
|
|---|
| 9 | let () = match Term.eval_choice default_cmd [
|
|---|
| 10 | Authors.term;
|
|---|
| 11 | Convert.term;
|
|---|
| [25] | 12 | Edit.term;
|
|---|
| [3] | 13 | File.term; File.unfile_term;
|
|---|
| 14 | Index.term;
|
|---|
| 15 | Last.term;
|
|---|
| 16 | Listing.term;
|
|---|
| 17 | New.term;
|
|---|
| [31] | 18 | Peers.term;
|
|---|
| [6] | 19 | Publish.term;
|
|---|
| [3] | 20 | Pull.term;
|
|---|
| [9] | 21 | Read.term;
|
|---|
| [17] | 22 | Recent.term;
|
|---|
| [3] | 23 | Topics.term;
|
|---|
| 24 | ] with `Error _ -> exit 1 | _ -> exit 0
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
