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