Changeset 68 in code for trunk/cli

Timestamp:

Aug 21, 2024, 2:15:27 AM (8 months ago)

Author:

Izuru Yakumo

Message:

Update inline documentation

Signed-off-by: Izuru Yakumo <yakumo.izuru@…>

Location:

trunk/cli

Files:

• edit.ml (modified) (1 diff)
• new.ml (modified) (1 diff)
• txt.ml (modified) (2 diffs)

trunk/cli/edit.ml

@@ -15 +15 @@
       `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

trunk/cli/new.ml

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

trunk/cli/txt.ml

@@ -2 +2 @@
 
 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;
   ]
 
@@ -22 +22 @@
   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