/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */
/* calendar-summary.c
 *
 * Authors: Iain Holmes <iain@ximian.com>
 *
 * Copyright (C) 2000  Helix Code, Inc.
 * Copyright (C) 2000  Ximian, Inc.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 *
 * You should have received a copy of the GNU General Public
 * License along with this program; if not, write to the
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <time.h>

#include <gnome.h>
#include <bonobo.h>

#include <liboaf/liboaf.h>

#include <evolution-services/executive-summary-component.h>
#include <evolution-services/executive-summary-html-view.h>

#include <gnome-xml/parser.h>
#include <gnome-xml/xmlmemory.h>

#include "cal-util/cal-component.h"
#include "cal-util/timeutil.h"
#include "alarm.h"
#include "calendar-model.h"

#include "calendar-summary.h"

typedef struct {
	ExecutiveSummaryComponent *component;
	ExecutiveSummaryHtmlView *view;
	BonoboPropertyControl *property_control;
	CalClient *client;

	GtkWidget *show_appointments;
	GtkWidget *show_tasks;

	gboolean appointments;
	gboolean tasks;

	char *title;
	char *icon;
	
	guint32 idle;

	gpointer alarm;
} CalSummary;

enum {
	PROPERTY_TITLE,
	PROPERTY_ICON
};

extern gchar *evolution_dir;

static int running_views = 0;
static BonoboGenericFactory *factory;
#define CALENDAR_SUMMARY_ID "OAFIID:GNOME_Evolution_Calendar_Summary_ComponentFactory"

/* 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;
	CalSummary *summary = user_data;
	CalClientGetStatus status;
	CalComponentDateTime start_a, start_b;

	/* a after b then return > 0 */

	status = cal_client_get_object (summary->client, a, &comp_a);
	if (status != CAL_CLIENT_GET_SUCCESS)
		return -1;

	status = cal_client_get_object (summary->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_summary (gpointer data)
{
	CalSummary *summary;	
	time_t t, day_begin, day_end;
	struct tm *timeptr;
	GList *uids, *l;
	char *ret_html, *tmp, *datestr;

	summary = data;
	
	t = time (NULL);
	day_begin = time_day_begin (t);
	day_end = time_day_end (t);

	datestr = g_new (char, 256);
	timeptr = localtime (&t);
	strftime (datestr, 255, _("%A, %e %B %Y"), timeptr);
	ret_html = g_strdup_printf ("<b>%s</b>", datestr);
	g_free (datestr);

	if (summary->appointments) {
		tmp = ret_html;
		ret_html = g_strdup_printf ("%s<p align=\"center\">Appointments</p><hr><ul>",
					    tmp);
		g_free (tmp);
		
		uids = cal_client_get_objects_in_range (summary->client, 
							CALOBJ_TYPE_EVENT, day_begin,
							day_end);
		uids = cal_list_sort (uids, sort_uids, summary);

		for (l = uids; l; l = l->next){
			CalComponent *comp;
			CalComponentText text;
			CalClientGetStatus status;
			CalComponentDateTime start, end;
			struct icaltimetype *end_time;
			time_t start_t, end_t;
			struct tm *start_tm, *end_tm;
			char *start_str, *end_str;
			char *uid;
			char *tmp2;
			
			uid = l->data;
			status = cal_client_get_object (summary->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);
			
			g_print ("text.value: %s\n", text.value);
			end_time = end.value;
			
			start_t = icaltime_as_timet (*start.value);
			
			start_str = g_new (char, 20);
			start_tm = localtime (&start_t);
			strftime (start_str, 19, _("%I:%M%p"), start_tm);
			
			if (end_time) {
				end_str = g_new (char, 20);
				end_t = icaltime_as_timet (*end_time);
				end_tm = localtime (&end_t);
				strftime (end_str, 19, _("%I:%M%p"), end_tm);
			} else {
				end_str = g_strdup ("...");
			}
			
			tmp2 = g_strdup_printf ("<li>%s:%s -> %s</li>", text.value, start_str, end_str);
			g_free (start_str);
			g_free (end_str);
			
			tmp = ret_html;
			ret_html = g_strconcat (ret_html, tmp2, NULL);
			g_free (tmp);
			g_free (tmp2);
		}
		
		cal_obj_uid_list_free (uids);
	
		tmp = ret_html;
		ret_html = g_strconcat (ret_html, "</ul>", NULL);
		g_free (tmp);
	}

	if (summary->tasks) {
		tmp = ret_html;
		ret_html = g_strconcat (ret_html, 
					"<p align=\"center\">Tasks</p><hr><ul>",
					NULL);
		g_free (tmp);
		
		/* Generate a list of tasks */
		uids = cal_client_get_uids (summary->client, CALOBJ_TYPE_TODO);
		for (l = uids; l; l = l->next){
			CalComponent *comp;
			CalComponentText text;
			CalClientGetStatus status;
			struct icaltimetype *completed;
			char *uid;
			char *tmp2;
			
			uid = l->data;
			status = cal_client_get_object (summary->client, uid, &comp);
			if (status != CAL_CLIENT_GET_SUCCESS)
				continue;
			
			cal_component_get_summary (comp, &text);
			cal_component_get_completed (comp, &completed);
			
			if (completed == NULL) {
				tmp2 = g_strdup_printf ("<li>%s</li>", text.value);
			} else {
				tmp2 = g_strdup_printf ("<li><strike>%s</strike></li>",
							text.value);
				cal_component_free_icaltimetype (completed);
			}
			
			tmp = ret_html;
			ret_html = g_strconcat (ret_html, tmp2, NULL);
			g_free (tmp);
			g_free (tmp2);
		}
		
		cal_obj_uid_list_free (uids);
		
		tmp = ret_html;
		ret_html = g_strconcat (ret_html, "</ul>", NULL);
		g_free (tmp);
	}

	executive_summary_html_view_set_html (summary->view, ret_html);
	g_free (ret_html);
	
	summary->idle = 0;
	return FALSE;
}

static void
get_property (BonoboPropertyBag *bag,
	      BonoboArg *arg,
	      guint arg_id,
	      CORBA_Environment *ev,
	      gpointer data)
{
	CalSummary *summary = (CalSummary *) data;

	switch (arg_id) {
	case PROPERTY_TITLE:
		g_warning ("Get property: %s", summary->title);
		BONOBO_ARG_SET_STRING (arg, summary->title);
		break;

	case PROPERTY_ICON:
		BONOBO_ARG_SET_STRING (arg, summary->icon);
		break;

	default:
		break;
	}
}

static void
set_property (BonoboPropertyBag *bag,
	      const BonoboArg *arg,
	      guint arg_id,
	      CORBA_Environment *ev,
	      gpointer user_data)
{
	CalSummary *summary = (CalSummary *) user_data;

	switch (arg_id) {
	case PROPERTY_TITLE:
		if (summary->title)
			g_free (summary->title);

		summary->title = g_strdup (BONOBO_ARG_GET_STRING (arg));
		bonobo_property_bag_notify_listeners (bag, "window_title",
						      arg, NULL);
		break;

	case PROPERTY_ICON:
		if (summary->icon)
			g_free (summary->icon);

		summary->icon = g_strdup (BONOBO_ARG_GET_STRING (arg));
		bonobo_property_bag_notify_listeners (bag, "window_icon",
						      arg, NULL);
		break;

	default:
		break;
	}
}

static void
component_destroyed (GtkObject *object,
		     gpointer data)
{
	CalSummary *summary = (CalSummary *) data;

	g_free (summary->title);
	g_free (summary->icon);
	gtk_object_destroy (GTK_OBJECT (summary->client));

	g_free (summary);

	running_views--;

	if (running_views <= 0) {
		bonobo_object_unref (BONOBO_OBJECT (factory));
	}
}

static void
obj_updated_cb (CalClient *client,
		const char *uid,
		CalSummary *summary)
{
	/* FIXME: Maybe cache the uid's in the summary and only call this if
	   uid is in this cache??? */

	if (summary->idle != 0) 
		return;

	summary->idle = g_idle_add (generate_html_summary, summary);
}

static void
obj_removed_cb (CalClient *client,
		const char *uid,
		CalSummary *summary)
{
	/* See FIXME: above */
	if (summary->idle != 0)
		return;

	summary->idle = g_idle_add (generate_html_summary, summary);
}

static void
cal_opened_cb (CalClient *client,
	       CalClientOpenStatus status,
	       CalSummary *summary)
{
	switch (status) {
	case CAL_CLIENT_OPEN_SUCCESS:
		if (summary->idle != 0)
			return;

		summary->idle = g_idle_add (generate_html_summary, summary);
		break;

	case CAL_CLIENT_OPEN_ERROR:
		executive_summary_html_view_set_html (summary->view,
						      _("<b>Error loading calendar</b>"));
		break;

	case CAL_CLIENT_OPEN_NOT_FOUND:
		/* We did not use only_if_exists when opening the calendar, so
		 * this should not happen.
		 */
		g_assert_not_reached ();
		break;

	case CAL_CLIENT_OPEN_METHOD_NOT_SUPPORTED:
		executive_summary_html_view_set_html (summary->view,
						      _("<b>Error loading calendar:<br>Method not supported"));
		break;

	default:
		break;
	}
}

static void
alarm_fn (gpointer alarm_id,
	  time_t old_t,
	  gpointer data)
{
	CalSummary *summary;
	time_t t, day_end;

	summary = data;

	/* Remove the old alarm, and start a new one for the next midnight */
	alarm_remove (alarm_id);

	t = time (NULL);
	day_end = time_day_end (t);
	summary->alarm = alarm_add (day_end, alarm_fn, summary, NULL);

	/* Now redraw the summary */
	generate_html_summary (summary);
}

/* PersistStream callbacks */
static void
load_from_stream (BonoboPersistStream *ps,
		  Bonobo_Stream stream,
		  Bonobo_Persist_ContentType type,
		  gpointer data,
		  CORBA_Environment *ev)
{
	CalSummary *summary = (CalSummary *) data;
	char *str;
	xmlChar *xml_str;
	xmlDocPtr doc;
	xmlNodePtr root, children;

	if (*type && g_strcasecmp (type, "application/x-evolution-calendar-summary") != 0) {
		CORBA_exception_set (ev, CORBA_USER_EXCEPTION, 
				     ex_Bonobo_Persist_WrongDataType, NULL);
		return;
	}

	bonobo_stream_client_read_string (stream, &str, ev);
	if (ev->_major != CORBA_NO_EXCEPTION || str == NULL) {
		CORBA_exception_set (ev, CORBA_USER_EXCEPTION,
				     ex_Bonobo_Persist_WrongDataType, NULL);
		return;
	}

	doc = xmlParseDoc ((xmlChar *) str);

	if (doc == NULL) {
		g_warning ("Bad data: %s!", str);
		CORBA_exception_set (ev, CORBA_USER_EXCEPTION,
				     ex_Bonobo_Persist_WrongDataType, NULL);
		g_free (str);
		return;
	}

	g_free (str);
	root = doc->root;
	children = root->childs;
	while (children) {
		if (strcasecmp (children->name, "showappointments") == 0) {
			xml_str = xmlNodeListGetString (doc, children->childs, 1);
			if (strcmp (xml_str, "TRUE") == 0)
				summary->appointments = TRUE;
			else 
				summary->appointments = FALSE;
			xmlFree (xml_str);

			children = children->next;
			continue;
		}

		if (strcasecmp (children->name, "showtasks") == 0) {
			xml_str = xmlNodeListGetString (doc, children->childs, 1);
			if (strcmp (xml_str, "TRUE") == 0)
				summary->tasks = TRUE;
			else
				summary->tasks = FALSE;
			xmlFree (xml_str);

			children = children->next;
			continue;
		}

		g_print ("Unknown name: %s\n", children->name);
		children = children->next;
	}
	xmlFreeDoc (doc);

	summary->idle = g_idle_add (generate_html_summary, summary);
}

static char *
summary_to_string (CalSummary *summary)
{
	xmlChar *out_str;
	int out_len = 0;
	xmlDocPtr doc;
	xmlNsPtr ns;

	doc = xmlNewDoc ("1.0");
	ns = xmlNewGlobalNs (doc, "http://www.helixcode.com", "calendar-summary");
	doc->root = xmlNewDocNode (doc, ns, "calendar-summary", NULL);

	xmlNewChild (doc->root, ns, "showappointments", 
		     summary->appointments ? "TRUE" : "FALSE");
	xmlNewChild (doc->root, ns, "showtasks", summary->tasks ? "TRUE" : "FALSE");
	
	xmlDocDumpMemory (doc, &out_str, &out_len);
	return out_str;
}

static void
save_to_stream (BonoboPersistStream *ps,
		const Bonobo_Stream stream,
		Bonobo_Persist_ContentType type,
		gpointer data,
		CORBA_Environment *ev)
{
	CalSummary *summary = (CalSummary *) data;
	char *str;

	if (*type && g_strcasecmp (type, "application/x-evolution-calendar-summary") != 0) {
		CORBA_exception_set (ev, CORBA_USER_EXCEPTION,
				     ex_Bonobo_Persist_WrongDataType, NULL);
		return;
	}

	str = summary_to_string (summary);
	if (str)
		bonobo_stream_client_printf (stream, TRUE, ev, str);
	xmlFree (str);

	return;
}

static Bonobo_Persist_ContentTypeList *
content_types (BonoboPersistStream *ps,
	       void *closure,
	       CORBA_Environment *ev)
{
	return bonobo_persist_generate_content_types (1, "application/x-evolution-calendar-summary");
}

static void
property_dialog_changed (GtkWidget *widget,
			 CalSummary *summary)
{
	bonobo_property_control_changed (summary->property_control, NULL);
}

static BonoboControl *
property_dialog (BonoboPropertyControl *property_control,
		 int page_num,
		 void *user_data)
{
	BonoboControl *control;
	CalSummary *summary = (CalSummary *) user_data;
	GtkWidget *container, *vbox;

	container = gtk_frame_new (_("Display"));
	gtk_container_set_border_width (GTK_CONTAINER (container), 2);
	vbox = gtk_vbox_new (FALSE, 2);
	gtk_container_add (GTK_CONTAINER (container), vbox);
	
	summary->show_appointments = gtk_check_button_new_with_label (_("Show appointments"));
	gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (summary->show_appointments), 
				      summary->appointments);
	gtk_signal_connect (GTK_OBJECT (summary->show_appointments), "toggled",
			    GTK_SIGNAL_FUNC (property_dialog_changed), summary);
	gtk_box_pack_start (GTK_BOX (vbox), summary->show_appointments, 
			    TRUE, TRUE, 0);
	
	summary->show_tasks = gtk_check_button_new_with_label (_("Show tasks"));
	gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (summary->show_tasks),
				      summary->tasks);
	gtk_signal_connect (GTK_OBJECT (summary->show_tasks), "toggled",
			    GTK_SIGNAL_FUNC (property_dialog_changed), summary);
	gtk_box_pack_start (GTK_BOX (vbox), summary->show_tasks, TRUE, TRUE, 0);
	gtk_widget_show_all (container);

	control = bonobo_control_new (container);
	return control;
}

