/*
* e-summary-calendar.c:
*
* Copyright (C) 2001 Ximian, Inc.
*
* Authors: Iain Holmes <iain@ximian.com>
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include <gnome.h>
#include <gal/widgets/e-unicode.h>
#include "e-summary-calendar.h"
#include "e-summary.h"
#include <cal-client/cal-client.h>
#include <cal-util/timeutil.h>
struct _ESummaryCalendar {
CalClient *client;
char *html;
};
const char *
e_summary_calendar_get_html (ESummary *summary)
{
if (summary->calendar == NULL) {
return NULL;
}
return summary->calendar->html;
}
/* list_sort_merge, and list_sort are copied from GNOME-VFS.
Author: Sven Oliver <sven.over@ob.kamp.net>
Modified by Ettore Perazzoli <ettore@comm2000.it> to let the compare
functions get an additional gpointer parameter.
Included here as using gnome-vfs for 1 20 line function
seems a bit of overkill.
*/
typedef gint (* CalSummaryListCompareFunc) (gconstpointer a,
gconstpointer b,
gpointer data);
static GList *
cal_list_sort_merge (GList *l1,
GList *l2,
CalSummaryListCompareFunc compare_func,
gpointer data)
{
GList list, *l, *lprev;
l = &list;
lprev = NULL;
while (l1 && l2) {
if (compare_func (l1->data, l2->data, data) < 0) {
l->next = l1;
l = l->next;
l->prev = lprev;
lprev = l;
l1 = l1->next;
} else {
l->next = l2;
l = l->next;
l->prev = lprev;
lprev = l;
l2 = l2->next;
}
}
l->next = l1 ? l1 : l2;
l->next->prev = l;
return list.next;
}
static GList *
cal_list_sort (GList *list,
CalSummaryListCompareFunc compare_func,
gpointer data)
{
GList *l1, *l2;
if (!list)
return NULL;
if (!list->next)
return list;
l1 = list;
l2 = list->next;
while ((l2 = l2->next) != NULL) {
if ((l2 = l2->next) == NULL)
break;
l1 = l1->next;
}
l2 = l1->next;
l1->next = NULL;
return cal_list_sort_merge (cal_list_sort (list, compare_func, data),
cal_list_sort (l2, compare_func, data),
compare_func, data);
}
static int
sort_uids (gconstpointer a,
gconstpointer b,
gpointer user_data)
{
CalComponent *comp_a, *comp_b;
ESummary *summary = user_data;
ESummaryCalendar *calendar = summary->calendar;
CalClientGetStatus status;
CalComponentDateTime start_a, start_b;
/* a after b then return > 0 */
status = cal_client_get_object (calendar->client, a, &comp_a);
if (status != CAL_CLIENT_GET_SUCCESS)
return -1;
status = cal_client_get_object (calendar->client, b, &comp_b);
if (status != CAL_CLIENT_GET_SUCCESS)
return 1;
cal_component_get_dtstart (comp_a, &start_a);
cal_component_get_dtstart (comp_b, &start_b);
return icaltime_compare (*start_a.value, *start_b.value);
}
static gboolean
generate_html (gpointer data)
{
ESummary *summary = data;
ESummaryCalendar *calendar = summary->calendar;
GList *uids, *l;
GString *string;
char *tmp;
time_t t, begin, end, f;
t = time (NULL);
begin = time_day_begin (t);
switch (summary->preferences->days) {
case E_SUMMARY_CALENDAR_ONE_DAY:
end = time_day_end (t);
break;
case E_SUMMARY_CALENDAR_FIVE_DAYS:
f = time_add_day (t, 5);
end = time_day_end (f);
break;
case E_SUMMARY_CALENDAR_ONE_WEEK:
f = time_add_week (t, 1);
end = time_day_end (f);
break;
case E_SUMMARY_CALENDAR_ONE_MONTH:
f = time_add_month (t, 1);
end = time_day_end (f);
break;
}
uids = cal_client_get_objects_in_range (calendar->client,
CALOBJ_TYPE_EVENT, begin, end);
if (uids == NULL) {
char *s1, *s2;
s1 = e_utf8_from_locale_string (_("Appointments"));
s2 = e_utf8_from_locale_string (_("No appointments"));
g_free (calendar->html);
calendar->html = g_strconcat ("<dl><dt><img src=\"ico-calendar.png\" align=\"middle\" "
"alt=\"\" width=\"48\" height=\"48\"> <b><a href=\"evolution:/local/Calendar\">",
s1, "</a></b></dt><dd><b>", s2, "</b></dd></dl>", NULL);
g_free (s1);
g_free (s2);
e_summary_draw (summary);
return FALSE;
} else {
char *s;
uids = cal_list_sort (uids, sort_uids, summary);
string = g_string_new ("<dl><dt><img src=\"ico-calendar.png\" align=\"middle\" "
"alt=\"\" width=\"48\" height=\"48\"> <b><a href=\"evolution:/local/Calendar\">");
s = e_utf8_from_locale_string (_("Appointments"));
g_string_append (string, s);
g_free (s);
g_string_append (string, "</a></b></dt><dd>");
for (l = uids; l; l = l->next) {
char *uid, *start_str;
CalComponent *comp;
CalComponentText text;
CalClientGetStatus status;
CalComponentDateTime start, end;
time_t start_t, dt;
struct tm *start_tm;
uid = l->data;
status = cal_client_get_object (calendar->client, uid, &comp);
if (status != CAL_CLIENT_GET_SUCCESS) {
continue;
}
cal_component_get_summary (comp, &text);
cal_component_get_dtstart (comp, &start);
cal_component_get_dtend (comp, &end);
start_t = icaltime_as_timet (*start.value);
start_str = g_new (char, 20);
start_tm = localtime (&start_t);
dt = start_t - t;
/* 86400 == 1 day
604800 == 1 week
Otherwise: Month */
if (dt < 86400) {
strftime (start_str, 19, _("%l:%M%p"), start_tm);
} else if (dt < 604800) {
strftime (start_str, 19, _("%a %l:%M%p"), start_tm);
} else {
strftime (start_str, 19, _("%d %B"), start_tm);
}
tmp = g_strdup_printf ("<img align=\"middle\" src=\"es-appointments.png\" "
"alt=\"\" width=\"16\" height=\"16\">   "
"<font size=\"-1\"><a href=\"#\">%s, %s</a></font><br>",
start_str, text.value);
g_free (start_str);
g_string_append (string, tmp);
g_free (tmp);
}
cal_obj_uid_list_free (uids);
g_string_append (string, "</dd></dl>");
}
if (calendar->html) {
g_free (calendar->html);
}
calendar->html = string->str;
g_string_free (string, FALSE);
e_summary_draw (summary);
return FALSE;
}
static void
cal_opened_cb (CalClient *client,
CalClientOpenStatus status,
ESummary *summary)
{
if (status == CAL_CLIENT_OPEN_SUCCESS) {
g_idle_add (generate_html, summary);
} else {
/* Need to work out what to do if there's an error */
}
}
static void
obj_changed_cb (CalClient *client,
const char *uid,
gpointer data)
{
g_idle_add (generate_html, data);
}
static void
e_summary_calendar_protocol (ESummary *summary,
const char *uri,
void *closure)
{
}
void
e_summary_calendar_init (ESummary *summary)
{
ESummaryCalendar *calendar;
gboolean result;
char *uri;
g_return_if_fail (summary != NULL);
calendar = g_new (ESummaryCalendar, 1);
summary->calendar = calendar;
calendar->html = NULL;
calendar->client = cal_client_new ();
if (calendar->client == NULL) {
g_warning ("Error making the client");
return;
}
gtk_signal_connect (GTK_OBJECT (calendar->client), "cal-opened",
GTK_SIGNAL_FUNC (cal_opened_cb), summary);
gtk_signal_connect (GTK_OBJECT (calendar->client), "obj-updated",
GTK_SIGNAL_FUNC (obj_changed_cb), summary);
gtk_signal_connect (GTK_OBJECT (calendar->client), "obj-removed",
GTK_SIGNAL_FUNC (obj_changed_cb), summary);
uri = gnome_util_prepend_user_home ("evolution/local/Calendar/calendar.ics");
result = cal_client_open_calendar (calendar->client, uri, FALSE);
g_free (uri);
if (result == FALSE) {
g_message ("Open calendar failed");
}
e_summary_add_protocol_listener (summary, "calendar", e_summary_calendar_protocol, calendar);
}
void
e_summary_calendar_reconfigure (ESummary *summary)
{
generate_html (summary);
}
