path: root/calendar/gui/memos-component.c

/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */
/* memos-component.c
 *
 * Copyright (C) 1999-2008 Novell, Inc. (www.novell.com)
 *
 * 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., 51 Franklin Street, Fifth Floor,
 * Boston, MA 02110-1301, USA.
 *
 * Authors: Rodrigo Moya <rodrigo@ximian.com>
 *          Nathan Owens <pianocomp81@yahoo.com>
 */

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

#include <errno.h>
#include <string.h>
#include <glib/gi18n.h>
#include <bonobo/bonobo-control.h>
#include <bonobo/bonobo-exception.h>
#include <gconf/gconf-client.h>
#include <libecal/e-cal.h>
#include <libedataserver/e-data-server-util.h>
#include <libedataserverui/e-source-selector.h>
#include <shell/e-user-creatable-items-handler.h>
#include <shell/e-component-view.h>
#include "e-cal-model.h"
#include "e-memos.h"
#include "memos-component.h"
#include "memos-control.h"
#include "e-comp-editor-registry.h"
#include "migration.h"
#include "comp-util.h"
#include "calendar-config.h"
#include "e-cal-popup.h"
#include "common/authentication.h"
#include "dialogs/calendar-setup.h"
#include "dialogs/comp-editor.h"
#include "dialogs/copy-source-dialog.h"
#include "dialogs/memo-editor.h"
#include "widgets/misc/e-info-label.h"
#include "e-util/e-error.h"
#include "calendar-component.h"

#define CREATE_MEMO_ID               "memo"
#define CREATE_SHARED_MEMO_ID        "shared-memo"
#define CREATE_MEMO_LIST_ID          "memo-list"

#define WEB_BASE_URI "webcal://"
#define PERSONAL_RELATIVE_URI "system"

#define PARENT_TYPE bonobo_object_get_type ()

static BonoboObjectClass *parent_class = NULL;

typedef struct _MemosComponentView
{
    ESourceList *source_list;

    GSList *source_selection;

    EMemos *memos;
    ETable *table;
    ETableModel *model;

    GtkWidget *source_selector;

    GList *notifications;

} MemosComponentView;

struct _MemosComponentPrivate {

    ESourceList *source_list;
    GSList *source_selection;

    ECal *create_ecal;

    GList *notifications;
};

/* #define d(x) x */
#define d(x)

/* Utility functions.  */
/* FIXME Some of these are duplicated from calendar-component.c */
static gboolean
is_in_selection (GSList *selection, ESource *source)
{
    GSList *l;

    for (l = selection; l; l = l->next) {
        ESource *selected_source = l->data;

        if (!strcmp (e_source_peek_uid (selected_source), e_source_peek_uid (source)))
            return TRUE;
    }

    return FALSE;
}

static gboolean
is_in_uids (GSList *uids, ESource *source)
{
    GSList *l;

    for (l = uids; l; l = l->next) {
        const char *uid = l->data;

        if (!strcmp (uid, e_source_peek_uid (source)))
            return TRUE;
    }

    return FALSE;
}

static void
source_selection_changed_cb (ESourceSelector *selector, MemosComponentView *component_view)
{
    GSList *selection, *l, *uids_selected = NULL;

    selection = e_source_selector_get_selection (E_SOURCE_SELECTOR (component_view->source_selector));

    for (l = component_view->source_selection; l; l = l->next) {
        ESource *old_selected_source = l->data;

        if (!is_in_selection (selection, old_selected_source))
            e_memos_remove_memo_source (component_view->memos, old_selected_source);
    }

    for (l = selection; l; l = l->next) {
        ESource *selected_source = l->data;

        e_memos_add_memo_source (component_view->memos, selected_source);
        uids_selected = g_slist_append (uids_selected, (char *)e_source_peek_uid (selected_source));
    }

    e_source_selector_free_selection (component_view->source_selection);
    component_view->source_selection = selection;

    /* Save the selection for next time we start up */
    calendar_config_set_memos_selected (uids_selected);
    g_slist_free (uids_selected);
}

