|
Last change
on this file since 14 was 9, checked in by fox, 3 years ago |
|
Txt read & optional path printing for txt list
|
|
File size:
524 bytes
|
| Rev | Line | |
|---|
| [3] | 1 | let version = "%%VERSION%%"
|
|---|
| 2 |
|
|---|
| 3 | open Cmdliner
|
|---|
| 4 | let default_cmd =
|
|---|
| 5 | let doc = "Discover, collect & exchange texts" in
|
|---|
| 6 | let man = [ `S "Contact"; `P "<mailto:fox@orbitalfox.eu?subject=Logarion>" ] in
|
|---|
| 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;
|
|---|
| 12 | File.term; File.unfile_term;
|
|---|
| 13 | Index.term;
|
|---|
| 14 | Last.term;
|
|---|
| 15 | Listing.term;
|
|---|
| 16 | New.term;
|
|---|
| [6] | 17 | Publish.term;
|
|---|
| [3] | 18 | Pull.term;
|
|---|
| [9] | 19 | Read.term;
|
|---|
| [3] | 20 | Topics.term;
|
|---|
| 21 | ] with `Error _ -> exit 1 | _ -> exit 0
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
