Changeset 66 in code for trunk/cli/new.ml

Timestamp:

Aug 21, 2024, 1:37:05 AM (8 months ago)

Author:

yakumo.izuru

Message:

Migrate the codebase to the latest revision of Cmdliner

Signed-off-by: Izuru Yakumo <yakumo.izuru@…>

File:

• trunk/cli/new.ml (modified) (2 diffs)

trunk/cli/new.ml

@@ -1 +1 @@
 open Logarion
-open Ocmd
+open Cmdliner
 
 let new_txt title topics_opt interactive =
@@ -14 +14 @@
                 print_endline filepath
 
-let term =
-        let title = Arg.(value & pos 0 string "" & info []
-                ~docv:"title" ~doc:"Title for new article") in
-        let topics= Arg.(value & opt (some string) None & info ["t"; "topics"]
-                ~docv:"comma-separated topics" ~doc:"Topics for new article") in
-        let inter = Arg.(value & flag & info ["i"; "interactive"]
-                ~doc:"Prompts through the steps of creation") in
-        Term.(const new_txt $ title $ topics $ inter), Term.info "new"
-                ~doc:"create a new article" ~man:[ `S "DESCRIPTION";
-                `P "Create a new article, with title 'Draft' when none provided"]
+let title = Arg.(value & pos 0 string "" & info [] ~docv: "title" ~doc: "Title for new article")
+let topics = Arg.(value & opt (some string) None & info ["t"; "topics"] ~docv: "Comma-separated topics" ~doc: "Topics for new article")
+let inter = Arg.(value & flag & info ["i"; "interactive"] ~doc: "Prompt through the steps of creation")
+
+let new_t = Term.(const new_txt $ title $ topics $ inter)
+
+let cmd =
+  let doc = "Create a new article" in
+  let man = [
+      `S Manpage.s_description;
+      `P "Create a new article, with title 'Draft' when none provided" ]
+  in
+  let info = Cmd.info "new" ~version:"%%VERSION%%" ~doc ~man in
+  Cmd.v info new_t