path: root/my-evolution/e-summary-calendar.c

/*
 * 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 Folders/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 Folders/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\">  &#160; "
                           "<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);
}

void
e_summary_calendar_free (ESummary *summary)
{
    ESummaryCalendar *calendar;

    g_return_if_fail (summary != NULL);
    g_return_if_fail (IS_E_SUMMARY (summary));

    calendar = summary->calendar;
    gtk_object_unref (GTK_OBJECT (calendar->client));
    g_free (calendar->html);

    g_free (calendar);
    summary->calendar = NULL;
}