CI: calendar events (get title, time and data from multiple calendar events)

ci(action, [index], [date], [calendar])

action: Action (see examples)
index: Index of upcoming events if no date is provided, index of day events if date is added. When prefixed with an a will show only all day events, with e only normal ones. Index is zero based, 0 is the first event, 1 the second and so on, a0 is the first all day event, e0 the first non all day one.
date: Date to be used. The Date can be returned by some other function or you can use text. For text dates you can both set it statically using the format '1955y11M12d22h04m00s' to express year 1955, month 11, day 12 at 22:04:00 (all fields are optional), or use 'a/r' (add/remove) operators, so, for example 'a12m3s' will add 12 minutes and 3 secs to current date.
calendar: Override default Calendar selection

Formula	Description
$df(EEE hh:mm, ci(start, 0))$-$df(hh:mm, ci(end, 0))$ $ci(title, 0)$	Day start-end title of first upcoming event
$ci(title, 1)$	Title of second upcoming event
$ci(desc, 1)$	Description of second upcoming event or all day event (the first)
$df("hh:mma", ci(start, 0))$	Start date of next upcoming event in HH:MM format
$ci(allday, 0)$	Will write 1 if next upcoming event is allday, 0 otherwise
$ci(title, a0, a0d)$	Title of today's first all day event
$ci(desc, e1, a0d)$	Description of today's second event
$ci(loc, e1, a0d)$	Location of today's second event
$ci(ccolor, e0, a1d)$	Calendar Color of first event tomorrow
$ci(cname, a1, a1d)$	Calendar Name of first all day event tomorrow
$df("hh:mma", ci(end, 0, a0d))$	End date of second event today in HH:MM format
$ci(color, 1, a1d)$	Color of second event tomorrow
$ci(ecount, a0d)$	Number of appointments today
$ci(acount, a1d)$	Number of all day events tomorrow
$ci(url, 0)$	Url of first event today (to be used in Touch, open Url action)
$ci(urld, 0)$	Open calendar at first event time (to be used in Touch, open Url action)