/* Evolution::Component CORBA methods */

static gboolean
update_single_object (ECal *client, icalcomponent *icalcomp, gboolean fail_on_modify)
{
    char *uid;
    icalcomponent *tmp_icalcomp;

    d(g_message("memos-component.c: update_single_object called");)

    uid = (char *) icalcomponent_get_uid (icalcomp);

    if (e_cal_get_object (client, uid, NULL, &tmp_icalcomp, NULL)) {
        if (fail_on_modify)
            return FALSE;
        else
            return e_cal_modify_object (client, icalcomp, CALOBJ_MOD_ALL, NULL);
    }

    return e_cal_create_object (client, icalcomp, &uid, NULL);
}

static gboolean
update_objects (ECal *client, icalcomponent *icalcomp)
{
    icalcomponent *subcomp;
    icalcomponent_kind kind;

    d(g_message("memos-component.c: update_objects called");)

    kind = icalcomponent_isa (icalcomp);
    if (kind == ICAL_VJOURNAL_COMPONENT)
        return update_single_object (client, icalcomp, TRUE);
    else if (kind != ICAL_VCALENDAR_COMPONENT)
        return FALSE;

    subcomp = icalcomponent_get_first_component (icalcomp, ICAL_ANY_COMPONENT);
    while (subcomp) {
        gboolean success;

        kind = icalcomponent_isa (subcomp);
        if (kind == ICAL_VTIMEZONE_COMPONENT) {
            icaltimezone *zone;

            zone = icaltimezone_new ();
            icaltimezone_set_component (zone, subcomp);

            success = e_cal_add_timezone (client, zone, NULL);
            icaltimezone_free (zone, 1);
            if (!success)
                return success;
        } else if (kind == ICAL_VJOURNAL_COMPONENT) {
            success = update_single_object (client, subcomp, TRUE);
            if (!success)
                return success;
        }

        subcomp = icalcomponent_get_next_component (icalcomp, ICAL_ANY_COMPONENT);
    }

    return TRUE;
}

static gboolean
selector_tree_data_dropped (ESourceSelector *selector,
                            GtkSelectionData *data,
                            ESource *destination,
                            GdkDragAction action,
                            guint info,
                            MemosComponent *component)
{
    gboolean success = FALSE;
    icalcomponent *icalcomp = NULL;
    ECal *client = NULL;
    GSList *components, *p;

    client = auth_new_cal_from_source (
        destination, E_CAL_SOURCE_TYPE_JOURNAL);

    if (!client || !e_cal_open (client, TRUE, NULL))
        goto  finish;

    components = cal_comp_selection_get_string_list (data);
    for (p = components; p; p = p->next) {
        const char * uid;
        char *old_uid = NULL;
        icalcomponent *tmp_icalcomp = NULL;
        GError *error = NULL;
        char *comp_str; /* do not free this! */

        /* p->data is "source_uid\ncomponent_string" */
        comp_str = strchr (p->data, '\n');
        if (!comp_str)
            continue;

        comp_str [0] = 0;
        comp_str++;
        icalcomp = icalparser_parse_string (comp_str);

        if (!icalcomp)
            continue;

        /* FIXME deal with GDK_ACTION_ASK */
        if (action == GDK_ACTION_COPY) {
            old_uid = g_strdup (icalcomponent_get_uid (icalcomp));
            uid = e_cal_component_gen_uid ();
            icalcomponent_set_uid (icalcomp, uid);
        }

        uid = icalcomponent_get_uid (icalcomp);
        if (!old_uid)
            old_uid = g_strdup (uid);

        if (!e_cal_get_object (client, uid, NULL, &tmp_icalcomp, &error)) {
            if ((error != NULL) && (error->code != E_CALENDAR_STATUS_OBJECT_NOT_FOUND))
                g_message ("Failed to search the object in destination task list: %s",error->message);
            else {
                /* this will report success by last item, but we don't care */
                success = update_objects (client, icalcomp);

                if (success && action == GDK_ACTION_MOVE) {
                    /* remove components rather here, because we know which has been moved */
                    ESource *source_source;
                    ECal *source_client;

                    source_source = e_source_list_peek_source_by_uid (component->priv->source_list, p->data);

                    if (source_source && !E_IS_SOURCE_GROUP (source_source) && !e_source_get_readonly (source_source)) {
                        source_client = auth_new_cal_from_source (source_source, E_CAL_SOURCE_TYPE_JOURNAL);

                        if (source_client) {
                            gboolean read_only = TRUE;

                            e_cal_is_read_only (source_client, &read_only, NULL);

                            if (!read_only && e_cal_open (source_client, TRUE, NULL))
                                e_cal_remove_object (source_client, old_uid, NULL);
                            else if (!read_only)
                                g_message ("Cannot open source client to remove old memo");

                            g_object_unref (source_client);
                        } else
                            g_message ("Cannot create source client to remove old memo");
                    }
                }
            }

            g_clear_error (&error);
        } else
            icalcomponent_free (tmp_icalcomp);

        g_free (old_uid);
        icalcomponent_free (icalcomp);
    }
    g_slist_foreach (components, (GFunc)g_free, NULL);
    g_slist_free (components);

 finish:
    if (client)
        g_object_unref (client);

    return success;
}

