commit 710ddc17e6fc4c6ef53e1328e5dc45ffa14f9bb2 · ryan.freumh.org/caledonia

+32 -14

bin/event_args.ml

···

       44
        
       let timezone_arg =

     

       45
        
         let doc =

     

       46
        
           "Timezone to add events to (e.g., 'America/New_York', 'UTC', \

     

       47
       -
            'Europe/London'). If not specified, will use the local timezone."

     

       0
        
       
     

       48
        
         in

     

       49
        
         Arg.(

     

       50
        
           value

     
···

       133
        
             | Some start_time -> (

     

       134
        
                 match timezone with

     

       135
        
                 | None ->

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       136
        
                     let* datetime =

     

       137
        
                       Date.parse_date_time ~tz:Timedesc.Time_zone.utc ~date:start_date

     

       138
        
                         ~time:start_time `From

     
···

       145
        
                     in

     

       146
        
                     Ok (Some (`Datetime (`Utc datetime)))

     

       147
        
                 | Some tzid ->

     

       148
       -
                     let* tz =

     

       149
       -
                       match Timedesc.Time_zone.make tzid with

     

       150
       -
                       | Some tz_obj -> Ok tz_obj

     

       151
       -
                       | None -> Error (`Msg ("Invalid timezone: " ^ tzid))

     

       152
       -
                     in

     

       153
        
                     let* datetime =

     

       154
       -
                       Date.parse_date_time ~tz ~date:start_date ~time:start_time `From

     

       0
        
       
     

       155
        
                     in

     

       156
        
                     Ok (Some (`Datetime (`With_tzid (datetime, (false, tzid)))))))

     

       157
        
       

     
···

       189
        
             | Some end_time -> (

     

       190
        
                 match (timezone, end_timezone) with

     

       191
        
                 | None, None ->

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       192
        
                     let* datetime =

     

       193
        
                       Date.parse_date_time ~tz:Timedesc.Time_zone.utc ~date:end_date

     

       194
        
                         ~time:end_time `From

     
···

       205
        
                       (Some

     

       206
        
                          (`Dtend (Icalendar.Params.empty, `Datetime (`Utc datetime))))

     

       207
        
                 | _, Some tzid | Some tzid, _ ->

     

       208
       -
                     let* tz =

     

       209
       -
                       match Timedesc.Time_zone.make tzid with

     

       210
       -
                       | Some tz_obj -> Ok tz_obj

     

       211
       -
                       | None -> Error (`Msg ("Invalid timezone: " ^ tzid))

     

       212
       -
                     in

     

       213
        
                     let* datetime =

     

       214
       -
                       Date.parse_date_time ~tz ~date:end_date ~time:end_time `From

     

       0
        
       
     

       215
        
                     in

     

       216
       -
       

     

       217
        
                     Ok

     

       218
        
                       (Some

     

       219
        
                          (`Dtend

···

       44
        
       let timezone_arg =

     

       45
        
         let doc =

     

       46
        
           "Timezone to add events to (e.g., 'America/New_York', 'UTC', \

     

       47
       +
            'Europe/London'). If not specified, will use the local timezone. For a \

     

       48
       +
            floating time (always at whatever the sytem time is), use 'FLOATING'."

     

       49
        
         in

     

       50
        
         Arg.(

     

       51
        
           value

     
···

       134
        
             | Some start_time -> (

     

       135
        
                 match timezone with

     

       136
        
                 | None ->

     

       137
       +
                     let* tzid =

     

       138
       +
                       match Timedesc.Time_zone.local () with

     

       139
       +
                       | Some tz -> Ok (Timedesc.Time_zone.name tz)

     

       140
       +
                       | None -> Error (`Msg "Failed to get system timezone")

     

       141
       +
                     in

     

       142
       +
                     let* datetime =

     

       143
       +
                       Date.parse_date_time ~tz:Timedesc.Time_zone.utc ~date:start_date

     

       144
       +
                         ~time:start_time `From

     

       145
       +
                     in

     

       146
       +
                     Ok (Some (`Datetime (`With_tzid (datetime, (false, tzid)))))

     

       147
       +
                 | Some "FLOATING" ->

     

       148
        
                     let* datetime =

     

       149
        
                       Date.parse_date_time ~tz:Timedesc.Time_zone.utc ~date:start_date

     

       150
        
                         ~time:start_time `From

     
···

       157
        
                     in

     

       158
        
                     Ok (Some (`Datetime (`Utc datetime)))

     

       159
        
                 | Some tzid ->

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       160
        
                     let* datetime =

     

       161
       +
                       Date.parse_date_time ~tz:Timedesc.Time_zone.utc ~date:start_date

     

       162
       +
                         ~time:start_time `From

     

       163
        
                     in

     

       164
        
                     Ok (Some (`Datetime (`With_tzid (datetime, (false, tzid)))))))

     

       165
        
       

     
···

       197
        
             | Some end_time -> (

     

       198
        
                 match (timezone, end_timezone) with

     

       199
        
                 | None, None ->

     

       200
       +
                     let* tzid =

     

       201
       +
                       match Timedesc.Time_zone.local () with

     

       202
       +
                       | Some tz -> Ok (Timedesc.Time_zone.name tz)

     

       203
       +
                       | None -> Error (`Msg "Failed to get system timezone")

     

       204
       +
                     in

     

       205
       +
                     let* datetime =

     

       206
       +
                       Date.parse_date_time ~tz:Timedesc.Time_zone.utc ~date:end_date

     

       207
       +
                         ~time:end_time `From

     

       208
       +
                     in

     

       209
       +
                     Ok

     

       210
       +
                       (Some

     

       211
       +
                          (`Dtend

     

       212
       +
                             ( Icalendar.Params.empty,

     

       213
       +
                               `Datetime (`With_tzid (datetime, (false, tzid))) )))

     

       214
       +
                 | _, Some "FLOATING" | Some "FLOATING", None ->

     

       215
        
                     let* datetime =

     

       216
        
                       Date.parse_date_time ~tz:Timedesc.Time_zone.utc ~date:end_date

     

       217
        
                         ~time:end_time `From

     
···

       228
        
                       (Some

     

       229
        
                          (`Dtend (Icalendar.Params.empty, `Datetime (`Utc datetime))))

     

       230
        
                 | _, Some tzid | Some tzid, _ ->

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       231
        
                     let* datetime =

     

       232
       +
                       Date.parse_date_time ~tz:Timedesc.Time_zone.utc ~date:end_date

     

       233
       +
                         ~time:end_time `From

     

       234
        
                     in

     

       0
        
       
     

       235
        
                     Ok

     

       236
        
                       (Some

     

       237
        
                          (`Dtend