diff --git a/Makefile b/Makefile index f803e11..8d97c88 100644 --- a/Makefile +++ b/Makefile @@ -10,7 +10,7 @@ LD=cc all: @dune build deps: - @opam install dune ocurl cmdliner=1.0.4 msgpck + @opam install dune ocurl cmdliner msgpck cli: @dune build cli/txt.exe clean: @@ -19,7 +19,7 @@ dist: @dune build @cp _build/default/cli/txt.exe txt.exe @strip txt.exe - @tar czvf "kosuzu-${OS}-${MACHINE}-${DATE}-${COMMIT}" txt.exe readme.txt + @tar czvf "logarion-${OS}-${MACHINE}-${DATE}-${COMMIT}" txt.exe readme.txt @rm txt.exe install: @dune install --prefix ${PREFIX} diff --git a/cli/edit.ml b/cli/edit.ml index 2b6d3ec..9342eff 100644 --- a/cli/edit.ml +++ b/cli/edit.ml @@ -14,7 +14,9 @@ let cmd = let man = [ `S Manpage.s_description; `P "Launches EDITOR (nano if environment variable is unset) with text path as parameter."; - `P "If -R is used, the ID search space includes texts found in subdirectories, too." ] + `P "If -R is used, the ID search space includes texts found in subdirectories, too."; + `S Manpage.s_environment; + `P "EDITOR - Default editor name" ] in let info = Cmd.info "edit" ~version:"%%VERSION%%" ~doc ~man in Cmd.v info edit_t diff --git a/cli/new.ml b/cli/new.ml index 2e75d60..46ac22b 100644 --- a/cli/new.ml +++ b/cli/new.ml @@ -23,7 +23,10 @@ let cmd = let doc = "Create a new article" in let man = [ `S Manpage.s_description; - `P "Create a new article, with title 'Draft' when none provided" ] + `P "Create a new article, with title 'Draft' when none provided"; + `S Manpage.s_environment; + `P "USER - The login name of the user, used if the Authors field is blank"; + `P "EDITOR - Default editor name" ] in let info = Cmd.info "new" ~version:"%%VERSION%%" ~doc ~man in Cmd.v info new_t diff --git a/cli/txt.ml b/cli/txt.ml index 613bbf2..df8677f 100644 --- a/cli/txt.ml +++ b/cli/txt.ml @@ -1,19 +1,19 @@ open Cmdliner 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 *) - Recent.cmd; (* Done *) - Topics.cmd; (* Done *) - Unfile.cmd; (* Done *) + Authors.cmd; + Convert.cmd; + Edit.cmd; + File.cmd; + Index.cmd; + Last.cmd; + Listing.cmd; + New.cmd; + Peers.cmd; + Pull.cmd; + Recent.cmd; + Topics.cmd; + Unfile.cmd; ] let default_cmd = Term.(ret (const (`Help (`Pager, None)))) @@ -21,8 +21,11 @@ let default_cmd = Term.(ret (const (`Help (`Pager, None)))) let txt = let doc = "Discover, collect and exchange texts" in let man = [ - `S "CONTACT"; - `P ""; ] + `S Manpage.s_authors; + `P "orbifx "; + `P "Izuru Yakumo "; + `S Manpage.s_bugs; + `P "Please report them at "; ] in Cmd.group (Cmd.info "txt" ~version:"%%VERSION%%" ~doc ~man) ~default:default_cmd subs diff --git a/logarion.opam b/logarion.opam index a77d523..407854d 100644 --- a/logarion.opam +++ b/logarion.opam @@ -1,6 +1,6 @@ # This file is generated by dune, edit dune-project instead opam-version: "2.0" -version: "1.4.0" +version: "1.4.1" synopsis: "Texts archival and exchange" maintainer: ["Izuru Yakumo "] authors: ["orbifx "]