static void
property_action (GtkObject *property_control,
		 int page_num,
		 Bonobo_PropertyControl_Action action,
		 CalSummary *summary)
{
	switch (action) {
	case Bonobo_PropertyControl_APPLY:
		summary->appointments = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (summary->show_appointments));
		summary->tasks = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (summary->show_tasks));
		summary->idle = g_idle_add (generate_html_summary, summary);
		break;

	case Bonobo_PropertyControl_HELP:
		g_print ("HELP\n");
		break;

	default:
		break;
	}
}

BonoboObject *
create_summary_view (ExecutiveSummaryComponentFactory *_factory,
		     void *closure)
{
	BonoboObject *component, *view;
	BonoboPersistStream *stream;
	BonoboPropertyBag *bag;
	BonoboPropertyControl *property_control;
	BonoboEventSource *event_source;
	CalSummary *summary;
	char *file;
	time_t t, day_end;

	file = g_concat_dir_and_file (evolution_dir, "local/Calendar/calendar.ics");

	/* Create the component object */
	component = executive_summary_component_new ();

	summary = g_new (CalSummary, 1);
	summary->component = EXECUTIVE_SUMMARY_COMPONENT (component);
	summary->icon = g_strdup ("evolution-calendar.png");
	summary->title = g_strdup ("Things to do");
	summary->client = cal_client_new ();
	summary->idle = 0;
	summary->appointments = TRUE;
	summary->tasks = TRUE;

	t = time (NULL);
	day_end = time_day_end (t);
	summary->alarm = alarm_add (day_end, alarm_fn, summary, NULL);

	/* Load calendar */
	cal_client_open_calendar (summary->client, file, FALSE);
	g_free (file);

	gtk_signal_connect (GTK_OBJECT (summary->client), "cal-opened",
			    GTK_SIGNAL_FUNC (cal_opened_cb), summary);
	gtk_signal_connect (GTK_OBJECT (summary->client), "obj-updated",
			    GTK_SIGNAL_FUNC (obj_updated_cb), summary);
	gtk_signal_connect (GTK_OBJECT (summary->client), "obj-removed",
			    GTK_SIGNAL_FUNC (obj_removed_cb), summary);
		
	gtk_signal_connect (GTK_OBJECT (component), "destroy",
			    GTK_SIGNAL_FUNC (component_destroyed), summary);

	event_source = bonobo_event_source_new ();

	/* HTML view */
	view = executive_summary_html_view_new_full (event_source);
	summary->view = EXECUTIVE_SUMMARY_HTML_VIEW (view);

	executive_summary_html_view_set_html (EXECUTIVE_SUMMARY_HTML_VIEW (view),
					      _("Loading Calendar"));
	bonobo_object_add_interface (component, view);

	/* BonoboPropertyBag */
	bag = bonobo_property_bag_new_full (get_property, set_property, 
					    event_source, summary);
	bonobo_property_bag_add (bag, "window_title", PROPERTY_TITLE,
				 BONOBO_ARG_STRING, NULL, 
				 "The title of this component's window", 0);
	bonobo_property_bag_add (bag, "window_icon", PROPERTY_ICON,
				 BONOBO_ARG_STRING, NULL, 
				 "The icon for this component's window", 0);
	bonobo_object_add_interface (component, BONOBO_OBJECT (bag));

	property_control = bonobo_property_control_new_full (property_dialog, 
							     1, event_source,
							     summary);
	summary->property_control = property_control;
	gtk_signal_connect (GTK_OBJECT (property_control), "action",
			    GTK_SIGNAL_FUNC (property_action), summary);
	bonobo_object_add_interface (component, BONOBO_OBJECT (property_control));
			    
	stream = bonobo_persist_stream_new (load_from_stream, save_to_stream,
					    NULL, content_types, summary);
	bonobo_object_add_interface (component, BONOBO_OBJECT (stream));

	running_views++;

	return component;
}

static BonoboObject *
factory_fn (BonoboGenericFactory *generic_factory,
	    void *closure)
{
	BonoboObject *_factory;

	_factory = executive_summary_component_factory_new (create_summary_view,
							    NULL);
	return _factory;
}

BonoboGenericFactory *
calendar_summary_factory_init (void)
{
	if (factory != NULL)
		return factory;

	factory = bonobo_generic_factory_new (CALENDAR_SUMMARY_ID, factory_fn,
					      NULL);

	if (factory == NULL) {
		g_warning ("Cannot initialise calendar summary factory");
		return NULL;
	}

	return factory;
}