21 lines
609 B
OCaml
21 lines
609 B
OCaml
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 timezone =
|
|
let doc = "Target timezone for output (e.g. Europe/Rome). Defaults to local timezone." in
|
|
Arg.(value & opt (some string) None & info [ "timezone"; "z" ] ~docv:"TZ" ~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 and+ tz = timezone in
|
|
f tz files
|
|
|
|
let main f = Cmd.eval @@ main_command f
|