/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */
/* evolution-test-component.c
 *
 * Copyright (C) 2001, 2002  Ximian, Inc.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of version 2 of the GNU General Public
 * License as published by the Free Software Foundation.
 *
 * 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.
 *
 * Author: Ettore Perazzoli
 */

/* Simple test component for the Evolution shell.  */

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

#include "evolution-shell-component.h"

#include "evolution-activity-client.h"
#include "evolution-config-control.h"
#include "evolution-storage.h"

#include <bonobo-activation/bonobo-activation.h>

#include <bonobo/bonobo-exception.h>
#include <bonobo/bonobo-generic-factory.h>
#include <bonobo/bonobo-main.h>
#include <bonobo/bonobo-widget.h>

#include <libgnomeui/gnome-ui-init.h>

#include <gtk/gtkdialog.h>
#include <gtk/gtkeventbox.h>
#include <gtk/gtklabel.h>
#include <gtk/gtkmain.h>
#include <gtk/gtkstock.h>
#include <gtk/gtkvbox.h>

#include <gdk-pixbuf/gdk-pixbuf.h>

#include <stdlib.h>


#define COMPONENT_ID "OAFIID:GNOME_Evolution_TestComponent_ShellComponent"

#define CONFIGURATION_CONTROL_FACTORY_ID "OAFIID:GNOME_Evolution_TestComponent_ConfigurationControlFactory"
#define CONFIGURATION_CONTROL_ID         "OAFIID:GNOME_Evolution_TestComponent_ConfigurationControl"

static const EvolutionShellComponentFolderType folder_types[] = {
	{ "test", "/usr/share/pixmaps/gnome-money.png", N_("Test"), N_("Test type"), FALSE, NULL, NULL },
	{ NULL }
};


static BonoboGenericFactory *configuration_control_factory = NULL;

static EvolutionShellClient *parent_shell = NULL;

static int timeout_id = 0;


/* TEST #1: Configuration Control.  */

static BonoboObject *
create_configuration_page (void)
{
	GtkWidget *label;

	label = gtk_label_new ("This is the configuration page for the test component.");
	gtk_widget_show (label);

	return BONOBO_OBJECT (evolution_config_control_new (label));
}

static BonoboObject *
configuration_control_factory_fn (BonoboGenericFactory *factory,
				  const char *id,
				  void *closure)
{
	if (strcmp (id, CONFIGURATION_CONTROL_ID) == 0) {
		return create_configuration_page ();
	} else {
		g_warning ("Unknown ID in configuration control factory -- %s", id);
		return NULL;
	}
}

static void
register_configuration_control_factory (void)
{
	configuration_control_factory = bonobo_generic_factory_new (CONFIGURATION_CONTROL_FACTORY_ID,
								    configuration_control_factory_fn,
								    NULL);

	if (configuration_control_factory == NULL)
		g_warning ("Cannot register configuration control factory!");
}


/* TEST #2: The ::Shortcut interface.  */

static void
spit_out_shortcuts (EvolutionShellClient *shell_client)
{
	GNOME_Evolution_Shortcuts shortcuts_interface;
	GNOME_Evolution_Shortcuts_GroupList *groups;
	CORBA_Environment ev;
	int i, j;

	CORBA_exception_init (&ev);

	shortcuts_interface = evolution_shell_client_get_shortcuts_interface (shell_client);
	if (CORBA_Object_is_nil (shortcuts_interface, &ev)) {
		g_warning ("No ::Shortcut interface on the shell");
		CORBA_exception_free (&ev);
		return;
	}

	groups = GNOME_Evolution_Shortcuts__get_groups (shortcuts_interface, &ev);
	if (ev._major != CORBA_NO_EXCEPTION) {
		g_warning ("Exception getting the groups: %s", BONOBO_EX_REPOID (&ev));
		CORBA_exception_free (&ev);
		return;
	}

	for (i = 0; i < groups->_length; i ++) {
		GNOME_Evolution_Shortcuts_Group *group;
		GNOME_Evolution_Shortcuts_ShortcutList *shortcuts;

		group = groups->_buffer + i;
		shortcuts = &group->shortcuts;

		g_print ("\tGROUP: %s\n", group->name);

		for (j = 0; j < shortcuts->_length; j ++) {
			GNOME_Evolution_Shortcuts_Shortcut *shortcut;

			shortcut = shortcuts->_buffer + j;

			g_print ("\t\tName: %s\n", shortcut->name);
			g_print ("\t\t\tType: %s\n", shortcut->type);
			g_print ("\t\t\tURI: %s\n", shortcut->uri);
		}
	}

	g_print ("** Done\n\n");

	CORBA_exception_free (&ev);
}


