diff --git a/app/atom.ml b/cli/atom.ml similarity index 100% rename from app/atom.ml rename to cli/atom.ml diff --git a/app/logarion_cli.ml b/cli/cli.ml similarity index 96% rename from app/logarion_cli.ml rename to cli/cli.ml index ac4d59b..79b0881 100644 --- a/app/logarion_cli.ml +++ b/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 " ] in - Term.(ret (const (`Help (`Pager, None)))), Term.info "logarion" ~version ~doc ~man + let man = [ `S "BUGS"; `P "Submit bugs