/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */

/*
 * E-shell.c: Shell object for Evolution
 *
 * Authors:
 *   Miguel de Icaza (miguel@helixcode.com)
 *
 * (C) 1999 Miguel de Icaza
 * (C) 2000 Helix Code, Inc.
 */

#include <config.h>
#include <gtk/gtkmain.h>
#include <libgnome/libgnome.h>
#include "Evolution.h"
#include "e-util/e-util.h"
#include "e-shell.h"

#define PARENT_TYPE (bonobo_object_get_type ())

static BonoboObjectClass *e_shell_parent_class;
POA_Evolution_Shell__vepv eshell_vepv;

GtkType e_shell_get_type (void);

void
e_shell_new_appointment (EShell *eshell)
{
	printf ("Unimplemented function invoked: %s\n", __FUNCTION__);
}

void
e_shell_new_meeting_request (EShell *eshell)
{
	printf ("Unimplemented function invoked: %s\n", __FUNCTION__);
}

void
e_shell_new_task (EShell *eshell)
{
	printf ("Unimplemented function invoked: %s\n", __FUNCTION__);
}

void
e_shell_new_task_request (EShell *eshell)
{
	printf ("Unimplemented function invoked: %s\n", __FUNCTION__);
}

void
e_shell_new_contact (EShell *eshell)
{
	printf ("Unimplemented function invoked: %s\n", __FUNCTION__);
}

void
e_shell_new_mail_message (EShell *eshell)
{
	printf ("Unimplemented function invoked: %s\n", __FUNCTION__);
}

void
e_shell_new_distribution_list (EShell *eshell)
{
	printf ("Unimplemented function invoked: %s\n", __FUNCTION__);
}

void
e_shell_new_journal_entry (EShell *eshell)
{
	printf ("Unimplemented function invoked: %s\n", __FUNCTION__);
}

void
e_shell_new_note (EShell *eshell)
{
	printf ("Unimplemented function invoked: %s\n", __FUNCTION__);
}

static void
EShell_cmd_new (PortableServer_Servant servant,
		const Evolution_Shell_NewType type,
		CORBA_Environment *ev)
{
	EShell *eshell = E_SHELL (bonobo_object_from_servant (servant));

	switch (type){
	case Evolution_Shell_APPOINTMENT:
		e_shell_new_appointment (eshell);
		break;
		
	case Evolution_Shell_MEETING_REQUEST:
		e_shell_new_meeting_request (eshell);
		break;

	case Evolution_Shell_TASK:
		e_shell_new_task (eshell);
		break;

	case Evolution_Shell_TASK_REQUEST:
		e_shell_new_task_request (eshell);
		break;

	case Evolution_Shell_CONTACT:
		e_shell_new_contact (eshell);
		break;

	case Evolution_Shell_MAIL_MESSAGE:
		e_shell_new_mail_message (eshell);
		break;

	case Evolution_Shell_DISTRIBUTION_LIST:
		e_shell_new_distribution_list (eshell);
		break;

	case Evolution_Shell_JOURNAL_ENTRY:
		e_shell_new_journal_entry (eshell);
		break;
		
	case Evolution_Shell_NOTE:
		e_shell_new_note (eshell);
		break;
		
	default:
	}
}

static void 
EShell_register_service (PortableServer_Servant servant,
			 const Evolution_Shell_ServiceType type,
			 const CORBA_char *uri,
			 CORBA_Environment *ev)
{
	char *service_type_desc = NULL;

	switch (type) {

	case Evolution_Shell_MAIL_STORE :
		service_type_desc = "store";
		break;
	case Evolution_Shell_MAIL_TRANSPORT :
		service_type_desc = "transport";
		break;
	default :
		service_type_desc = "service of unknown type";
	}
					
	printf ("A component has registered a %s with uri \"%s\"\n", service_type_desc, uri);

}


static POA_Evolution_Shell__epv *
e_shell_get_epv (void)
{
	POA_Evolution_Shell__epv *epv;

	epv = g_new0 (POA_Evolution_Shell__epv, 1);

	epv->new = EShell_cmd_new;
	epv->register_service = EShell_register_service;

	return epv;
}

static void
init_e_shell_corba_class (void)
{
	eshell_vepv.Bonobo_Unknown_epv = bonobo_object_get_epv ();
	eshell_vepv.Evolution_Shell_epv = e_shell_get_epv ();
}

static void
es_destroy_default_folders (EShell *eshell)
{
	gtk_object_unref (GTK_OBJECT (eshell->default_folders.inbox));
	gtk_object_unref (GTK_OBJECT (eshell->default_folders.outbox));
	gtk_object_unref (GTK_OBJECT (eshell->default_folders.drafts));
	gtk_object_unref (GTK_OBJECT (eshell->default_folders.calendar));
	gtk_object_unref (GTK_OBJECT (eshell->default_folders.tasks));
}

static void
e_shell_destroy (GtkObject *object)
{
	EShell *eshell = E_SHELL (object);

	gtk_object_unref (GTK_OBJECT (eshell->shortcut_bar));
	es_destroy_default_folders (eshell);
	
	GTK_OBJECT_CLASS (e_shell_parent_class)->destroy (object);
}

static void
e_shell_class_init (GtkObjectClass *object_class)
{
	e_shell_parent_class = gtk_type_class (PARENT_TYPE);
	init_e_shell_corba_class ();

	object_class->destroy = e_shell_destroy;
}

static void
e_shell_destroy_views (EShell *eshell)
{

	/*
	 * Notice that eshell->views is updated by the various views
	 * during unregistration
	 */
	while (eshell->views){
		EShellView *view = eshell->views->data;

		gtk_object_destroy (GTK_OBJECT (view));
	}
}