/* TEST #4: The multiple folder selector.  */

static void
dialog_clicked_callback (GtkDialog *dialog,
			 int button_num,
			 void *data)
{
	GNOME_Evolution_StorageSetView storage_set_view_iface;
	CORBA_Environment ev;
	GNOME_Evolution_FolderList *folder_list;

	if (button_num == 1) {
		/* Close.  */
		gtk_widget_destroy (GTK_WIDGET (dialog));
		return;
	}

	CORBA_exception_init (&ev);

	storage_set_view_iface = (GNOME_Evolution_StorageSetView) data;

	folder_list = GNOME_Evolution_StorageSetView__get_checkedFolders (storage_set_view_iface, &ev);
	if (BONOBO_EX (&ev)) {
		g_warning ("Cannot get checkedFolders -- %s", BONOBO_EX_REPOID (&ev));
	} else {
		int i;

		for (i = 0; i < folder_list->_length; i ++) {
#define PRINT(s) g_print ("\t" #s ": %s\n", folder_list->_buffer[i].s);
			g_print ("Folder #%d:\n", i + 1);
			PRINT (type);
			PRINT (description);
			PRINT (displayName);
			PRINT (physicalUri);
			PRINT (evolutionUri);
#undef PRINT

			g_print ("\tunreadCount: %d\n", folder_list->_buffer[i].unreadCount);
		}
	}

	CORBA_exception_free (&ev);
}

static void
dialog_destroy_callback (GtkObject *object,
			 void *data)
{
	GNOME_Evolution_StorageSetView storage_set_view_iface;
	CORBA_Environment ev;

	CORBA_exception_init (&ev);

	storage_set_view_iface = (GNOME_Evolution_StorageSetView) data;
	Bonobo_Unknown_unref (storage_set_view_iface, &ev);

	CORBA_exception_free (&ev);
}

static void
create_new_folder_selector (EvolutionShellComponent *shell_component)
{
	EvolutionShellClient *shell_client;
	GNOME_Evolution_Shell corba_shell;
	GNOME_Evolution_StorageSetView storage_set_view_iface;
	GtkWidget *dialog;
	GtkWidget *control_widget;
	CORBA_Environment ev;

	CORBA_exception_init (&ev);

	shell_client = evolution_shell_component_get_owner (shell_component);
	g_assert (shell_client != NULL);
	corba_shell = evolution_shell_client_corba_objref (shell_client);

	control_widget = evolution_shell_client_create_storage_set_view (shell_client,
									 CORBA_OBJECT_NIL,
									 NULL,
									 &storage_set_view_iface,
									 &ev);
	if (control_widget == NULL) {
		g_warning ("Can't create the StorageSetView control -- %s", BONOBO_EX_REPOID (&ev));
		CORBA_exception_free (&ev);
		return;
	}

	dialog = gtk_dialog_new_with_buttons ("Test the Selector here.", NULL,
					      GTK_DIALOG_MODAL,
					      GTK_STOCK_APPLY, GTK_RESPONSE_ACCEPT,
					      GTK_STOCK_CLOSE, GTK_RESPONSE_CLOSE,
					      NULL);
	gtk_window_set_default_size (GTK_WINDOW (dialog), 200, 400);
	gtk_window_set_policy (GTK_WINDOW (dialog), FALSE, TRUE, FALSE);

	gtk_container_add (GTK_CONTAINER (GTK_DIALOG (dialog)->vbox), control_widget);

	GNOME_Evolution_StorageSetView__set_showCheckboxes (storage_set_view_iface, TRUE, &ev);
	if (BONOBO_EX (&ev))
		g_warning ("Cannot show checkboxes -- %s", BONOBO_EX_REPOID (&ev));

	g_signal_connect (dialog, "clicked",
			  G_CALLBACK (dialog_clicked_callback), storage_set_view_iface);

	/* This is necessary to unref the StorageSetView iface once we are done
	   with it.  */
	g_signal_connect (dialog, "destroy",
			  G_CALLBACK (dialog_destroy_callback), storage_set_view_iface);

	gtk_widget_show (control_widget);
	gtk_widget_show (dialog);

	CORBA_exception_free (&ev);
}


