/*
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) version 3.
 *
 * 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with the program; if not, see <http://www.gnu.org/licenses/>
 *
 * Copyright (C) 1999-2008 Novell, Inc. (www.novell.com)
 *
 */

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

#include <gtk/gtk.h>
#include <glib/gi18n-lib.h>
#include <libebook/e-book-client.h>
#include <libebook/e-contact.h>
#include <libedataserverui/e-client-utils.h>
#include <libedataserverui/e-source-selector-dialog.h>

#include "addressbook/gui/merging/eab-contact-merging.h"
#include "addressbook/gui/widgets/eab-contact-formatter.h"
#include "addressbook/util/eab-book-util.h"
#include "mail/em-format-hook.h"
#include "mail/em-format-html.h"
#include "mail/e-mail-display.h"

#define d(x)

typedef struct _VCardInlinePURI VCardInlinePURI;

struct _VCardInlinePURI {
	EMFormatPURI puri;

	GSList *contact_list;
	ESourceList *source_list;
	GtkWidget *contact_display;
	GtkWidget *message_label;

	EABContactFormatter *formatter;
	WebKitDOMElement *iframe;
	WebKitDOMElement *toggle_button;
	WebKitDOMElement *save_button;
};

/* Forward Declarations */
void org_gnome_vcard_inline_format (gpointer ep, EMFormatHookTarget *target);
gint e_plugin_lib_enable (EPlugin *ep, gint enable);

gint
e_plugin_lib_enable (EPlugin *ep,
                     gint enable)
{
	return 0;
}

static void
org_gnome_vcard_inline_pobject_free (EMFormatPURI *object)
{
	VCardInlinePURI *vcard_object;

	vcard_object = (VCardInlinePURI *) object;

	e_client_util_free_object_slist (vcard_object->contact_list);
	vcard_object->contact_list = NULL;

	if (vcard_object->source_list != NULL) {
		g_object_unref (vcard_object->source_list);
		vcard_object->source_list = NULL;
	}

	if (vcard_object->contact_display != NULL) {
		g_object_unref (vcard_object->contact_display);
		vcard_object->contact_display = NULL;
	}

	if (vcard_object->message_label != NULL) {
		g_object_unref (vcard_object->message_label);
		vcard_object->message_label = NULL;
	}

	if (vcard_object->formatter != NULL) {
		g_object_unref (vcard_object->formatter);
		vcard_object->formatter = NULL;
	}

	if (vcard_object->iframe != NULL) {
		g_object_unref (vcard_object->iframe);
		vcard_object->iframe = NULL;
	}

	if (vcard_object->toggle_button != NULL) {
		g_object_unref (vcard_object->toggle_button);
		vcard_object->toggle_button = NULL;
	}

	if (vcard_object->save_button != NULL) {
		g_object_unref (vcard_object->save_button);
		vcard_object->save_button = NULL;
	}
}

static void
org_gnome_vcard_inline_decode (VCardInlinePURI *vcard_object,
                               CamelMimePart *mime_part)
{
	CamelDataWrapper *data_wrapper;
	CamelMedium *medium;
	CamelStream *stream;
	GSList *contact_list;
	GByteArray *array;
	const gchar *string;
	const guint8 padding[2] = {0};

	array = g_byte_array_new ();
	medium = CAMEL_MEDIUM (mime_part);

	/* Stream takes ownership of the byte array. */
	stream = camel_stream_mem_new_with_byte_array (array);
	data_wrapper = camel_medium_get_content (medium);
	camel_data_wrapper_decode_to_stream_sync (
		data_wrapper, stream, NULL, NULL);

	/* because the result is not NULL-terminated */
	g_byte_array_append (array, padding, 2);

	string = (gchar *) array->data;
	contact_list = eab_contact_list_from_string (string);
	vcard_object->contact_list = contact_list;

	g_object_unref (mime_part);
	g_object_unref (stream);
}

static void
org_gnome_vcard_inline_client_loaded_cb (ESource *source,
                                         GAsyncResult *result,
                                         GSList *contact_list)
{
	EClient *client = NULL;
	EBookClient *book_client;
	GSList *iter;
	GError *error = NULL;

	e_client_utils_open_new_finish (source, result, &client, &error);

	if (error != NULL) {
		g_warn_if_fail (client == NULL);
		g_warning (
			"%s: Failed to open book client: %s",
			G_STRFUNC, error->message);
		g_error_free (error);
		goto exit;
	}

	g_return_if_fail (E_IS_BOOK_CLIENT (client));

	book_client = E_BOOK_CLIENT (client);

	for (iter = contact_list; iter != NULL; iter = iter->next) {
		EContact *contact;

		contact = E_CONTACT (iter->data);
		eab_merging_book_add_contact (book_client, contact, NULL, NULL);
	}

	g_object_unref (client);

 exit:
	e_client_util_free_object_slist (contact_list);
}

