From 279402457a6dc13846e4686c2ec4364988125d78 Mon Sep 17 00:00:00 2001 From: orbifx Date: Mon, 7 Jun 2021 20:50:42 +0100 Subject: [PATCH] Change create subcommand to new --- app/logarion_cli.ml | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/app/logarion_cli.ml b/app/logarion_cli.ml index ca32252..ac4d59b 100644 --- a/app/logarion_cli.ml +++ b/app/logarion_cli.ml @@ -71,11 +71,11 @@ let init _force = File_store.init () let init_term = let force = Arg.(value & flag & info ["f"; "force"] ~doc:"Initialise even if directory is not empty") in - let doc = "initialise a logarion repository in present directory" in - let man = [ `S "DESCRIPTION"; `P "Create a repository in current directory" ] in + let doc = "initialise a text repository in present directory" in + let man = [ `S "DESCRIPTION"; `P "Start an archive in current directory" ] in Term.(const init $ force), Term.info "init" ~doc ~man -let create_term = +let new_term = let f title topics_opt interactive = match A.of_path "." with | Error m -> prerr_endline m @@ -98,14 +98,14 @@ let create_term = let topics= Arg.(value & opt (some string) None & info ["t"; "topics"] ~docv:"TOPICS" ~doc:"Topics for new article") in let inter = Arg.(value & flag & info ["i"; "interactive"] ~doc:"Prompts through the steps of creation and publication") in let man = [ `S "DESCRIPTION"; `P "Create a new article, with title 'Draft' when none provided"] in - Term.(const f $ title $ topics $ inter), Term.info "create" ~doc:"create a new article" ~man + Term.(const f $ title $ topics $ inter), Term.info "new" ~doc:"create a new article" ~man 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 cmds = [ init_term; create_term; file_term; unfile_term; list_term; Convert.term ] +let cmds = [ init_term; new_term; file_term; unfile_term; list_term; Convert.term ] let () = Random.self_init();