Changeset 69 in code for trunk/cli

Timestamp:

Aug 21, 2024, 11:14:12 AM (8 months ago)

Author:

Izuru Yakumo

Message:

txt new no longer sets default titles, remove %%VERSION%% from all subcommands (as they're pulled from txt.ml)

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

Location:

trunk/cli

Files:

• authors.ml (modified) (1 diff)
• convert.ml (modified) (1 diff)
• edit.ml (modified) (1 diff)
• file.ml (modified) (1 diff)
• index.ml (modified) (1 diff)
• last.ml (modified) (1 diff)
• listing.ml (modified) (1 diff)
• new.ml (modified) (1 diff)
• peers.ml (modified) (1 diff)
• pull.ml (modified) (1 diff)
• recent.ml (modified) (1 diff)
• topics.ml (modified) (1 diff)
• unfile.ml (modified) (1 diff)

trunk/cli/authors.ml

@@ -19 +19 @@
       `P "List author names" ]
   in
-  let info = Cmd.info "authors" ~version:"%%VERSION%%" ~doc ~man in
+  let info = Cmd.info "authors" ~doc ~man in
   Cmd.v info authors_t

trunk/cli/convert.ml

@@ -93 +93 @@
       `P "Run `txt index` first." ]
   in
-  let info = Cmd.info "convert" ~version: "%%VERSION%%" ~doc ~man in
+  let info = Cmd.info "convert" ~doc ~man in
   Cmd.v info convert_t

trunk/cli/edit.ml

@@ -19 +19 @@
       `P "EDITOR - Default editor name" ]
   in
-  let info = Cmd.info "edit" ~version:"%%VERSION%%" ~doc ~man in
+  let info = Cmd.info "edit" ~doc ~man in
   Cmd.v info edit_t

trunk/cli/file.ml

@@ -20 +20 @@
       `P "Use it to create sub-repositories for sharing or converting" ]
   in
-  let info = Cmd.info "file" ~version:"%%VERSION%%" ~doc ~man in
+  let info = Cmd.info "file" ~doc ~man in
   Cmd.v info file_t

trunk/cli/index.ml

@@ -88 +88 @@
       `S Manpage.s_see_also;
       `P "MessagePack format. https://msgpack.org" ] in
-  let info = Cmd.info "index" ~version:"%%VERSION%%" ~doc ~man in
+  let info = Cmd.info "index" ~doc ~man in
   Cmd.v info index_t

trunk/cli/last.ml

@@ -32 +32 @@
       `P "Print the filename of most recent text" ]
   in
-  let info = Cmd.info "last" ~version:"%%VERSION%%" ~doc ~man in
+  let info = Cmd.info "last" ~doc ~man in
   Cmd.v info last_t

trunk/cli/listing.ml

@@ -41 +41 @@
       `P "If -R is used, list header information for texts found in subdirectories, too." ]
   in
-  let info = Cmd.info "list" ~version:"%%VERSION%%" ~doc ~man in
+  let info = Cmd.info "list" ~doc ~man in
   Cmd.v info listing_t

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";
       `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
+  let info = Cmd.info "new" ~doc ~man in
   Cmd.v info new_t

trunk/cli/peers.ml

@@ -39 +39 @@
       `P "List current peers and associated information" ]
   in
-  let info = Cmd.info "peers" ~version:"%%VERSION%%" ~doc ~man in
+  let info = Cmd.info "peers" ~doc ~man in
   Cmd.v info peers_t

trunk/cli/pull.ml

@@ -152 +152 @@
       `P "Pull texts from known repositories." ]
   in
-  let info = Cmd.info "pull" ~version:"%%VERSION%%" ~doc ~man in
+  let info = Cmd.info "pull" ~doc ~man in
   Cmd.v info pull_t

trunk/cli/recent.ml

@@ -20 +20 @@
       `P "If -R is used, list header information for texts found in subdirectories, too, along with their filepaths" ]
   in
-  let info = Cmd.info "recent" ~version:"%%VERSION%%" ~doc ~man in
+  let info = Cmd.info "recent" ~doc ~man in
   Cmd.v info recent_t

trunk/cli/topics.ml

@@ -18 +18 @@
       `P "List of topics" ]
   in
-  let info = Cmd.info "topics" ~version:"%%VERSION%%" ~doc ~man in
+  let info = Cmd.info "topics" ~doc ~man in
   Cmd.v info topics_t

trunk/cli/unfile.ml

@@ -18 +18 @@
       `P "Unfile texts in parameter from directories in parameter, by removing hardlinks" ]
   in
-  let info = Cmd.info "unfile" ~version:"%%VERSION%%" ~doc ~man in
+  let info = Cmd.info "unfile" ~doc ~man in
   Cmd.v info unfile_t