···

       
288
       
288
       
 
       
  in

     

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

     

       
290
       
290
       
 
       


     

       
291
       
291
       
-
       
let same_day day other =

     

       
292
       
292
       
-
       
  let y1, m1, d1 = Ptime.to_date day in

     

       
293
       
293
       
-
       
  let y2, m2, d2 = Ptime.to_date other in

     

       
294
       
294
       
-
       
  y1 == y2 && m1 == m2 && d1 == d2

     

       
295
       
295
       
-
       


     

       
296
       
296
       
-
       
let next_day day ~next =

     

       
297
       
297
       
-
       
  let y1, m1, d1 = Ptime.to_date day in

     

       
298
       
298
       
-
       
  let y2, m2, d2 = Ptime.to_date next in

     

       
299
       
299
       
-
       
  y1 == y2 && m1 == m2 && d1 == d2 - 1

     

       
291
       
291
       
+
       
let day_diff day ~next =

     

       
292
       
292
       
+
       
  let span = Ptime.diff next day in

     

       
293
       
293
       
+
       
  let d, _ = Ptime.Span.to_d_ps span in

     

       
294
       
294
       
+
       
  d

     

       
300
       
295
       
 
       


     

       
301
       
296
       
 
       
(* exosed from icalendar *)

     

       
302
       
297
       
 
       


     
···

       
400
       
395
       
 
       
    | Some end_ -> (

     

       
401
       
396
       
 
       
        match is_date event with

     

       
402
       
397
       
 
       
        | true -> (

     

       
403
       
403
       
-
       
            match next_day start ~next:end_ with

     

       
398
       
398
       
+
       
            match day_diff start ~next:end_ <= 1 with

     

       
404
       
399
       
 
       
            | true -> ("", "")

     

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

     

       
406
       
401
       
 
       
        | false -> (

     

       
407
       
407
       
-
       
            match same_day start end_ with

     

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

     

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

     

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

     

       
410
       
405
       
 
       
            ))