Changeset 65 in code for trunk/cli/txt.ml


Ignore:
Timestamp:
Aug 20, 2024, 1:17:24 PM (8 months ago)
Author:
yakumo.izuru
Message:

Replace Cmdliner with Ocmd, re-add documentation

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/cli/txt.ml

    r61 r65  
    1 let version = "1.3.2"
    2 
    3 open Cmdliner
     1open Ocmd
    42let default_cmd =
    53        let doc = "Discover, collect & exchange texts" in
    64        let man = [ `S "CONTACT"; `P "<mailto:logarion-dev@chaotic.ninja>" ] in
    7         Term.(ret (const (`Help (`Pager, None)))), Term.info "txt" ~version ~doc ~man
     5        Term.(ret (const (`Help (`Pager, None)))), Term.info "txt" ~version:"%%VERSION%%" ~doc ~man
    86
    97let () = match Term.eval_choice default_cmd [
Note: See TracChangeset for help on using the changeset viewer.