/* TEST #5: Test custom storage.  */

static int
shared_folder_discovery_timeout_callback (void *data)
{
	GNOME_Evolution_Storage_FolderResult result;
	CORBA_Environment ev;
	Bonobo_Listener listener;
	CORBA_any any;
	EvolutionStorage *storage;

	storage = EVOLUTION_STORAGE (data);

	listener = (Bonobo_Listener) g_object_get_data (G_OBJECT (storage), "listener");

	result.result = GNOME_Evolution_Storage_OK;
	result.path = "/Shared Folders/The Public Folder";

	any._type = TC_GNOME_Evolution_Storage_FolderResult;
	any._value = &result;

	CORBA_exception_init (&ev);

	Bonobo_Listener_event (listener, "result", &any, &ev);
	if (BONOBO_EX (&ev))
		g_warning ("Cannot report result for shared folder discovery -- %s",
			   BONOBO_EX_REPOID (&ev));

	Bonobo_Unknown_unref (listener, &ev);
	CORBA_Object_release (listener, &ev);

	CORBA_exception_free (&ev);

	g_object_set_data (G_OBJECT (storage), "listener", NULL);
	g_object_set_data (G_OBJECT (storage), "timeout_id", NULL);

	return FALSE;
}

static void
storage_discover_shared_folder_callback (EvolutionStorage *storage,
					 Bonobo_Listener listener,
					 const char *user,
					 const char *folder_name,
					 void *data)
{
	CORBA_Environment ev;
	Bonobo_Listener listener_copy;

	CORBA_exception_init (&ev);
	listener_copy = CORBA_Object_duplicate (listener, &ev);
	Bonobo_Unknown_ref (listener, &ev);
	CORBA_exception_free (&ev);

	g_print ("Listener copy %p\n", listener_copy);

	timeout_id = g_timeout_add (1000, shared_folder_discovery_timeout_callback, storage);

	g_object_set_data (G_OBJECT (storage), "listener", listener_copy);
	g_object_set_data (G_OBJECT (storage), "timeout_id", GINT_TO_POINTER (timeout_id));
}

static void
storage_cancel_discover_shared_folder_callback (EvolutionStorage *storage,
						const char *user,
						const char *folder_name,
						void *data)
{
	Bonobo_Listener listener;
	CORBA_Environment ev;
	int timeout_id;

	timeout_id = GPOINTER_TO_INT (g_object_get_data (G_OBJECT (storage), "timeout_id"));
	if (timeout_id == 0)
		return;

	g_source_remove (timeout_id);
	g_object_set_data (G_OBJECT (storage), "timeout_id", NULL);

	listener = (Bonobo_Listener) g_object_get_data (G_OBJECT (storage), "listener");

	CORBA_exception_init (&ev);
	Bonobo_Unknown_unref (listener, &ev);
	CORBA_Object_release (listener, &ev);
	CORBA_exception_free (&ev);

	g_object_set_data (G_OBJECT (storage), "listener", NULL);
}

