open Cmdliner
open Cmdliner.Term.Syntax

let files =
  let doc = "Files to process" in
  Arg.(non_empty & pos_all string [] & info [] ~docv:"FILE" ~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+ files = files in
  f files

let main f = Cmd.eval @@ main_command f