Rename app dir to cli

cli/cli.ml

@@ -35,7 +35,7 @@ let list_term =
   let keywords= Arg.(value & opt (some string) None & info ["k"; "keywords"] ~docv:"KEYWORDS" ~doc:"texts with keywords") in
   let topics  = Arg.(value & opt (some string) None & info ["t"; "topics"] ~docv:"TOPICS" ~doc:"texts with topics") in
   Term.(const text_list $ field $ authors $ keywords $ topics),
-  Term.info "list" ~doc:"list texts" ~man:[ `S "DESCRIPTION"; `P "List texts in Logarion archive" ]
+  Term.info "list" ~doc:"list texts" ~man:[ `S "DESCRIPTION"; `P "List texts" ]
 
 let split_filetypes files =
 	let acc (dirs, files) x = if Sys.is_directory x then (x::dirs, files) else (dirs, x::files) in
@@ -102,8 +102,8 @@ let new_term =
 
 let default_cmd =
   let doc = "text archival & publishing" in
-  let man = [ `S "BUGS"; `P "Submit bugs <mailto:logarion@lists.orbitalfox.eu?subject=[Issue] summary-here>" ] in
-  Term.(ret (const (`Help (`Pager, None)))), Term.info "logarion" ~version ~doc ~man
+  let man = [ `S "BUGS"; `P "Submit bugs <mailto:logarion@lists.orbitalfox.eu?subject=Issue: " ] in
+  Term.(ret (const (`Help (`Pager, None)))), Term.info "txt" ~version ~doc ~man
 
 let cmds = [ init_term; new_term; file_term; unfile_term; list_term; Convert.term ]
 

cli/dune

@@ -1,5 +1,5 @@
 (executable
- (name logarion_cli)
- (public_name logarion)
- (modules logarion_cli convert html atom gemini)
+ (name cli)
+ (public_name txt)
+ (modules cli convert html atom gemini)
  (libraries logarion re.str cmdliner bos ptime ptime.clock.os text_parse.converter text_parse.parsers msgpck))

dune-project

@@ -12,5 +12,5 @@
 
 (package
  (name logarion)
- (synopsis "A texts system")
+ (synopsis "Texts archival and exchange")
  (depends re cmdliner bos ptime uuidm uri text_parse msgpck))

logarion.opam

@@ -1,6 +1,6 @@
 # This file is generated by dune, edit dune-project instead
 opam-version: "2.0"
-synopsis: "A texts system"
+synopsis: "Texts archival and exchange"
 maintainer: ["fox@orbitalfox.eu"]
 authors: ["orbifx"]
 license: "EUPL"