static void
storage_show_folder_properties_callback (EvolutionStorage *storage,
					 const char *path,
					 unsigned int itemNumber,
					 unsigned long parentWindowId,
					 void *data)
{
	g_print ("Show properties #%d -- %s\n", itemNumber, path);
}

static void
setup_custom_storage (EvolutionShellClient *shell_client)
{
	EvolutionStorage *the_storage;
	EvolutionStorageResult result;

	the_storage = evolution_storage_new ("TestStorage", TRUE);

	g_signal_connect (the_storage, "discover_shared_folder",
			  G_CALLBACK (storage_discover_shared_folder_callback), shell_client);
	g_signal_connect (the_storage, "cancel_discover_shared_folder",
			  G_CALLBACK (storage_cancel_discover_shared_folder_callback), shell_client);

	/* Add some custom "Properties" items.  */
	evolution_storage_add_property_item (the_storage, "Sharing...",
					     "Change sharing properties for this folder", NULL); 
	evolution_storage_add_property_item (the_storage, "Permissions...",
					     "Change permissions for this folder", NULL);

	g_signal_connect (the_storage, "show_folder_properties",
			  G_CALLBACK (storage_show_folder_properties_callback), NULL);

	result = evolution_storage_register_on_shell (the_storage, evolution_shell_client_corba_objref (shell_client));
	if (result != EVOLUTION_STORAGE_OK) {
		g_warning ("Cannot register storage on the shell.");
		bonobo_object_unref (BONOBO_OBJECT (the_storage));
		return;
	}

	/* Test the sorting_priority arg here: if it was just sorting in
	   alphabetical order, FirstFolder would come before SecondFolder, but
	   we are specifying -1 sorting priority for SecondFolder and zero for
	   FirstFolder so the order is reversed.  */

	evolution_storage_new_folder (the_storage, "/FirstFolder", "FirstFolder",
				      "mail", "file:///tmp/blah", "", "inbox", 0, TRUE, 0);
	evolution_storage_new_folder (the_storage, "/SecondFolder", "SecondFolder",
				      "calendar", "file:///tmp/bleh", "", NULL, 0, FALSE, -1);
}


/* Callbacks.  */

static void
activity_client_cancel_callback (EvolutionActivityClient *client,
				 void *data)
{
	g_print ("User requested that the operation be cancelled.\n");
}

static void
activity_client_show_details_callback (EvolutionActivityClient *client,
				       void *data)
{
	g_print ("User wants to see details.\n");
}


/* Timeout #3: We are done.  */
static int
timeout_callback_3 (void *data)
{
	EvolutionActivityClient *activity_client;

	activity_client = EVOLUTION_ACTIVITY_CLIENT (data);

	g_object_unref (activity_client);

	g_print ("--> Done.\n");

	return FALSE;
}

/* Timeout #2: Update the progress until it reaches 100%.  */
static int
timeout_callback_2 (void *data)
{
	EvolutionActivityClient *activity_client;
	int progress;

	activity_client = EVOLUTION_ACTIVITY_CLIENT (data);
	progress = GPOINTER_TO_INT (g_object_get_data (G_OBJECT (activity_client), "my_progress"));

	if (progress < 0)
		progress = 0;

	g_print ("--> Updating %d\n", progress);

	if (! evolution_activity_client_update (activity_client, "Operation Foo in progress",
						(float) progress / 100.0)) {
		g_warning ("Error when updating operation");
		return FALSE;
	}

	progress ++;
	g_object_set_data (G_OBJECT (activity_client), "my_progress", GINT_TO_POINTER (progress));

	if (progress > 100) {
		g_timeout_add (200, timeout_callback_3, activity_client);
		return FALSE;
	}

	return TRUE;
}

