18 lines
433 B
OCaml
18 lines
433 B
OCaml
open Cmdliner
|
|
open Cmdliner.Term.Syntax
|
|
|
|
let ical_file =
|
|
let doc = "TODO" in
|
|
let docv = "ICAL" in
|
|
Arg.(required & pos ~rev:true 0 (some string) None & info [] ~docv ~doc)
|
|
|
|
let main_command f =
|
|
let doc = "Convert iCalendar files to remind format" in
|
|
let man = [] in
|
|
Cmd.make (Cmd.info "ical2rem" ~version:"%%VERSION%%" ~doc ~man)
|
|
@@
|
|
let+ ical_file = ical_file in
|
|
f ical_file
|
|
|
|
let main f = Cmd.eval @@ main_command f
|