static void
config_create_ecal_changed_cb (GConfClient *client, guint id, GConfEntry *entry, gpointer data)
{
    MemosComponent *component = data;
    MemosComponentPrivate *priv;

    priv = component->priv;

    g_object_unref (priv->create_ecal);
    priv->create_ecal = NULL;

    priv->notifications = g_list_remove (priv->notifications, GUINT_TO_POINTER (id));
}

static ECal *
setup_create_ecal (MemosComponent *component, MemosComponentView *component_view)
{
    MemosComponentPrivate *priv;
    ESource *source = NULL;
    char *uid;
    guint not;

    priv = component->priv;

    if (component_view) {
        ECal *default_ecal;

        default_ecal = e_memos_get_default_client (component_view->memos);
        if (default_ecal)
            return default_ecal;
    }

    if (priv->create_ecal)
        return priv->create_ecal;

    /* Get the current primary calendar, or try to set one if it doesn't already exist */
    uid = calendar_config_get_primary_memos ();
    if (uid) {
        source = e_source_list_peek_source_by_uid (priv->source_list, uid);
        g_free (uid);

        priv->create_ecal = auth_new_cal_from_source (source, E_CAL_SOURCE_TYPE_JOURNAL);
    }

    if (!priv->create_ecal) {
        /* Try to create a default if there isn't one */
        source = e_source_list_peek_source_any (priv->source_list);
        if (source)
            priv->create_ecal = auth_new_cal_from_source (source, E_CAL_SOURCE_TYPE_JOURNAL);
    }

    if (priv->create_ecal) {

        if (!e_cal_open (priv->create_ecal, FALSE, NULL)) {
            GtkWidget *dialog;

            dialog = gtk_message_dialog_new (NULL, GTK_DIALOG_MODAL,
                             GTK_MESSAGE_WARNING, GTK_BUTTONS_OK,
                             _("Unable to open the memo list '%s' for creating events and meetings"),
                               e_source_peek_name (source));
            gtk_dialog_run (GTK_DIALOG (dialog));
            gtk_widget_destroy (dialog);

            return NULL;
        }

    } else {
        GtkWidget *dialog;

        dialog = gtk_message_dialog_new (NULL, GTK_DIALOG_MODAL,
                         GTK_MESSAGE_WARNING, GTK_BUTTONS_OK,
                         "%s", _("There is no calendar available for creating memos"));
        gtk_dialog_run (GTK_DIALOG (dialog));
        gtk_widget_destroy (dialog);

        return NULL;
    }

    /* Handle the fact it may change on us */
    not = calendar_config_add_notification_primary_memos (config_create_ecal_changed_cb,
                                  component);
    priv->notifications = g_list_prepend (priv->notifications, GUINT_TO_POINTER (not));

    /* Save the primary source for use elsewhere */
    calendar_config_set_primary_memos (e_source_peek_uid (source));

    return priv->create_ecal ;
}

