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