/* Timeout #1: Set busy.  */
static int
timeout_callback_1 (void *data)
{
	EvolutionActivityClient *activity_client;
	gboolean suggest_display;
	GdkPixbuf *animated_icon[2];
	static int count = 0;

#define NUM_ACTIVITIES 10

	animated_icon[0] = gdk_pixbuf_new_from_file (EVOLUTION_IMAGES "outbox-16.png", NULL);
	animated_icon[1] = NULL;

	g_assert (animated_icon[0] != NULL);

	activity_client = evolution_activity_client_new (parent_shell, COMPONENT_ID,
							 animated_icon,
							 "Operation Foo started!",
							 TRUE,
							 &suggest_display);
	if (activity_client == CORBA_OBJECT_NIL) {
		g_warning ("Cannot create EvolutionActivityClient object");
		return FALSE;
	}

	g_object_set_data (G_OBJECT (activity_client), "my_progress", GINT_TO_POINTER (-1));

	g_signal_connect (activity_client, "cancel",
			  G_CALLBACK (activity_client_cancel_callback), NULL);
	g_signal_connect (activity_client, "show_details",
			  G_CALLBACK (activity_client_show_details_callback), NULL);

	g_print ("Component becoming busy -- %s\n", COMPONENT_ID);
	if (suggest_display)
		g_print (" --> Could display dialog box.\n");

	g_timeout_add (100, timeout_callback_2, activity_client);

	if (count < NUM_ACTIVITIES) {
		count ++;
		g_timeout_add ((rand () % 5 + 1) * 500, timeout_callback_1, NULL);
	}

	return FALSE;
}


static EvolutionShellComponentResult
create_view_fn (EvolutionShellComponent *shell_component,
		const char *physical_uri,
		const char *folder_type,
		const char *view_data,
		BonoboControl **control_return,
		void *closure)
{
	GtkWidget *vbox;
	GtkWidget *label_1, *label_2, *label_3, *label_4;
	GtkWidget *event_box_1, *event_box_2;

	label_1 = gtk_label_new ("This is just a test component, displaying the following URI:");
	label_2 = gtk_label_new (physical_uri);

	if (*view_data) {
		label_3 = gtk_label_new ("And the following view_data:");
		label_4 = gtk_label_new (view_data);
	} else
		label_3 = label_4 = NULL;

	event_box_1 = gtk_event_box_new ();
	event_box_2 = gtk_event_box_new ();

	vbox = gtk_vbox_new (FALSE, 5);

	gtk_box_pack_start (GTK_BOX (vbox), event_box_1, TRUE, TRUE, 0);
	gtk_box_pack_start (GTK_BOX (vbox), label_1, FALSE, TRUE, 0);
	gtk_box_pack_start (GTK_BOX (vbox), label_2, FALSE, TRUE, 0);
	if (label_3) {
		gtk_box_pack_start (GTK_BOX (vbox), label_3, FALSE, TRUE, 0);
		gtk_box_pack_start (GTK_BOX (vbox), label_4, FALSE, TRUE, 0);
	}
	gtk_box_pack_start (GTK_BOX (vbox), event_box_2, TRUE, TRUE, 0);

	gtk_widget_show_all (vbox);

	*control_return = bonobo_control_new (vbox);

	g_assert (timeout_id == 0);
	timeout_id = g_timeout_add (2000, timeout_callback_1, NULL);

	return EVOLUTION_SHELL_COMPONENT_OK;
}

static gboolean
request_quit_fn (EvolutionShellComponent *shell_component,
		 void *closure)
{
	GtkWidget *confirm_dialog;
	GtkWidget *label;
	int response;

	confirm_dialog = gtk_dialog_new_with_buttons ("Quit?", NULL, GTK_DIALOG_MODAL,
						      GTK_STOCK_OK, GTK_RESPONSE_ACCEPT,
						      GTK_STOCK_CANCEL, GTK_RESPONSE_REJECT,
						      NULL);
	label = gtk_label_new ("Please confirm that you want to quit now.");
	gtk_container_add (GTK_CONTAINER (GTK_DIALOG (confirm_dialog)->vbox), label);
	gtk_widget_show_all (confirm_dialog);

	response = gtk_dialog_run (GTK_DIALOG (confirm_dialog));
	gtk_widget_destroy (confirm_dialog);

	if (response == GTK_RESPONSE_ACCEPT)
		return TRUE;	/* OK */
	else
		return FALSE;	/* Cancel */
}


