Changeset 66 in code for trunk/cli/last.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/last.ml (modified) (1 diff)

trunk/cli/last.ml

@@ -21 +21 @@
         | Some (_, f) -> List.iter print_endline f
 
-open Ocmd
-let term =
-        let mine = Arg.(value & flag & info ["mine"] ~doc:"last text authored by me") in
-        Term.(const last $ mine),
-        Term.info "last" ~doc:"most recent text"
-                ~man:[ `S "DESCRIPTION"; `P "Print the filename of most recent text" ]
+open Cmdliner
+
+let mine = Arg.(value & flag & info ["mine"] ~doc: "Last text authored by me")
+let last_t = Term.(const last $ mine)
+
+let cmd =
+  let doc = "Most recent text" in
+  let man = [
+      `S Manpage.s_description;
+      `P "Print the filename of most recent text" ]
+  in
+  let info = Cmd.info "last" ~version:"%%VERSION%%" ~doc ~man in
+  Cmd.v info last_t