commit 28b658970320ebce21f62e89780037479e30d4ec · ryan.freumh.org/caledonia

+15 -15

README.md

···

       9
       9
        
       

     

       10
       10
        
       ```

     

       11
       11
        
       $ caled list

     

       12
       12
       -
       054bb346-b24f-49f4-80ab-fcb6040c19a7                              personal   2025-04-04 Fri 13:00 - 14:00 (America/New_York) New York 8am meeting

     

       13
       13
       -
       3B84B125-6EFC-4E1C-B35A-97EFCA61110E                              family     2025-04-06 Sun 21:00 - 22:00 (UTC)              Family chat @Video call

     

       14
       14
       -
       4adcb98dfc1848601e38c2ea55edf71fab786c674d7b72d4c263053b23560a8d  work       2025-04-09 Wed 15:00 - 16:00 (Europe/London)    Weekly Meeting

     

       15
       15
       -
       ccef66cd4d1e87ae7319097f027f8322de67f758                          personal   2025-04-10 Thu 11:00 - 12:00 (UTC)              Dentist

     

       16
       16
       -
       3B84B125-6EFC-4E1C-B35A-97EFCA61110E                              family     2025-04-13 Sun 21:00 - 22:00 (UTC)              Family chat @Video call

     

       17
       17
       -
       33cf18ec-90d3-40f8-8335-f338fbdb395b                              personal   2025-04-15 Tue - 2025-04-17 Thu                 John Doe in town

     

       18
       18
       -
       8601c255-65fc-4bc9-baa9-465dd7b4cd7d                              personal   2025-04-15 Tue 21:00 - 21:30 (UTC)              Grandma call

     

       19
       19
       -
       4adcb98dfc1848601e38c2ea55edf71fab786c674d7b72d4c263053b23560a8d  work       2025-04-16 Wed 15:00 - 16:00 (Europe/London)    Weekly Meeting

     

       20
       20
       -
       7hm4laoadevr1ene8o876f2576@google.com                             personal   2025-04-19 Sat                                  Jane Doe's birthday

     

       21
       21
       -
       3B84B125-6EFC-4E1C-B35A-97EFCA61110E                              family     2025-04-20 Sun 21:00 - 22:00 (UTC)              Family chat @Video call

     

       22
       22
       -
       8601c255-65fc-4bc9-baa9-465dd7b4cd7d                              personal   2025-04-22 Tue 21:00 - 21:30 (UTC)              Grandma call

     

       23
       23
       -
       4adcb98dfc1848601e38c2ea55edf71fab786c674d7b72d4c263053b23560a8d  work       2025-04-23 Wed 15:00 - 16:00 (Europe/London)    Weekly Meeting

     

       24
       24
       -
       3B84B125-6EFC-4E1C-B35A-97EFCA61110E                              family     2025-04-27 Sun 21:00 - 22:00 (UTC)              Family chat @Video call

     

       25
       25
       -
       8601c255-65fc-4bc9-baa9-465dd7b4cd7d                              personal   2025-04-29 Tue 21:00 - 21:30 (UTC)              Grandma call

     

       26
       26
       -
       4adcb98dfc1848601e38c2ea55edf71fab786c674d7b72d4c263053b23560a8d  work       2025-04-30 Wed 15:00 - 16:00 (Europe/London)    Weekly Meeting

     

       12
       12
       +
       personal   2025-04-04 Fri 13:00 - 14:00 (America/New_York) New York 8am meeting      054bb346-b24f-49f4-80ab-fcb6040c19a7

     

       13
       13
       +
       family     2025-04-06 Sun 21:00 - 22:00 (UTC)              Family chat @Video call   3B84B125-6EFC-4E1C-B35A-97EFCA61110E

     

       14
       14
       +
       work       2025-04-09 Wed 15:00 - 16:00 (Europe/London)    Weekly Meeting            4adcb98dfc1848601e38c2ea55edf71fab786c674d7b72d4c263053b23560a8d

     

       15
       15
       +
       personal   2025-04-10 Thu 11:00 - 12:00 (UTC)              Dentist                   ccef66cd4d1e87ae7319097f027f8322de67f758

     

       16
       16
       +
       family     2025-04-13 Sun 21:00 - 22:00 (UTC)              Family chat @Video call   3B84B125-6EFC-4E1C-B35A-97EFCA61110E

     

       17
       17
       +
       personal   2025-04-15 Tue - 2025-04-17 Thu                 John Doe in town          33cf18ec-90d3-40f8-8335-f338fbdb395b

     

       18
       18
       +
       personal   2025-04-15 Tue 21:00 - 21:30 (UTC)              Grandma call              8601c255-65fc-4bc9-baa9-465dd7b4cd7d

     

       19
       19
       +
       work       2025-04-16 Wed 15:00 - 16:00 (Europe/London)    Weekly Meeting            4adcb98dfc1848601e38c2ea55edf71fab786c674d7b72d4c263053b23560a8d

     

       20
       20
       +
       personal   2025-04-19 Sat                                  Jane Doe's birthday       7hm4laoadevr1ene8o876f2576@google.com

     

       21
       21
       +
       family     2025-04-20 Sun 21:00 - 22:00 (UTC)              Family chat @Video call   3B84B125-6EFC-4E1C-B35A-97EFCA61110E

     

       22
       22
       +
       personal   2025-04-22 Tue 21:00 - 21:30 (UTC)              Grandma call              8601c255-65fc-4bc9-baa9-465dd7b4cd7d

     

       23
       23
       +
       work       2025-04-23 Wed 15:00 - 16:00 (Europe/London)    Weekly Meeting            4adcb98dfc1848601e38c2ea55edf71fab786c674d7b72d4c263053b23560a8d

     

       24
       24
       +
       family     2025-04-27 Sun 21:00 - 22:00 (UTC)              Family chat @Video call   3B84B125-6EFC-4E1C-B35A-97EFCA61110E

     

       25
       25
       +
       personal   2025-04-29 Tue 21:00 - 21:30 (UTC)              Grandma call              8601c255-65fc-4bc9-baa9-465dd7b4cd7d

     

       26
       26
       +
       work       2025-04-30 Wed 15:00 - 16:00 (Europe/London)    Weekly Meeting            4adcb98dfc1848601e38c2ea55edf71fab786c674d7b72d4c263053b23560a8d

     

       27
       27
        
       ```

     

       28
       28
        
       

     

       29
       29
        
       See [TODO](./TODO.org) for future plans.

