How to plot events in a weekly/daily view?

Are there any functions or resources to plot events in a calendar view like this?

I’d like to use this with the google service:

cal = ServiceConnect["GoogleCalendar"]
cal["EventDataset"]

For testing purposes here is code to generate the events:

nEvents = 25;
events = Thread[{Partition[Sort[ResourceFunction["RandomDate"][
    {Now, Now + Quantity[5, "Days"]}, nEvents*2]], 2], 
   Table[ResourceFunction["LatinizedText"][RandomInteger[{1, 20}]], nEvents]
}]

Criteria for an acceptable answer includes:

• Looks like the above calendar from twitch
• Shows event details like title and time length info
• Handles overlapping events like a normal calendar view
• Shows different calendars (sets of events) in different colors

Related:

• Calendar view outline
• Does Mathematica have a built-in date picker?