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

Remove the deprecated 'read' subcommand

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

git-svn-id: https://svn.yakumo.dev/yakumo.izuru/kosuzu/trunk@67 eb64cd80-c68d-6f47-b6a3-0ada418499da
This commit is contained in:
yakumo.izuru 2024-08-21 01:51:19 +00:00
parent 7e490453b7
commit 2f038028dc
4 changed files with 3 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cli/dune
View File

@ -2,5 +2,5 @@
(name txt) (name txt)
(public_name txt) (public_name txt)
(modules txt authors convert conversion edit file index last listing (modules txt authors convert conversion edit file index last listing
new topics html atom gemini peers pull read recent unfile) new topics html atom gemini peers pull recent unfile)
(libraries text_parse.converter text_parse.parsers logarion msgpck curl str cmdliner ocmd)) (libraries text_parse.converter text_parse.parsers logarion msgpck curl str cmdliner))

24
cli/read.ml
View File

@ -1,24 +0,0 @@
open Logarion
open Cmdliner
let id = Arg.(value & pos 0 string "" & info [] ~docv:"text ID")
let recurse = Arg.(value & flag & info ["R"] ~doc:"recurse, include subdirs")
let reverse = Arg.(value & flag & info ["r"] ~doc:"reverse order")
let time = Arg.(value & flag & info ["t"] ~doc:"sort by time, newest first")
let number = Arg.(value & opt (some int) None & info ["n"] ~docv:"number" ~doc:"number of entries to list")
let authed = Arg.(value & opt (some string) None & info ["authored"] ~docv:"comma-separated names" ~doc:"texts by authors")
let topics = Arg.(value & opt (some string) None & info ["topics"] ~docv:"comma-separated topics" ~doc:"texts with topics")
let read_t = Term.(const (Archive.apply_sys_util "PAGER" "less") $ recurse $ time $ reverse $ number $ authed $ topics $ id)
let cmd =
let doc = "Read a text" in
let man = [
`S Manpage.s_description;
`P "Deprecated. This subcommand will be removed in a future release of Logarion";
`P "This invokes the PAGER utility ('less' if unset) on an article of the archive" ]
in
let info = Cmd.info "read" ~version:"%%VERSION%%" ~doc ~man in
Cmd.v info read_t

1
cli/txt.ml
View File

@ -11,7 +11,6 @@ let subs = [
New.cmd; (* Done *) New.cmd; (* Done *)
Peers.cmd; (* Done *) Peers.cmd; (* Done *)
Pull.cmd; (* Done *) Pull.cmd; (* Done *)
Read.cmd; (* Done *)
Recent.cmd; (* Done *) Recent.cmd; (* Done *)
Topics.cmd; (* Done *) Topics.cmd; (* Done *)
Unfile.cmd; (* Done *) Unfile.cmd; (* Done *)

2
dune-project
View File

@ -1,6 +1,6 @@
(lang dune 2.0) (lang dune 2.0)
(name logarion) (name logarion)
(version 1.4.0) (version 1.4.1)
(license EUPL-1.2) (license EUPL-1.2)
(authors "orbifx <fox@orbitalfox.eu>") (authors "orbifx <fox@orbitalfox.eu>")
(bug_reports "mailto:logarion-dev@chaotic.ninja") (bug_reports "mailto:logarion-dev@chaotic.ninja")