+19 -5

lib/event.ml

···

       467
       467
        
             let id, calendar_name, date_time, summary, location =

     

       468
       468
        
               text_event_data ?tz event

     

       469
       469
        
             in

     

       470
       470
       -
             Printf.sprintf "%s\t%s\t%s\t%s\t%s" id calendar_name date_time summary

     

       471
       471
       -
               location

     

       470
       470
       +
             Printf.sprintf "%s\t%s\t%s\t%s\t%s" calendar_name date_time summary

     

       471
       471
       +
               location id

     

       472
       472
        
         | `Entries ->

     

       473
       473
        
             let format_opt label f opt =

     

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

     
···

       648
       648
        
               (fun acc (_, _, date, _, _) -> max acc (String.length date))

     

       649
       649
        
               0 event_data

     

       650
       650
        
           in

     

       651
       651
       +
           (* Calculate max width for summary+location *)

     

       652
       652
       +
           let max_summary_loc_width =

     

       653
       653
       +
             List.fold_left

     

       654
       654
       +
               (fun acc (_, _, _, summary, location) ->

     

       655
       655
       +
                 let full_length =

     

       656
       656
       +
                   String.length summary

     

       657
       657
       +
                   + if location <> "" then String.length location + 1 else 0

     

       658
       658
       +
                 in

     

       659
       659
       +
                 max acc full_length)

     

       660
       660
       +
               0 event_data

     

       661
       661
       +
           in

     

       651
       662
        
           (* Format each event with calculated widths *)

     

       652
       663
        
           let formatted_events =

     

       653
       664
        
             List.map

     

       654
       665
        
               (fun (id, cal, date, summary, location) ->

     

       655
       655
       -
                 Printf.sprintf "%-*s  %-*s  %-*s  %s%s" max_id_width id max_cal_width

     

       656
       656
       -
                   cal max_date_width date summary

     

       657
       657
       -
                   (if location <> "" then " " ^ location else ""))

     

       666
       666
       +
                 let summary_loc =

     

       667
       667
       +
                   summary ^ if location <> "" then " " ^ location else ""

     

       668
       668
       +
                 in

     

       669
       669
       +
                 Printf.sprintf "%-*s  %-*s  %-*s  %-*s" max_cal_width cal

     

       670
       670
       +
                   max_date_width date max_summary_loc_width summary_loc max_id_width

     

       671
       671
       +
                   id)

     

       658
       672
        
               event_data

     

       659
       673
        
           in

     

       660
       674
        
           String.concat "\n" formatted_events