static void
org_gnome_vcard_inline_save_cb (WebKitDOMEventTarget *button,
                                WebKitDOMEvent *event,
                                VCardInlinePURI *vcard_object)
{
	ESource *source;
	GSList *contact_list;
	GtkWidget *dialog;

	g_return_if_fail (vcard_object->source_list != NULL);

	dialog = e_source_selector_dialog_new (NULL, vcard_object->source_list);

	e_source_selector_dialog_select_default_source (
		E_SOURCE_SELECTOR_DIALOG (dialog));

	if (gtk_dialog_run (GTK_DIALOG (dialog)) != GTK_RESPONSE_OK) {
		gtk_widget_destroy (dialog);
		return;
	}

	source = e_source_selector_dialog_peek_primary_selection (
		E_SOURCE_SELECTOR_DIALOG (dialog));

	gtk_widget_destroy (dialog);

	g_return_if_fail (source != NULL);

	contact_list = e_client_util_copy_object_slist (NULL, vcard_object->contact_list);

	e_client_utils_open_new (
		source, E_CLIENT_SOURCE_TYPE_CONTACTS, FALSE,
		NULL, e_client_utils_authenticate_handler, NULL,
		(GAsyncReadyCallback) org_gnome_vcard_inline_client_loaded_cb,
		contact_list);
}

static void
org_gnome_vcard_inline_toggle_cb (WebKitDOMEventTarget *button,
                                  WebKitDOMEvent *event,
                                  EMFormatPURI *puri)
{
	VCardInlinePURI *vcard_object;
	EABContactDisplayMode mode;
	gchar *uri;

	vcard_object = (VCardInlinePURI *) puri;

	mode = eab_contact_formatter_get_display_mode (vcard_object->formatter);
	if (mode == EAB_CONTACT_DISPLAY_RENDER_NORMAL) {
		mode = EAB_CONTACT_DISPLAY_RENDER_COMPACT;

		webkit_dom_html_element_set_inner_text (
			WEBKIT_DOM_HTML_ELEMENT (button),
			_("Show Full vCard"), NULL);

	} else {
		mode = EAB_CONTACT_DISPLAY_RENDER_NORMAL;

		webkit_dom_html_element_set_inner_text (
			WEBKIT_DOM_HTML_ELEMENT (button),
			_("Show Compact vCard"), NULL);
	}

	eab_contact_formatter_set_display_mode (vcard_object->formatter, mode);

	uri = em_format_build_mail_uri (
		puri->emf->folder, puri->emf->message_uid,
		"part_id", G_TYPE_STRING, puri->uri,
		"mode", G_TYPE_INT, EM_FORMAT_WRITE_MODE_RAW, NULL);

	webkit_dom_html_iframe_element_set_src (
		WEBKIT_DOM_HTML_IFRAME_ELEMENT (vcard_object->iframe), uri);

	g_free (uri);
}

static void
org_gnome_vcard_inline_bind_dom (WebKitDOMElement *attachment,
                                 EMFormatPURI *puri)
{
	WebKitDOMNodeList *list;
	WebKitDOMElement *iframe, *toggle_button, *save_button;
	VCardInlinePURI *vcard_object;

	vcard_object = (VCardInlinePURI *) puri;

        /* IFRAME */
	list = webkit_dom_element_get_elements_by_tag_name (attachment, "iframe");
	if (webkit_dom_node_list_get_length (list) != 1)
		return;
	iframe = WEBKIT_DOM_ELEMENT (webkit_dom_node_list_item (list, 0));
	if (vcard_object->iframe)
		g_object_unref (vcard_object->iframe);
	vcard_object->iframe = g_object_ref (iframe);

	/* TOGGLE DISPLAY MODE BUTTON */
	list = webkit_dom_element_get_elements_by_class_name (
		attachment, "org-gnome-vcard-inline-display-mode-button");
	if (webkit_dom_node_list_get_length (list) != 1)
		return;
	toggle_button = WEBKIT_DOM_ELEMENT (webkit_dom_node_list_item (list, 0));
	if (vcard_object->toggle_button)
		g_object_unref (vcard_object->toggle_button);
	vcard_object->toggle_button = g_object_ref (toggle_button);

	/* SAVE TO ADDRESSBOOK BUTTON */
	list = webkit_dom_element_get_elements_by_class_name (
		attachment, "org-gnome-vcard-inline-save-button");
	if (webkit_dom_node_list_get_length (list) != 1)
		return;
	save_button = WEBKIT_DOM_ELEMENT (webkit_dom_node_list_item (list, 0));
	if (vcard_object->save_button)
		g_object_unref (vcard_object->save_button);
	vcard_object->save_button = g_object_ref (save_button);

	webkit_dom_event_target_add_event_listener (
		WEBKIT_DOM_EVENT_TARGET (toggle_button),
		"click", G_CALLBACK (org_gnome_vcard_inline_toggle_cb),
		FALSE, puri);

	webkit_dom_event_target_add_event_listener (
		WEBKIT_DOM_EVENT_TARGET (save_button),
		"click", G_CALLBACK (org_gnome_vcard_inline_save_cb),
		FALSE, puri);
}

