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

Update inline documentation

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

git-svn-id: file:///srv/svn/repo/kosuzu/trunk@68 eb64cd80-c68d-6f47-b6a3-0ada418499da
This commit is contained in:
yakumo.izuru
2024-08-21 02:15:27 +00:00
parent c6c66adf74
commit eef10b21e7
5 changed files with 28 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
cli/edit.ml
View File

@@ -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

5
cli/new.ml
View File

@@ -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

33
cli/txt.ml
View File

@@ -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 "<mailto:logarion-dev@chaotic.ninja>"; ]
`S Manpage.s_authors;
`P "orbifx <mailto:fox@orbitalfox.eu>";
`P "Izuru Yakumo <mailto:yakumo.izuru@chaotic.ninja>";
`S Manpage.s_bugs;
`P "Please report them at <mailto:logarion-dev@chaotic.ninja>"; ]
in
Cmd.group (Cmd.info "txt" ~version:"%%VERSION%%" ~doc ~man) ~default:default_cmd subs