···

       
290
       
290
       
 
       
  in

     

       
291
       
291
       
 
       
  Printf.sprintf "%s %s%s" (format_date ?tz date) (format_time ?tz date) tz_str

     

       
292
       
292
       
 
       


     

       
293
       
293
       
+
       
let same_day day other =

     

       
294
       
294
       
+
       
  let y1, m1, d1 = Ptime.to_date day in

     

       
295
       
295
       
+
       
  let y2, m2, d2 = Ptime.to_date other in

     

       
296
       
296
       
+
       
  y1 == y2 && m1 == m2 && d1 == d2

     

       
297
       
297
       
+
       


     

       
293
       
298
       
 
       
let next_day day ~next =

     

       
294
       
299
       
 
       
  let y1, m1, d1 = Ptime.to_date day in

     

       
295
       
300
       
 
       
  let y2, m2, d2 = Ptime.to_date next in

     
···

       
399
       
404
       
 
       
        match end_ with

     

       
400
       
405
       
 
       
        | None -> ("", "")

     

       
401
       
406
       
 
       
        | Some end_ -> (

     

       
402
       
402
       
-
       
            match (is_date event, next_day start ~next:end_) with

     

       
403
       
403
       
-
       
            | true, true -> ("", "")

     

       
404
       
404
       
-
       
            | true, _ -> (" - " ^ format_date ?tz end_, "")

     

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

     

       
406
       
406
       
-
       
            | false, _ ->

     

       
407
       
407
       
-
       
                (" - " ^ format_date ?tz end_, " " ^ format_time ?tz end_))

     

       
407
       
407
       
+
       
            match is_date event with

     

       
408
       
408
       
+
       
            | true -> (

     

       
409
       
409
       
+
       
                match next_day start ~next:end_ with

     

       
410
       
410
       
+
       
                | true -> ("", "")

     

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

     

       
412
       
412
       
+
       
            | false -> (

     

       
413
       
413
       
+
       
                match same_day start end_ with

     

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

     

       
415
       
415
       
+
       
                | false ->

     

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

     

       
408
       
417
       
 
       
      in

     

       
409
       
418
       
 
       
      let summary =

     

       
410
       
419
       
 
       
        match get_summary event with