From 2f038028dc73e9dd50384a06da61f4b56dc2cc58 Mon Sep 17 00:00:00 2001
From: "yakumo.izuru" <yakumo.izuru@eb64cd80-c68d-6f47-b6a3-0ada418499da>
Date: Wed, 21 Aug 2024 01:51:19 +0000
Subject: [PATCH] Remove the deprecated 'read' subcommand

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
---
 cli/dune     |  4 ++--
 cli/read.ml  | 24 ------------------------
 cli/txt.ml   |  1 -
 dune-project |  2 +-
 4 files changed, 3 insertions(+), 28 deletions(-)
 delete mode 100644 cli/read.ml

diff --git a/cli/dune b/cli/dune
index 7834bee..c5f9ea1 100644
--- a/cli/dune
+++ b/cli/dune
@@ -2,5 +2,5 @@
  (name txt)
  (public_name txt)
  (modules txt authors convert conversion edit file index last listing
-  new topics html atom gemini peers pull read recent unfile)
- (libraries text_parse.converter text_parse.parsers logarion msgpck curl str cmdliner ocmd))
+  new topics html atom gemini peers pull recent unfile)
+ (libraries text_parse.converter text_parse.parsers logarion msgpck curl str cmdliner))
diff --git a/cli/read.ml b/cli/read.ml
deleted file mode 100644
index 5885a7d..0000000
--- a/cli/read.ml
+++ /dev/null
@@ -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
diff --git a/cli/txt.ml b/cli/txt.ml
index f567b3e..613bbf2 100644
--- a/cli/txt.ml
+++ b/cli/txt.ml
@@ -11,7 +11,6 @@ let subs = [
     New.cmd; (* Done *)
     Peers.cmd; (* Done *)
     Pull.cmd; (* Done *)
-    Read.cmd; (* Done *)
     Recent.cmd; (* Done *)
     Topics.cmd; (* Done *)
     Unfile.cmd; (* Done *)
diff --git a/dune-project b/dune-project
index fa51771..64db271 100644
--- a/dune-project
+++ b/dune-project
@@ -1,6 +1,6 @@
 (lang dune 2.0)
 (name logarion)
-(version 1.4.0)
+(version 1.4.1)
 (license EUPL-1.2)
 (authors "orbifx <fox@orbitalfox.eu>")
 (bug_reports "mailto:logarion-dev@chaotic.ninja")