/* Ensures the calendar is selected */
static void
object_created_cb (CompEditor *ce, EMemoTable *memo_table)
{
    g_return_if_fail (memo_table != NULL);

    memo_table->user_created_cal = comp_editor_get_client (ce);
    g_signal_emit_by_name (memo_table, "user_created");
    memo_table->user_created_cal = NULL;
}

static gboolean
create_new_memo (MemosComponent *memo_component, gboolean is_assigned, MemosComponentView *component_view)
{
    ECal *ecal;
    ECalComponent *comp;
    CompEditor *editor;
    CompEditorFlags flags = 0;

    ecal = setup_create_ecal (memo_component, component_view);
    if (!ecal)
        return FALSE;

    flags |= COMP_EDITOR_NEW_ITEM;
    if (is_assigned) {
        flags |= COMP_EDITOR_IS_SHARED;
        flags |= COMP_EDITOR_USER_ORG;
    }

    editor = memo_editor_new (ecal, flags);
    comp = cal_comp_memo_new_with_defaults (ecal);

    if (component_view)
        g_signal_connect (editor, "object_created", G_CALLBACK (object_created_cb), e_memos_get_calendar_table (component_view->memos));

    comp_editor_edit_comp (editor, comp);
    gtk_window_present (GTK_WINDOW (editor));

    e_comp_editor_registry_add (comp_editor_registry, editor, TRUE);

    return TRUE;
}

static MemosComponentView *
create_component_view (MemosComponent *memos_component)
{
    MemosComponentPrivate *priv;
    MemosComponentView *component_view;
    GtkWidget *statusbar_widget;

    priv = memos_component->priv;

    /* Create the calendar component view */
    component_view = g_new0 (MemosComponentView, 1);

    /* Create sidebar selector */
    g_signal_connect (component_view->source_selector, "drag-data-received",
              G_CALLBACK (selector_tree_drag_data_received), memos_component);

    component_view->memos = (EMemos *) bonobo_control_get_widget (component_view->view_control);
    component_view->table = e_memo_table_get_table (e_memos_get_calendar_table (component_view->memos));
    component_view->model = E_TABLE_MODEL (e_memo_table_get_model (e_memos_get_calendar_table (component_view->memos)));

    /* connect after setting the initial selections, or we'll get unwanted calls
       to calendar_control_sensitize_calendar_commands */
    g_signal_connect (component_view->source_selector, "selection_changed",
              G_CALLBACK (source_selection_changed_cb), component_view);
    g_signal_connect (component_view->source_selector, "primary_selection_changed",
              G_CALLBACK (primary_source_selection_changed_cb), component_view);

    return component_view;
}

static void
destroy_component_view (MemosComponentView *component_view)
{
    GList *l;

    if (component_view->source_list)
        g_object_unref (component_view->source_list);

    if (component_view->source_selection)
        e_source_selector_free_selection (component_view->source_selection);

    for (l = component_view->notifications; l; l = l->next)
        calendar_config_remove_notification (GPOINTER_TO_UINT (l->data));
    g_list_free (component_view->notifications);

    g_free (component_view);
}

/* GObject methods.  */

static void
impl_dispose (GObject *object)
{
    MemosComponent *memos_component = MEMOS_COMPONENT (object);
    MemosComponentPrivate *priv = memos_component->priv;
    GList *l;

    if (priv->source_list != NULL) {
        g_object_unref (priv->source_list);
        priv->source_list = NULL;
    }
    if (priv->source_selection != NULL) {
        e_source_selector_free_selection (priv->source_selection);
        priv->source_selection = NULL;
    }

    if (priv->create_ecal) {
        g_object_unref (priv->create_ecal);
        priv->create_ecal = NULL;
    }

    for (l = priv->notifications; l; l = l->next)
        calendar_config_remove_notification (GPOINTER_TO_UINT (l->data));
    g_list_free (priv->notifications);
    priv->notifications = NULL;

    (* G_OBJECT_CLASS (parent_class)->dispose) (object);
}