/* Callbacks.  */

static void
owner_set_callback (EvolutionShellComponent *shell_component,
		    EvolutionShellClient *shell_client,
		    const char *evolution_homedir)
{
	g_assert (parent_shell == NULL);

	g_print ("We have an owner -- home directory is `%s'\n", evolution_homedir);

	parent_shell = shell_client;

	if (evolution_shell_client_get_activity_interface (parent_shell) == CORBA_OBJECT_NIL)
		g_warning ("Shell doesn't have a ::Activity interface -- weird!");

	spit_out_shortcuts (shell_client);

	setup_custom_storage (shell_client);
}

static int
owner_unset_idle_callback (void *data)
{
	gtk_main_quit ();
	return FALSE;
}

static void
owner_unset_callback (EvolutionShellComponent *shell_component,
		      void *data)
{
	g_idle_add_full (G_PRIORITY_LOW, owner_unset_idle_callback, NULL, NULL);
}

static void
user_create_new_item_callback (EvolutionShellComponent *shell_component,
			       const char *id,
			       const char *parent_folder_physical_uri,
			       const char *parent_folder_type)
{
	g_print ("\n*** Should create -- %s\n", id);
	g_print ("\n\tType %s, URI %s\n", parent_folder_type, parent_folder_physical_uri);

	if (strcmp (id, "FolderSelector") == 0)
		create_new_folder_selector (shell_component);
}


static void
register_component (void)
{
	EvolutionShellComponent *shell_component;
	int result;

	shell_component = evolution_shell_component_new (folder_types,
							 NULL,
							 create_view_fn,
							 NULL, NULL, NULL, NULL, NULL, NULL,
							 request_quit_fn,
							 NULL);

	g_signal_connect (shell_component, "owner_set",
			  G_CALLBACK (owner_set_callback), NULL);
	g_signal_connect (shell_component, "owner_unset",
			  G_CALLBACK (owner_unset_callback), NULL);

	evolution_shell_component_add_user_creatable_item (shell_component, "Stuff",
							   "New Stuff", "New _Stuff",
							   "Create some new stuff",
							   NULL,
							   '\0', NULL);
	evolution_shell_component_add_user_creatable_item (shell_component, "MoreStuff",
							   "New More Stuff", "New _More Stuff",
							   "Create more stuff",
							   NULL,
							   'n', NULL);
	evolution_shell_component_add_user_creatable_item (shell_component, "FolderSelector",
							   "Folder Selector", "New Folder _Selector",
							   "Show a folder selector",
							   NULL,
							   's', NULL);

	g_signal_connect (shell_component, "user_create_new_item",
			  G_CALLBACK (user_create_new_item_callback), NULL);

	result = bonobo_activation_active_server_register (COMPONENT_ID,
							   bonobo_object_corba_objref (BONOBO_OBJECT (shell_component)));

	if (result != Bonobo_ACTIVATION_REG_SUCCESS)
		g_error ("Cannot register active server into OAF");
}


int
main (int argc, char **argv)
{
	bindtextdomain (PACKAGE, EVOLUTION_LOCALEDIR);
	textdomain (PACKAGE);

	gnome_program_init (PACKAGE, VERSION, LIBGNOMEUI_MODULE, argc, argv, 
			    GNOME_PROGRAM_STANDARD_PROPERTIES,
			    GNOME_PARAM_HUMAN_READABLE_NAME, _("Evolution Test Component"),
			    NULL);

	register_configuration_control_factory ();

	register_component ();

	g_print ("Test Component up and running.\n");

	bonobo_main ();

	return 0;
}
