Changeset 69 in code

Timestamp:

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

Author:

yakumo.izuru

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

Files:

• cli/authors.ml (modified) (1 diff)
• cli/convert.ml (modified) (1 diff)
• cli/edit.ml (modified) (1 diff)
• cli/file.ml (modified) (1 diff)
• cli/index.ml (modified) (1 diff)
• cli/last.ml (modified) (1 diff)
• cli/listing.ml (modified) (1 diff)
• cli/new.ml (modified) (1 diff)
• cli/peers.ml (modified) (1 diff)
• cli/pull.ml (modified) (1 diff)
• cli/recent.ml (modified) (1 diff)
• cli/topics.ml (modified) (1 diff)
• cli/unfile.ml (modified) (1 diff)
• dune-project (modified) (2 diffs)
• logarion.opam (modified) (2 diffs)

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

trunk/dune-project

@@ -1 +1 @@
 (lang dune 2.0)
 (name logarion)
-(version 1.4.1)
+(version 1.4.2)
 (license EUPL-1.2)
 (authors "orbifx <fox@orbitalfox.eu>")
@@ -7 +7 @@
 (maintainers "Izuru Yakumo <yakumo.izuru@chaotic.ninja>")
 (homepage "https://suzunaan.chaotic.ninja/logarion/")
-(source (uri https://git.chaotic.ninja/yakumo.izuru/logarion))
+(source (uri git+https://git.chaotic.ninja/yakumo.izuru/logarion))
 
 (generate_opam_files true)

trunk/logarion.opam

@@ -1 +1 @@
 # This file is generated by dune, edit dune-project instead
 opam-version: "2.0"
-version: "1.4.1"
+version: "1.4.2"
 synopsis: "Texts archival and exchange"
 maintainer: ["Izuru Yakumo <yakumo.izuru@chaotic.ninja>"]
@@ -23 +23 @@
   ]
 ]
-dev-repo: "https://git.chaotic.ninja/yakumo.izuru/logarion"
+dev-repo: "git+https://git.chaotic.ninja/yakumo.izuru/logarion"