static void
org_gnome_vcard_inline_write (EMFormat *emf,
                              EMFormatPURI *puri,
                              CamelStream *stream,
                              EMFormatWriterInfo *info,
                              GCancellable *cancellable)
{
	VCardInlinePURI *vpuri;

	vpuri = (VCardInlinePURI *) puri;

	if (info->mode == EM_FORMAT_WRITE_MODE_RAW)  {

		EContact *contact;

		if (vpuri->contact_list != NULL)
			contact = E_CONTACT (vpuri->contact_list->data);
		else
			contact = NULL;

		eab_contact_formatter_format_contact_sync (
			vpuri->formatter, contact, stream, cancellable);

	} else {
		gchar *str, *uri;
		gint length;
		const gchar *label = NULL;
		EABContactDisplayMode mode;
		const gchar *info = NULL;

		length = g_slist_length (vpuri->contact_list);
		if (length < 1)
			return;

		uri = em_format_build_mail_uri (
			emf->folder, emf->message_uid,
			"part_id", G_TYPE_STRING, puri->uri,
			"mode", G_TYPE_INT, EM_FORMAT_WRITE_MODE_RAW, NULL);

		mode = eab_contact_formatter_get_display_mode (vpuri->formatter);
		if (mode == EAB_CONTACT_DISPLAY_RENDER_COMPACT) {
			mode = EAB_CONTACT_DISPLAY_RENDER_NORMAL;
			label =_("Show Full vCard");
		} else {
			mode = EAB_CONTACT_DISPLAY_RENDER_COMPACT;
			label = _("Show Compact vCard");
		}

		str = g_strdup_printf (
			"<div id=\"%s\">"
			"<button type=\"button\" "
				"name=\"set-display-mode\" "
				"class=\"org-gnome-vcard-inline-display-mode-button\" "
				"value=\"%d\">%s</button>"
			"<button type=\"button\" "
				"name=\"save-to-addressbook\" "
				"class=\"org-gnome-vcard-inline-save-button\" "
				"value=\"%s\">%s</button><br/>"
			"<iframe width=\"100%%\" height=\"auto\" frameborder=\"0\""
				"src=\"%s\" name=\"%s\"></iframe>"
			"</div>",
			 puri->uri,
			 mode, label,
			 puri->uri, _("Save To Addressbook"),
			 uri, puri->uri);

		camel_stream_write_string (stream, str, cancellable, NULL);

		g_free (str);

		if (length == 2) {

			info = _("There is one other contact.");

		} else if (length > 2) {

			/* Translators: This will always be two or more. */
			info = g_strdup_printf (ngettext (
				"There is %d other contact.",
				"There are %d other contacts.",
				length - 1), length - 1);
		}

		if (info) {

			str = g_strdup_printf (
				"<div class=\"attachment-info\">%s</div>",
				info);

			camel_stream_write_string (stream, str, cancellable, NULL);

			g_free (str);
		}

		g_free (uri);
	}
}

void
org_gnome_vcard_inline_format (gpointer ep,
                               EMFormatHookTarget *target)
{
	VCardInlinePURI *vcard_object;
	gint len;

	len = target->part_id->len;
	g_string_append (target->part_id, ".org-gnome-vcard-inline-display");

	vcard_object = (VCardInlinePURI *) em_format_puri_new (
			target->format, sizeof (VCardInlinePURI),
			target->part, target->part_id->str);
	vcard_object->puri.mime_type = g_strdup("text/html");
	vcard_object->puri.write_func = org_gnome_vcard_inline_write;
	vcard_object->puri.bind_func = org_gnome_vcard_inline_bind_dom;
	vcard_object->puri.free = org_gnome_vcard_inline_pobject_free;
	vcard_object->puri.is_attachment = true;
	vcard_object->formatter
		= g_object_new (
			EAB_TYPE_CONTACT_FORMATTER,
			"display-mode", EAB_CONTACT_DISPLAY_RENDER_COMPACT,
			"render-maps", FALSE, NULL);

	em_format_add_puri (target->format, (EMFormatPURI *) vcard_object);

	g_object_ref (target->part);

	org_gnome_vcard_inline_decode (vcard_object, target->part);
	e_book_client_get_sources (&vcard_object->source_list, NULL);

	g_string_truncate (target->part_id, len);
}