yakumo.izuru/kosuzu
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
Signed-off-by: Izuru Yakumo <yakumo.izuru@chaotic.ninja>

git-svn-id: file:///srv/svn/repo/kosuzu/trunk@69 eb64cd80-c68d-6f47-b6a3-0ada418499da
This commit is contained in:
yakumo.izuru 2024-08-21 11:14:12 +00:00
parent eef10b21e7
commit 1a0bf17e36
15 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cli/authors.ml
View File

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

2
cli/convert.ml
View File

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

2
cli/edit.ml
View File

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

2
cli/file.ml
View File

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

2
cli/index.ml
View File

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

2
cli/last.ml
View File

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

2
cli/listing.ml
View File

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

4
cli/new.ml
View File

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

2
cli/peers.ml
View File

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

2
cli/pull.ml
View File

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

2
cli/recent.ml
View File

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

2
cli/topics.ml
View File

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

2
cli/unfile.ml
View File

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

4
dune-project
View File

@ -1,12 +1,12 @@
(lang dune 2.0)
(name logarion)
(version 1.4.1)
(version 1.4.2)
(license EUPL-1.2)
(authors "orbifx <fox@orbitalfox.eu>")
(bug_reports "mailto:logarion-dev@chaotic.ninja")
(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)

4
logarion.opam
View File

@ -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 <yakumo.izuru@chaotic.ninja>"]
authors: ["orbifx <fox@orbitalfox.eu>"]
@ -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"