Calendar color counter

We need a function than returns calendar name and quantity of events for a certain date:

Something like this:

$ci(colors, a1d)$

And return: "CalendarOne,#FF03GGAA,3;CalendarTwo,#FF00FF00,1"

This will be useful with new trim function and will makes the calendars more cute :D