commit de59b45cdac7ea313cd9bfdc047f30b065eaf03a · ryan.freumh.org/caledonia

+5 -1

bin/query_args.ml

···

       35
        
         ]

     

       36
        
       

     

       37
        
       let format_arg =

     

       38
       -
         let doc = "Output format (text, entries, json, csv, ics, sexp)" in

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       39
        
         Arg.(

     

       40
        
           value

     

       41
        
           & opt (enum format_enum) `Text

···

       35
        
         ]

     

       36
        
       

     

       37
        
       let format_arg =

     

       38
       +
         let doc =

     

       39
       +
           "Output format (text, entries, json, csv, ics, sexp). Note that dates are \

     

       40
       +
            localised to the TIMEZONE option but the timezone they're defined in is \

     

       41
       +
            displayed."

     

       42
       +
         in

     

       43
        
         Arg.(

     

       44
        
           value

     

       45
        
           & opt (enum format_enum) `Text

+63 -10

lib/event.ml

···

       168
        
       let get_start_timezone t =

     

       169
        
         match t.event.dtstart with

     

       170
        
         | _, `Datetime (`With_tzid (_, (_, tzid))) -> Some tzid

     

       0
        
       
     

       0
        
       
     

       171
        
         | _ -> None

     

       172
        
       

     

       173
        
       let get_end_timezone t =

     

       174
        
         match t.event.dtend_or_duration with

     

       175
        
         | Some (`Dtend (_, `Datetime (`With_tzid (_, (_, tzid))))) -> Some tzid

     

       0
        
       
     

       0
        
       
     

       176
        
         | _ -> None

     

       177
        
       

     

       178
        
       let get_duration t =

     
···

       386
        
         let start = get_start event in

     

       387
        
         let end_ = get_end event in

     

       388
        
         let start_date = format_date ?tz start in

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       389
        
         let start_time =

     

       390
       -
           match is_date event with true -> "" | false -> " " ^ format_time ?tz start

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       391
        
         in

     

       392
        
         let end_date, end_time =

     

       393
        
           match end_ with

     
···

       400
        
                   | false -> (" - " ^ format_date ?tz end_, ""))

     

       401
        
               | false -> (

     

       402
        
                   match day_diff start ~next:end_ == 0 with

     

       403
       -
                   | true -> ("", " - " ^ format_time ?tz end_)

     

       404
       -
                   | false -> (" - " ^ format_date ?tz end_, " " ^ format_time ?tz end_)

     

       405
       -
                   ))

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       406
        
         in

     

       407
        
         let summary =

     

       408
        
           match get_summary event with

     
···

       433
        
               Option.map (fun x -> Printf.sprintf "%s: %s\n" label (f x)) opt

     

       434
        
               |> Option.value ~default:""

     

       435
        
             in

     

       436
       -
             let format timezone datetime =

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       437
        
               match is_date event with

     

       438
        
               | true -> format_date ?tz datetime

     

       439
       -
               | false -> (

     

       440
       -
                   format_datetime ?tz datetime

     

       441
       -
                   ^ match timezone with None -> "" | Some t -> " (" ^ t ^ ")")

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       442
        
             in

     

       443
        
             let start_str =

     

       444
       -
               format_opt "Start" (format (get_start_timezone event)) (Some start)

     

       445
        
             in

     

       446
       -
             let end_str = format_opt "End" (format (get_end_timezone event)) end_ in

     

       0
        
       
     

       0
        
       
     

       447
        
             let location_str = format_opt "Location" Fun.id (get_location event) in

     

       448
        
             let description_str =

     

       449
        
               format_opt "Description" Fun.id (get_description event)

···

       168
        
       let get_start_timezone t =

     

       169
        
         match t.event.dtstart with

     

       170
        
         | _, `Datetime (`With_tzid (_, (_, tzid))) -> Some tzid

     

       171
       +
         | _, `Datetime (`Utc _) -> Some "UTC"

     

       172
       +
         | _, `Datetime (`Local _) -> Some "FLOATING"

     

       173
        
         | _ -> None

     

       174
        
       

     

       175
        
       let get_end_timezone t =

     

       176
        
         match t.event.dtend_or_duration with

     

       177
        
         | Some (`Dtend (_, `Datetime (`With_tzid (_, (_, tzid))))) -> Some tzid

     

       178
       +
         | Some (`Dtend (_, `Datetime (`Utc _))) -> Some "UTC"

     

       179
       +
         | Some (`Dtend (_, `Datetime (`Local _))) -> Some "FLOATING"

     

       180
        
         | _ -> None

     

       181
        
       

     

       182
        
       let get_duration t =

     
···

       390
        
         let start = get_start event in

     

       391
        
         let end_ = get_end event in

     

       392
        
         let start_date = format_date ?tz start in

     

       393
       +
         let start_timezone = get_start_timezone event in

     

       394
       +
         let end_timezone = get_end_timezone event in

     

       395
       +
         let same_timezone =

     

       396
       +
           match (start_timezone, end_timezone) with

     

       397
       +
           | Some tz1, Some tz2 when tz1 = tz2 -> true

     

       398
       +
           | _ -> false

     

       399
       +
         in

     

       400
        
         let start_time =

     

       401
       +
           match is_date event with

     

       402
       +
           | true -> ""

     

       403
       +
           | false ->

     

       404
       +
               let tz_str =

     

       405
       +
                 if same_timezone then " " ^ format_time ?tz start

     

       406
       +
                 else

     

       407
       +
                   match start_timezone with

     

       408
       +
                   | Some tzid -> " " ^ format_time ?tz start ^ " (" ^ tzid ^ ")"

     

       409
       +
                   | None -> " " ^ format_time ?tz start

     

       410
       +
               in

     

       411
       +
               tz_str

     

       412
        
         in

     

       413
        
         let end_date, end_time =

     

       414
        
           match end_ with

     
···

       421
        
                   | false -> (" - " ^ format_date ?tz end_, ""))

     

       422
        
               | false -> (

     

       423
        
                   match day_diff start ~next:end_ == 0 with

     

       424
       +
                   | true ->

     

       425
       +
                       let tz_str =

     

       426
       +
                         match end_timezone with

     

       427
       +
                         | Some tzid when same_timezone ->

     

       428
       +
                             ("", " - " ^ format_time ?tz end_ ^ " (" ^ tzid ^ ")")

     

       429
       +
                         | Some tzid ->

     

       430
       +
                             ("", " - " ^ format_time ?tz end_ ^ " (" ^ tzid ^ ")")

     

       431
       +
                         | None -> ("", " - " ^ format_time ?tz end_)

     

       432
       +
                       in

     

       433
       +
                       tz_str

     

       434
       +
                   | false ->

     

       435
       +
                       let tz_str =

     

       436
       +
                         match end_timezone with

     

       437
       +
                         | Some tzid when same_timezone ->

     

       438
       +
                             ( " - " ^ format_date ?tz end_,

     

       439
       +
                               " " ^ format_time ?tz end_ ^ " (" ^ tzid ^ ")" )

     

       440
       +
                         | Some tzid ->

     

       441
       +
                             ( " - " ^ format_date ?tz end_,

     

       442
       +
                               " " ^ format_time ?tz end_ ^ " (" ^ tzid ^ ")" )

     

       443
       +
                         | None ->

     

       444
       +
                             (" - " ^ format_date ?tz end_, " " ^ format_time ?tz end_)

     

       445
       +
                       in

     

       446
       +
                       tz_str))

     

       447
        
         in

     

       448
        
         let summary =

     

       449
        
           match get_summary event with

     
···

       474
        
               Option.map (fun x -> Printf.sprintf "%s: %s\n" label (f x)) opt

     

       475
        
               |> Option.value ~default:""

     

       476
        
             in

     

       477
       +
             let start_timezone = get_start_timezone event in

     

       478
       +
             let end_timezone = get_end_timezone event in

     

       479
       +
             let same_timezone =

     

       480
       +
               match (start_timezone, end_timezone) with

     

       481
       +
               | Some tz1, Some tz2 when tz1 = tz2 -> true

     

       482
       +
               | _ -> false

     

       483
       +
             in

     

       484
       +
             let format timezone datetime is_end =

     

       485
        
               match is_date event with

     

       486
        
               | true -> format_date ?tz datetime

     

       487
       +
               | false ->

     

       488
       +
                   let tz_suffix =

     

       489
       +
                     if (not is_end) && same_timezone then ""

     

       490
       +
                     else match timezone with None -> "" | Some t -> " (" ^ t ^ ")"

     

       491
       +
                   in

     

       492
       +
                   format_datetime ?tz datetime ^ tz_suffix

     

       493
        
             in

     

       494
        
             let start_str =

     

       495
       +
               format_opt "Start" (fun d -> format start_timezone d false) (Some start)

     

       496
        
             in

     

       497
       +
             let end_str =

     

       498
       +
               format_opt "End" (fun d -> format end_timezone d true) end_

     

       499
       +
             in

     

       500
        
             let location_str = format_opt "Location" Fun.id (get_location event) in

     

       501
        
             let description_str =

     

       502
        
               format_opt "Description" Fun.id (get_description event)