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@chaotic.ninja>

git-svn-id: file:///srv/svn/repo/kosuzu/trunk@69 eb64cd80-c68d-6f47-b6a3-0ada418499da

cli/authors.ml

@@ -18,5 +18,5 @@ let cmd =
       `S Manpage.s_description;
       `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

cli/convert.ml

@@ -92,5 +92,5 @@ let cmd =
       `P "If path is a directory must contain an index.pck.";
       `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

cli/edit.ml

@@ -18,5 +18,5 @@ let cmd =
       `S Manpage.s_environment;
       `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

cli/file.ml

@@ -19,5 +19,5 @@ let cmd =
       `P "Files all texts in parameter in every directory in parameter, using hardlinks";
       `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

cli/index.ml

@@ -87,5 +87,5 @@ let cmd =
       `P "* list of other text repositories (peers)";
       `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

cli/last.ml

@@ -31,5 +31,5 @@ let cmd =
       `S Manpage.s_description;
       `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

cli/listing.ml

@@ -40,5 +40,5 @@ let cmd =
       `P "If directory argument is omitted, TXTDIR is used, where empty value defaults to ~/.local/share/texts.";
       `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

cli/new.ml

@@ -23,10 +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";
       `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

cli/peers.ml

@@ -38,5 +38,5 @@ let cmd =
       `S Manpage.s_description;
       `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

cli/pull.ml

@@ -151,5 +151,5 @@ let cmd =
       `S Manpage.s_description;
       `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

cli/recent.ml

@@ -19,5 +19,5 @@ let cmd =
       `P "List header information of most recent texts.";
       `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

cli/topics.ml

@@ -17,5 +17,5 @@ let cmd =
       `S Manpage.s_description;
       `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

cli/unfile.ml

@@ -17,5 +17,5 @@ let cmd =
       `S Manpage.s_description;
       `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