void
e_shell_quit (EShell *eshell)
{
	g_return_if_fail (eshell != NULL);
	g_return_if_fail (E_IS_SHELL (eshell));

	e_shell_destroy_views (eshell);
	
	gtk_main_quit ();
}

static CORBA_Object
create_corba_eshell (BonoboObject *object)
{
	POA_Evolution_Shell *servant;
	CORBA_Environment ev;

	servant = (POA_Evolution_Shell *)g_new0 (BonoboObjectServant, 1);
	servant->vepv = &eshell_vepv;

	CORBA_exception_init (&ev);

	POA_Evolution_Shell__init ((PortableServer_Servant) servant, &ev);
	if (ev._major != CORBA_NO_EXCEPTION){
		CORBA_exception_free (&ev);
		g_free (servant);
		return CORBA_OBJECT_NIL;
	}

	CORBA_exception_free (&ev);

	return bonobo_object_activate_servant (object, servant);
}

static void
e_shell_setup_default_folders (EShell *eshell)
{
	eshell->default_folders.summary = e_folder_new (
		E_FOLDER_SUMMARY, "internal:summary", _("Today"), _("Executive Summary"),
		NULL, "internal:");
	eshell->default_folders.inbox = e_folder_new (
		E_FOLDER_MAIL, "internal:inbox", _("Inbox"), _("New mail messages"),
		NULL, "internal:mail_view");
	eshell->default_folders.outbox = e_folder_new (
		E_FOLDER_MAIL, "internal:outbox", _("Sent messages"), _("Sent mail messages"),
		NULL, "internal:mail_view");
	eshell->default_folders.drafts = e_folder_new (
		E_FOLDER_MAIL, "internal:drafts", _("Drafts"), _("Draft mail messages"),
		NULL, "internal:mail_view");
	eshell->default_folders.calendar = e_folder_new (
		E_FOLDER_CALENDAR, "internal:personal_calendar", _("Calendar"), _("Your calendar"),
		NULL, "internal:calendar_daily");
	eshell->default_folders.contacts = e_folder_new (
		E_FOLDER_CONTACTS, "internal:personal_contacts", _("Contacts"), _("Your contacts list"),
		NULL, "internal:contact_view");
	eshell->default_folders.tasks = e_folder_new (
		E_FOLDER_TASKS, "internal:personal_calendar", _("Tasks"), _("Tasks list"),
		NULL, "internal:tasks_view");
}

static EShortcutGroup *
setup_main_shortcuts (EShell *eshell)
{
	EShortcutGroup *m;

	m = e_shortcut_group_new (_("Main Shortcuts"), FALSE);
	e_shortcut_group_append (m, e_shortcut_new (eshell->default_folders.summary));
	e_shortcut_group_append (m, e_shortcut_new (eshell->default_folders.inbox));
	e_shortcut_group_append (m, e_shortcut_new (eshell->default_folders.calendar));
	e_shortcut_group_append (m, e_shortcut_new (eshell->default_folders.contacts));
	e_shortcut_group_append (m, e_shortcut_new (eshell->default_folders.tasks));

	return m;
}

static EShortcutGroup *
setup_secondary_shortcuts (EShell *eshell)
{
	EShortcutGroup *sec;

	sec = e_shortcut_group_new (_("Other Shortcuts"), TRUE);
	
	e_shortcut_group_append (sec, e_shortcut_new (eshell->default_folders.drafts));
	e_shortcut_group_append (sec, e_shortcut_new (eshell->default_folders.outbox));

	return sec;
}

static void
e_shell_setup_default_shortcuts (EShell *eshell)
{
	eshell->shortcut_bar = e_shortcut_bar_model_new ();
	e_shortcut_bar_model_append (
		eshell->shortcut_bar,
		setup_main_shortcuts (eshell));
	e_shortcut_bar_model_append (
		eshell->shortcut_bar,
		setup_secondary_shortcuts (eshell));
}

static void
e_shell_init (GtkObject *object)
{
	EShell *eshell = E_SHELL (object);
	
	e_shell_setup_default_folders (eshell);
	e_shell_setup_default_shortcuts (eshell);
}

static void
e_shell_construct (EShell *eshell, Evolution_Shell corba_eshell)
{
	bonobo_object_construct (BONOBO_OBJECT (eshell), corba_eshell);
}

EShell *
e_shell_new (void)
{
	Evolution_Shell corba_eshell;
	EShell *eshell;

	eshell = gtk_type_new (e_shell_get_type ());

	corba_eshell = create_corba_eshell (BONOBO_OBJECT (eshell));
	if (corba_eshell == CORBA_OBJECT_NIL){
		gtk_object_destroy (GTK_OBJECT (eshell));
		return NULL;
	}
	
	e_shell_construct (eshell, corba_eshell);

	return eshell;
}

void
e_shell_register_view (EShell *eshell, EShellView *eshell_view)
{
	g_return_if_fail (eshell != NULL);
	g_return_if_fail (E_IS_SHELL (eshell));
	g_return_if_fail (eshell_view != NULL);

	eshell->views = g_slist_prepend (eshell->views, eshell_view);
}

void
e_shell_unregister_view (EShell *eshell, EShellView *eshell_view)
{
	g_return_if_fail (eshell != NULL);
	g_return_if_fail (E_IS_SHELL (eshell));
	g_return_if_fail (eshell_view != NULL);

	eshell->views = g_slist_remove (eshell->views, eshell_view);
}

E_MAKE_TYPE (e_shell, "EShell", EShell, e_shell_class_init, e_shell_init, PARENT_TYPE);