From 1a0bf17e36c57fd3e8d0a7201f9c12d290732b7d Mon Sep 17 00:00:00 2001 From: "yakumo.izuru" Date: Wed, 21 Aug 2024 11:14:12 +0000 Subject: [PATCH] txt new no longer sets default titles, remove %%VERSION%% from all subcommands (as they're pulled from txt.ml) Signed-off-by: Izuru Yakumo git-svn-id: file:///srv/svn/repo/kosuzu/trunk@69 eb64cd80-c68d-6f47-b6a3-0ada418499da --- cli/authors.ml | 2 +- cli/convert.ml | 2 +- cli/edit.ml | 2 +- cli/file.ml | 2 +- cli/index.ml | 2 +- cli/last.ml | 2 +- cli/listing.ml | 2 +- cli/new.ml | 4 ++-- cli/peers.ml | 2 +- cli/pull.ml | 2 +- cli/recent.ml | 2 +- cli/topics.ml | 2 +- cli/unfile.ml | 2 +- dune-project | 4 ++-- logarion.opam | 4 ++-- 15 files changed, 18 insertions(+), 18 deletions(-) diff --git a/cli/authors.ml b/cli/authors.ml index 51f3231..bf7f70d 100644 --- a/cli/authors.ml +++ b/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 diff --git a/cli/convert.ml b/cli/convert.ml index 015fee5..51daeeb 100644 --- a/cli/convert.ml +++ b/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 diff --git a/cli/edit.ml b/cli/edit.ml index 9342eff..b830e32 100644 --- a/cli/edit.ml +++ b/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 diff --git a/cli/file.ml b/cli/file.ml index 55f70ce..808018e 100644 --- a/cli/file.ml +++ b/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 diff --git a/cli/index.ml b/cli/index.ml index 7bf05c3..cf0a34b 100644 --- a/cli/index.ml +++ b/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 diff --git a/cli/last.ml b/cli/last.ml index 16606d2..07c8fb9 100644 --- a/cli/last.ml +++ b/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 diff --git a/cli/listing.ml b/cli/listing.ml index cf458b0..4b0db15 100644 --- a/cli/listing.ml +++ b/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 diff --git a/cli/new.ml b/cli/new.ml index 46ac22b..c4ef771 100644 --- a/cli/new.ml +++ b/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 diff --git a/cli/peers.ml b/cli/peers.ml index d827023..1279f67 100644 --- a/cli/peers.ml +++ b/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 diff --git a/cli/pull.ml b/cli/pull.ml index be4edc1..802fc48 100644 --- a/cli/pull.ml +++ b/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 diff --git a/cli/recent.ml b/cli/recent.ml index fd42eb8..acdd42c 100644 --- a/cli/recent.ml +++ b/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 diff --git a/cli/topics.ml b/cli/topics.ml index f9381c7..36ebe6d 100644 --- a/cli/topics.ml +++ b/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 diff --git a/cli/unfile.ml b/cli/unfile.ml index c5983ac..dc43ad3 100644 --- a/cli/unfile.ml +++ b/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 diff --git a/dune-project b/dune-project index 64db271..e47f76e 100644 --- a/dune-project +++ b/dune-project @@ -1,12 +1,12 @@ (lang dune 2.0) (name logarion) -(version 1.4.1) +(version 1.4.2) (license EUPL-1.2) (authors "orbifx ") (bug_reports "mailto:logarion-dev@chaotic.ninja") (maintainers "Izuru Yakumo ") (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) diff --git a/logarion.opam b/logarion.opam index 407854d..f0f64bf 100644 --- a/logarion.opam +++ b/logarion.opam @@ -1,6 +1,6 @@ # 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 "] authors: ["orbifx "] @@ -22,4 +22,4 @@ build: [ "@doc" {with-doc} ] ] -dev-repo: "https://git.chaotic.ninja/yakumo.izuru/logarion" +dev-repo: "git+https://git.chaotic.ninja/yakumo.izuru/logarion"