path: root/e-util/e-config.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
 *  Authors: Michael Zucchi <notzed@ximian.com>
 *
 *  Copyright 2004 Ximian, Inc. (www.ximian.com)
 *
 *  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 Street #330, Boston, MA 02111-1307, USA.
 *
 */

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

#include <string.h>
#include <stdlib.h>

#include <glib.h>

#include <gtk/gtknotebook.h>
#include <gtk/gtkvbox.h>
#include <gtk/gtkhbox.h>
#include <gtk/gtktable.h>
#include <gtk/gtklabel.h>
#include <gtk/gtkframe.h>
#include <gtk/gtkalignment.h>

#include <libgnomeui/gnome-druid.h>
#include <libgnomeui/gnome-druid-page-standard.h>
#include <libgnomeui/gnome-druid-page-edge.h>

#include "e-config.h"

#include <e-util/e-icon-factory.h>

#include <libgnome/gnome-i18n.h>

#define d(x)

struct _EConfigFactory {
    struct _EConfigFactory *next, *prev;

    char *id;
    EConfigFactoryFunc factory;
    void *factory_data;
};

struct _menu_node {
    struct _menu_node *next, *prev;

    GSList *menu;
    EConfigItemsFunc free;
    EConfigItemsFunc abort;
    EConfigItemsFunc commit;
    void *data;
};

struct _widget_node {
    struct _widget_node *next, *prev;

    EConfig *config;

    struct _menu_node *context;
    EConfigItem *item;
    struct _GtkWidget *widget; /* widget created by the factory, if any */
    struct _GtkWidget *frame; /* if created by us */

    int empty:1;        /* set if empty (i.e. hidden) */
};

struct _check_node {
    struct _check_node *next, *prev;

    char *pageid;
    EConfigCheckFunc check;
    void *data;
};

struct _EConfigPrivate {
    EDList menus;
    EDList widgets;
    EDList checks;

    struct _widget_node *druid_page; /* current druid page if using the druid */
};

static GObjectClass *ep_parent;

static void
ep_init(GObject *o)
{
    EConfig *emp = (EConfig *)o;
    struct _EConfigPrivate *p;

    p = emp->priv = g_malloc0(sizeof(struct _EConfigPrivate));

    e_dlist_init(&p->menus);
    e_dlist_init(&p->widgets);
    e_dlist_init(&p->checks);
}

static void
ep_finalise(GObject *o)
{
    EConfig *emp = (EConfig *)o;
    struct _EConfigPrivate *p = emp->priv;
    struct _menu_node *mnode;
    struct _widget_node *wn;
    struct _check_node *cn;

    d(printf("finalising EConfig %p\n", o));

    g_free(emp->id);

    while ((mnode = (struct _menu_node *)e_dlist_remhead(&p->menus))) {
        if (mnode->free)
            mnode->free(emp, mnode->menu, mnode->data);

        g_free(mnode);
    }

    while ( (wn = (struct _widget_node *)e_dlist_remhead(&p->widgets)) ) {
        g_free(wn);
    }

    while ( (cn = (struct _check_node *)e_dlist_remhead(&p->widgets)) ) {
        g_free(cn->pageid);
        g_free(cn);
    }

    g_free(p);

    ((GObjectClass *)ep_parent)->finalize(o);
}

static void
ec_target_free(EConfig *ep, EConfigTarget *t)
{
    g_free(t);
    g_object_unref(ep);
}

static void
ec_set_target(EConfig *emp, EConfigTarget *target)
{
    if (emp->target)
        e_config_target_free(emp, target);

    emp->target = target;
}

static void
ep_class_init(GObjectClass *klass)
{
    d(printf("EConfig class init %p '%s'\n", klass, g_type_name(((GObjectClass *)klass)->g_type_class.g_type)));

    klass->finalize = ep_finalise;
    ((EConfigClass *)klass)->set_target = ec_set_target;
    ((EConfigClass *)klass)->target_free = ec_target_free;
}

static void
ep_base_init(GObjectClass *klass)
{
    e_dlist_init(&((EConfigClass *)klass)->factories);
}

/**
 * e_config_get_type:
 * 
 * Standard GObject method.  Used to subclass for the concrete
 * implementations.
 * 
 * Return value: EConfig type.
 **/
GType
e_config_get_type(void)
{
    static GType type = 0;

    if (type == 0) {
        static const GTypeInfo info = {
            sizeof(EConfigClass),
            (GBaseInitFunc)ep_base_init, NULL,
            (GClassInitFunc)ep_class_init, NULL, NULL,
            sizeof(EConfig), 0,
            (GInstanceInitFunc)ep_init
        };
        ep_parent = g_type_class_ref(G_TYPE_OBJECT);
        type = g_type_register_static(G_TYPE_OBJECT, "EConfig", &info, 0);
    }

    return type;
}

/**
 * e_config_construct:
 * @ep: The instance to initialise.
 * @type: The type of configuration manager, @E_CONFIG_BOOK or
 * @E_CONFIG_DRUID.
 * @id: The name of the configuration window this manager drives.
 * 
 * Used by implementing classes to initialise base parameters.
 * 
 * Return value: @ep is returned.
 **/
EConfig *e_config_construct(EConfig *ep, int type, const char *id)
{
    g_assert(type == E_CONFIG_BOOK || type == E_CONFIG_DRUID);

    ep->type = type;
    ep->id = g_strdup(id);

    return ep;
}

/**
 * e_config_add_items:
 * @ec: An initialised implementing instance of EConfig.
 * @items: A list of EConfigItem's to add to the configuration manager
 * @ec.
 * @commitfunc: If supplied, called to commit the configuration items
 * to persistent storage.
 * @abortfunc: If supplied, called to abort/undo the storage of these
 * items permanently.
 * @freefunc: If supplied, called to free the item list (and/or items)
 * once they are no longer needed.
 * @data: Data for the callback methods.
 * 
 * Add new EConfigItems to the configuration window.  Nothing will be
 * done with them until the widget is built.
 *
 * TODO: perhaps commit and abort should just be signals.
 **/
void
e_config_add_items(EConfig *ec, GSList *items, EConfigItemsFunc commitfunc, EConfigItemsFunc abortfunc, EConfigItemsFunc freefunc, void *data)
{
    struct _menu_node *node;

    node = g_malloc(sizeof(*node));
    node->menu = items;
    node->commit = commitfunc;
    node->abort = abortfunc;
    node->free = freefunc;
    node->data = data;
    e_dlist_addtail(&ec->priv->menus, (EDListNode *)node);
}

/**
 * e_config_add_page_check:
 * @ec: Initialised implemeting instance of EConfig.
 * @pageid: pageid to check.
 * @check: checking callback.
 * @data: user-data for the callback.
 * 
 * Add a page-checking function callback.  It will be called to validate the
 * data in the given page or pages.  If @pageid is NULL then it will be called
 * to validate every page, or the whole configuration window.
 *
 * In the latter case, the pageid in the callback will be either the
 * specific page being checked, or NULL when the whole config window
 * is being checked.
 *
 * The page check function is used to validate input before allowing
 * the druid to continue or the notebook to close.
 **/
void
e_config_add_page_check(EConfig *ec, const char *pageid, EConfigCheckFunc check, void *data)
{
    struct _check_node *cn;

    cn = g_malloc0(sizeof(*cn));
    cn->pageid = g_strdup(pageid);
    cn->check = check;
    cn->data = data;

    e_dlist_addtail(&ec->priv->checks, (EDListNode *)cn);
}

static void
ec_add_static_items(EConfig *ec)
{
    struct _EConfigFactory *f;
    EConfigClass *klass = (EConfigClass *)G_OBJECT_GET_CLASS(ec);

    f = (struct _EConfigFactory *)klass->factories.head;
    while (f->next) {
        if (f->id == NULL
            || !strcmp(f->id, ec->id)) {
            f->factory(ec, f->factory_data);
        }
        f = f->next;
    }
}

static int
ep_cmp(const void *ap, const void *bp)
{
    struct _widget_node *a = *((void **)ap);
    struct _widget_node *b = *((void **)bp);

    return strcmp(a->item->path, b->item->path);
}

static void
ec_druid_check_current(EConfig *ec)
{
    g_return_if_fail(ec->priv->druid_page != NULL);

    if (e_config_page_check(ec, ec->priv->druid_page->item->path)) {
        gtk_widget_set_sensitive(((GnomeDruid *)ec->widget)->next, TRUE);
    } else {
        gtk_widget_set_sensitive(((GnomeDruid *)ec->widget)->next, FALSE);
    }
}

static void
ec_druid_cancel(GnomeDruid *druid, struct _widget_node *wn)
{
    d(printf("finishing druid, calling abort\n"));
    e_config_abort(wn->config);

    if (wn->config->window)
        gtk_widget_destroy(wn->config->window);
}

static void
ec_druid_finish(GnomeDruidPage *page, GnomeDruid *druid, struct _widget_node *wn)
{
    d(printf("finishing druid, calling commit\n"));
    e_config_commit(wn->config);

    /* TODO: allow the commit to fail?  Do we care? */
    if (wn->config->window)
        gtk_widget_destroy(wn->config->window);
}

static void
ec_druid_prepare(GnomeDruidPage *page, GnomeDruid *druid, struct _widget_node *wn)
{
    d(printf("prepare page '%s'\n", wn->item->path));
    wn->config->priv->druid_page = wn;
    ec_druid_check_current(wn->config);
}

static gboolean
ec_druid_prev(GnomeDruidPage *page, GnomeDruid *druid, struct _widget_node *wn)
{
    EConfig *ec = wn->config;

    d(printf("prev page from '%s'\n", wn->item->path));
    if (wn->prev) {
        for (wn = wn->prev;wn->prev;wn=wn->prev) {
            if (!wn->empty
                && (wn->item->type == E_CONFIG_PAGE
                || wn->item->type == E_CONFIG_PAGE_START
                || wn->item->type == E_CONFIG_PAGE_FINISH))
                break;
        }
    }

    if (wn->prev) {
        d(printf(" is %s\n",wn->item->path));
        gnome_druid_set_page((GnomeDruid *)ec->widget, (GnomeDruidPage *)wn->frame);
        ec->priv->druid_page = wn;
    } else {
        /* do we need to indicate first? */
        ec->priv->druid_page = NULL;
    }

    return wn->prev != NULL;
}

static gboolean
ec_druid_next(GnomeDruidPage *page, GnomeDruid *druid, struct _widget_node *wn)
{
    EConfig *ec = wn->config;

    d(printf("next page from '%s'\n", wn->item->path));
    if (wn->next) {
        for (wn = wn->next;wn->next;wn=wn->next) {
            if (!wn->empty
                && (wn->item->type == E_CONFIG_PAGE
                || wn->item->type == E_CONFIG_PAGE_START
                || wn->item->type == E_CONFIG_PAGE_FINISH))
                break;
        }
    }

    if (wn->next) {
        d(printf(" is %s\n",wn->item->path));
        gnome_druid_set_page((GnomeDruid *)ec->widget, (GnomeDruidPage *)wn->frame);
        ec->priv->druid_page = wn;
    } else {
        /* do we need to indicate last? */
        ec->priv->druid_page = NULL;
    }

    return wn->next != NULL;
}

static void
ec_rebuild(EConfig *emp)
{
    struct _EConfigPrivate *p = emp->priv;
    struct _widget_node *wn, *sectionnode = NULL, *pagenode = NULL;
    GtkWidget *book = NULL, *page = NULL, *section = NULL, *root = NULL, *druid = NULL;
    int pageno = 0, sectionno = 0, itemno = 0;

    d(printf("target changed, rebuilding:\n"));

    /* TODO: This code is pretty complex, and will probably just
     * become more complex with time.  It could possibly be split
     * into the two base types, but there would be a lot of code
     * duplication */

    for (wn = (struct _widget_node *)p->widgets.head;wn->next;wn=wn->next) {
        struct _EConfigItem *item = wn->item;
        GtkWidget *w;

        d(printf(" '%s'\n", item->path));

        /* If the last section doesn't contain anything, hide it */
        if (sectionnode != NULL
            && (item->type == E_CONFIG_PAGE_START
            || item->type == E_CONFIG_PAGE_FINISH
            || item->type == E_CONFIG_PAGE
            || item->type == E_CONFIG_SECTION
            || item->type == E_CONFIG_SECTION_TABLE)) {
            if ( (sectionnode->empty = itemno == 0) ) {
                gtk_widget_hide(sectionnode->frame);
                sectionno--;
            } else
                gtk_widget_show(sectionnode->frame);
            d(printf("%s section '%s' [sections=%d]\n", sectionnode->empty?"hiding":"showing", sectionnode->item->path, sectionno));
        }

        /* If the last page doesn't contain anything, hide it */
        if (pagenode != NULL
            && (item->type == E_CONFIG_PAGE_START
            || item->type == E_CONFIG_PAGE_FINISH
            || item->type == E_CONFIG_PAGE)) {
            if ( (pagenode->empty = sectionno == 0) ) {
                gtk_widget_hide(pagenode->frame);
                pageno--;
            } else
                gtk_widget_show(pagenode->frame);
            d(printf("%s page '%s' [section=%d]\n", pagenode->empty?"hiding":"showing", pagenode->item->path, pageno));
        }

        /* Now process the item */
        switch (item->type) {
        case E_CONFIG_BOOK:
        case E_CONFIG_DRUID:
            /* Only one of BOOK or DRUID may be define, it
               is used by the defining code to mark the
               type of the config window.  It is
               cross-checked with the code's defined
               type. */
            if (root != NULL) {
                g_warning("EConfig book/druid redefined at: %s", item->path);
                break;
            }

            if (wn->widget == NULL) {
                if (item->type != emp->type) {
                    g_warning("EConfig book/druid type mismatch");
                    break;
                }
                if (item->factory) {
                    root = item->factory(emp, item, NULL, wn->widget, wn->context->data);
                } else if (item->type == E_CONFIG_BOOK) {
                    root = book = gtk_notebook_new();
                    gtk_widget_show(book);
                } else if (item->type == E_CONFIG_DRUID) {
                    root = druid = gnome_druid_new();
                } else
                    abort();

                if (item->type == E_CONFIG_DRUID)
                    g_signal_connect(root, "cancel", G_CALLBACK(ec_druid_cancel), wn);

                emp->widget = root;
                wn->widget = root;
            } else {
                root = wn->widget;
            }

            if (item->type == E_CONFIG_BOOK)
                book = root;
            else
                druid = root;

            page = NULL;
            pagenode = NULL;
            section = NULL;
            sectionnode = NULL;
            pageno = 0;
            sectionno = 0;
            break;
        case E_CONFIG_PAGE_START:
        case E_CONFIG_PAGE_FINISH:
            if (root == NULL) {
                g_warning("EConfig page defined before container widget: %s", item->path);
                break;
            }
            if (emp->type != E_CONFIG_DRUID) {
                g_warning("EConfig druid start/finish pages can't be used on E_CONFIG_BOOKs");
                break;
            }

            if (wn->widget == NULL) {
                if (item->factory) {
                    page = item->factory(emp, item, root, wn->frame, wn->context->data);
                } else {
                    page = gnome_druid_page_edge_new(item->type == E_CONFIG_PAGE_START?GNOME_EDGE_START:GNOME_EDGE_FINISH);
                    gtk_widget_show(page);
                    gnome_druid_page_edge_set_title((GnomeDruidPageEdge *)page, item->label);
                    gnome_druid_insert_page((GnomeDruid *)druid, pagenode?(GnomeDruidPage *)pagenode->frame:NULL, (GnomeDruidPage *)page);
                }
                if (item->type == E_CONFIG_PAGE_FINISH) {
                    g_signal_connect(page, "back", G_CALLBACK(ec_druid_prev), wn);
                    g_signal_connect(page, "finish", G_CALLBACK(ec_druid_finish), wn);
                } else
                    g_signal_connect(page, "next", G_CALLBACK(ec_druid_next), wn);
                wn->frame = page;
                wn->widget = page;
            }
            pageno++;
            page = NULL;
            pagenode = wn; /* need this for previous page linking */
            section = NULL;
            sectionnode = NULL;
            sectionno = 1; /* never want to hide these */
            break;
        case E_CONFIG_PAGE: {
            int connect = 0; /* connect druid signals */

            /* CONFIG_PAGEs depend on the config type.
               E_CONFIG_BOOK:
                The page is a VBox, stored in the notebook.
               E_CONFIG_DRUID
                The page is a GnomeDruidPageStandard,
                any sections automatically added are added to
                the vbox inside it. */
            sectionno = 0;
            if (root == NULL) {
                g_warning("EConfig page defined before container widget: %s", item->path);
                break;
            }

            if (item->factory) {
                page = item->factory(emp, item, root, wn->frame, wn->context->data);
                if (emp->type == E_CONFIG_DRUID) {
                    if (page) {
                        g_assert(GNOME_IS_DRUID_PAGE_STANDARD(page));
                        connect = wn->frame != page;
                        wn->frame = page;
                        page = ((GnomeDruidPageStandard *)page)->vbox;
                    } else
                        wn->frame = page;
                } else {
                    wn->frame = page;
                }
                if (page)
                    sectionno = 1;
            } else if (wn->widget == NULL) {
                if (emp->type == E_CONFIG_DRUID) {
                    w = gnome_druid_page_standard_new();
                    gtk_widget_show(w);
                    gnome_druid_page_standard_set_title((GnomeDruidPageStandard *)w, item->label);
                    gnome_druid_insert_page((GnomeDruid *)druid, pagenode?(GnomeDruidPage *)pagenode->frame:NULL, (GnomeDruidPage *)w);
                    wn->frame = w;
                    page = ((GnomeDruidPageStandard *)w)->vbox;
                    connect = TRUE;
                } else {
                    w = gtk_label_new_with_mnemonic (item->label);
                    gtk_widget_show(w);
                    page = gtk_vbox_new(FALSE, 12);
                    gtk_container_set_border_width((GtkContainer *)page, 12);
                    gtk_widget_show(page);
                    gtk_notebook_insert_page((GtkNotebook *)book, page, w, pageno);
                    wn->frame = page;
                }
            } else
                page = wn->widget;

            d(printf("page %d:%s widget %p\n", pageno, item->path, w));

            if (wn->widget && wn->widget != page) {
                d(printf("destroy old widget for page '%s'\n", item->path));
                gtk_widget_destroy(wn->widget);
            }

            if (connect) {
                g_signal_connect(wn->frame, "next", G_CALLBACK(ec_druid_next), wn);
                g_signal_connect(wn->frame, "back", G_CALLBACK(ec_druid_prev), wn);
                /* GnomeDruid bug, need to connect_after */
                g_signal_connect_after(wn->frame, "prepare", G_CALLBACK(ec_druid_prepare), wn);
            }

            pageno++;
            pagenode = wn;
            section = NULL;
            sectionnode = NULL;
            wn->widget = page;
            break; }
        case E_CONFIG_SECTION:
        case E_CONFIG_SECTION_TABLE:
            /* The section factory is always called with
               the parent vbox object.  Even for druid
               pages. */
            if (page == NULL) {
                g_warning("EConfig section '%s' has no parent page", item->path);
                section = NULL;
                goto nopage;
            }

            itemno = 0;
            if (item->factory) {
                section = item->factory(emp, item, page, wn->widget, wn->context->data);
                wn->frame = section;
                itemno = 1;

                if (section
                    && ((item->type == E_CONFIG_SECTION && !GTK_IS_BOX(section))
                    || (item->type == E_CONFIG_SECTION_TABLE && !GTK_IS_TABLE(section))))
                    g_warning("EConfig section type is wrong");
            } else if (wn->widget == NULL) {
                GtkWidget *frame;
                GtkWidget *label = NULL;

                if (item->label) {
                    char *txt = g_strdup_printf("<span weight=\"bold\">%s</span>", item->label);

                    label = g_object_new(gtk_label_get_type(),
                                 "label", txt,
                                 "use_markup", TRUE,
                                 "xalign", 0.0, NULL);
                    g_free(txt);
                }

                if (item->type == E_CONFIG_SECTION)
                    section = gtk_vbox_new(FALSE, 6);
                else {
                    section = gtk_table_new(1, 1, FALSE);
                    gtk_table_set_row_spacings (section, 12);
                    gtk_table_set_col_spacings (section, 12);
                }

                frame = g_object_new(gtk_frame_get_type(),
                             "shadow_type", GTK_SHADOW_NONE, 
                             "label_widget", label,
                             "child", g_object_new(gtk_alignment_get_type(),
                                       "left_padding", 12,
                                       "top_padding", 6,
                                       "child", section, NULL),
                             NULL);
                gtk_widget_show_all(frame);
                gtk_box_pack_start((GtkBox *)page, frame, FALSE, FALSE, 0);
                wn->frame = frame;
            } else {
                section = wn->widget;
            }
        nopage:
            if (wn->widget && wn->widget != section) {
                d(printf("destroy old widget for section '%s'\n", item->path));
                gtk_widget_destroy(wn->widget);
            }

            sectionno++;
            wn->widget = section;
            sectionnode = wn;
            break;
        case E_CONFIG_ITEM:
        case E_CONFIG_ITEM_TABLE:
            /* ITEMs are called with the section parent.
               The type depends on the section type,
               either a GtkTable, or a GtkVBox */
            w = NULL;
            if (section == NULL)
                g_warning("EConfig item has no parent section: %s", item->path);
            else if ((item->type == E_CONFIG_ITEM && !GTK_IS_BOX(section))
                 || (item->type == E_CONFIG_ITEM_TABLE && !GTK_IS_TABLE(section)))
                g_warning("EConfig item parent type is incorrect: %s", item->path);
            else if (item->factory)
                w = item->factory(emp, item, section, wn->widget, wn->context->data);

            d(printf("item %d:%s widget %p\n", itemno, item->path, w));

            if (wn->widget && wn->widget != w) {
                d(printf("destroy old widget for item '%s'\n", item->path));
                gtk_widget_destroy(wn->widget);
            }

            wn->widget = w;
            if (w)
                itemno++;
            break;
        }
    }

    /* If the last section doesn't contain anything, hide it */
    if (sectionnode != NULL) {
        if ( (sectionnode->empty = itemno == 0) ) {
            gtk_widget_hide(sectionnode->frame);
            sectionno--;
        } else
            gtk_widget_show(sectionnode->frame);
        d(printf("%s section '%s' [sections=%d]\n", sectionnode->empty?"hiding":"showing", sectionnode->item->path, sectionno));
    }

    /* If the last page doesn't contain anything, hide it */
    if (pagenode != NULL) {
        if ( (pagenode->empty = sectionno == 0) ) {
            gtk_widget_hide(pagenode->frame);
            pageno--;
        } else
            gtk_widget_show(pagenode->frame);
        d(printf("%s page '%s' [section=%d]\n", pagenode->empty?"hiding":"showing", pagenode->item->path, pageno));
    }

    if (book) {
        /* make this depend on flags?? */
        if (gtk_notebook_get_n_pages((GtkNotebook *)book) == 1) {
            gtk_notebook_set_show_tabs((GtkNotebook *)book, FALSE);
            gtk_notebook_set_show_border((GtkNotebook *)book, FALSE);
        }
    }
}

/**
 * e_config_set_target:
 * @emp: An initialised EConfig.
 * @target: A target allocated from @emp.
 * 
 * Sets the target object for the config window.  Generally the target
 * is set only once, and will supply its own "changed" signal which
 * can be used to drive the modal.  This is a virtual method so that
 * the implementing class can connect to the changed signal and
 * initiate a e_config_target_changed() call where appropriate.
 **/
void
e_config_set_target(EConfig *emp, EConfigTarget *target)
{
    if (emp->target != target)
        ((EConfigClass *)G_OBJECT_GET_CLASS(emp))->set_target(emp, target);
}

static void
ec_widget_destroy(GtkWidget *w, EConfig *ec)
{
    if (ec->target) {
        e_config_target_free(ec, ec->target);
        ec->target = NULL;
    }

    g_object_unref(ec);
}

/**
 * e_config_create_widget:
 * @emp: An initialised EConfig object.
 * 
 * Create the widget described by @emp.  Only the core widget
 * appropriate for the given type is created, i.e. a GtkNotebook for
 * the E_CONFIG_BOOK type and a GnomeDruid for the E_CONFIG_DRUID
 * type.
 * 
 * This object will be self-driving, but will not close itself once
 * complete.
 *
 * Unless reffed otherwise, the management object @emp will be
 * finalised when the widget is.
 *
 * Return value: The widget, also available in @emp.widget
 **/
GtkWidget *
e_config_create_widget(EConfig *emp)
{
    struct _EConfigPrivate *p = emp->priv;
    struct _menu_node *mnode;
    GPtrArray *items = g_ptr_array_new();
    GSList *l;
    /*char *domain = NULL;*/
    int i;

    g_assert(emp->target != NULL);

    ec_add_static_items(emp);

    /* FIXME: need to override old ones with new names */
    for (mnode = (struct _menu_node *)p->menus.head;mnode->next;mnode=mnode->next)
        for (l=mnode->menu; l; l = l->next) {
            struct _EConfigItem *item = l->data;
            struct _widget_node *wn = g_malloc0(sizeof(*wn));

            wn->item = item;
            wn->context = mnode;
            wn->config = emp;
            g_ptr_array_add(items, wn);
        }

    qsort(items->pdata, items->len, sizeof(items->pdata[0]), ep_cmp);

    for (i=0;i<items->len;i++) {
        struct _widget_node *wn = items->pdata[i];

        e_dlist_addtail(&p->widgets, (EDListNode *)wn);
    }

    g_ptr_array_free(items, TRUE);
    ec_rebuild(emp);

    /* auto-unref it */
    g_signal_connect(emp->widget, "destroy", G_CALLBACK(ec_widget_destroy), emp);

    /* FIXME: for some reason ec_rebuild puts the widget on page 1, this is just to override that */
    if (emp->type == E_CONFIG_BOOK)
        gtk_notebook_set_current_page((GtkNotebook *)emp->widget, 0);

    return emp->widget;
}

static void
ec_dialog_response(GtkWidget *d, int id, EConfig *ec)
{
    if (id == GTK_RESPONSE_OK)
        e_config_commit(ec);
    else
        e_config_abort(ec);

    gtk_widget_destroy(d);
}

/**
 * e_config_create_window:
 * @emp: Initialised and configured EMConfig derived instance.
 * @parent: Parent window or NULL.
 * @title: Title of window or dialog.
 * 
 * Create a managed GtkWindow object from @emp.  This window will be
 * fully driven by the EConfig @emp.  If @emp.type is
 * @E_CONFIG_DRUID, then this will be a toplevel GtkWindow containing
 * a GnomeDruid.  If it is @E_CONFIG_BOOK then it will be a GtkDialog
 * containing a Nnotebook.
 *
 * Unless reffed otherwise, the management object @emp will be
 * finalised when the widget is.
 * 
 * Return value: The window widget.  This is also stored in @emp.window.
 **/
GtkWidget *
e_config_create_window(EConfig *emp, struct _GtkWindow *parent, const char *title)
{
    GtkWidget *w;

    e_config_create_widget(emp);

    if (emp->type == E_CONFIG_BOOK) {
        w = gtk_dialog_new_with_buttons(title, parent, GTK_DIALOG_DESTROY_WITH_PARENT,
                        GTK_STOCK_CLOSE, GTK_RESPONSE_CANCEL,
                        GTK_STOCK_OK, GTK_RESPONSE_OK,
                        NULL);
        g_signal_connect(w, "response", G_CALLBACK(ec_dialog_response), emp);
        gtk_box_pack_start((GtkBox *)((GtkDialog *)w)->vbox, emp->widget, TRUE, TRUE, 0);
    } else {
        /* response is handled directly by the druid stuff */
        w = gtk_window_new(GTK_WINDOW_TOPLEVEL);
        gtk_container_add((GtkContainer *)w, emp->widget);
        gtk_window_set_type_hint((GtkWindow *)w, GDK_WINDOW_TYPE_HINT_DIALOG);
    }

    emp->window = w;
    gtk_widget_show(w);

    return w;
}

/**
 * e_config_target_changed:
 * @emp: 
 * @how: 
 * 
 * Indicate that the target has changed.  This may be called by the
 * self-aware target itself, or by the driving code.  If @how is
 * %E_CONFIG_TARGET_CHANGED_REBUILD, then the entire configuration
 * widget may be recreated based on the changed target.
 *
 * This is used to sensitise Druid next/back buttons and the Apply
 * button for the Notebook mode.
 **/
void e_config_target_changed(EConfig *emp, e_config_target_change_t how)
{
    if (how == E_CONFIG_TARGET_CHANGED_REBUILD)
        ec_rebuild(emp);

    if (emp->type == E_CONFIG_DRUID) {
        if (emp->priv->druid_page)
            ec_druid_check_current(emp);
    } else {
        if (emp->window) {
            if (e_config_page_check(emp, NULL)) {
                gtk_dialog_set_response_sensitive((GtkDialog *)emp->window, GTK_RESPONSE_OK, TRUE);
            } else {
                gtk_dialog_set_response_sensitive((GtkDialog *)emp->window, GTK_RESPONSE_OK, FALSE);
            }
        }
    }

    /* virtual method/signal? */
}

/**
 * e_config_abort:
 * @ec: 
 * 
 * Signify that the stateful configuration changes must be discarded
 * to all listeners.  This is used by self-driven druid or notebook, or
 * may be used by code using the widget directly.
 **/
void e_config_abort(EConfig *ec)
{
    struct _EConfigPrivate *p = ec->priv;
    struct _menu_node *mnode;

    /* TODO: should these just be signals? */

    for (mnode = (struct _menu_node *)p->menus.head;mnode->next;mnode=mnode->next)
        if (mnode->abort)
            mnode->abort(ec, mnode->menu, mnode->data);
}

/**
 * e_config_commit:
 * @ec: 
 * 
 * Signify that the stateful configuration changes should be saved.
 * This is used by the self-driven druid or notebook, or may be used
 * by code driving the widget directly.
 **/
void e_config_commit(EConfig *ec)
{
    struct _EConfigPrivate *p = ec->priv;
    struct _menu_node *mnode;

    /* TODO: should these just be signals? */

    for (mnode = (struct _menu_node *)p->menus.head;mnode->next;mnode=mnode->next)
        if (mnode->commit)
            mnode->commit(ec, mnode->menu, mnode->data);
}

/**
 * e_config_page_check:
 * @ec: 
 * @pageid: The path of the page item.
 * 
 * Check that a given page is complete.  If @pageid is NULL, then check
 * the whole config.  No check is made that the page actually exists.
 * 
 * Return value: FALSE if the data is inconsistent/incomplete.
 **/
gboolean e_config_page_check(EConfig *ec, const char *pageid)
{
    struct _EConfigPrivate *p = ec->priv;
    struct _check_node *mnode;

    for (mnode = (struct _check_node *)p->checks.head;mnode->next;mnode=mnode->next)
        if ((pageid == NULL
             || mnode->pageid == NULL
             || strcmp(mnode->pageid, pageid) == 0)
            && !mnode->check(ec, pageid, mnode->data))
            return FALSE;

    return TRUE;
}

/**
 * e_config_page_get:
 * @ec: 
 * @pageid: The path of the page item.
 * 
 * Retrieve the page widget corresponding to @pageid.
 * 
 * Return value: The page widget.  It will be the root GtkNotebook
 * container or the GnomeDruidPage object.
 **/
GtkWidget *e_config_page_get(EConfig *ec, const char *pageid)
{
    struct _widget_node *wn;

    for (wn = (struct _widget_node *)ec->priv->widgets.head;wn->next;wn=wn->next)
        if (!wn->empty
            && (wn->item->type == E_CONFIG_PAGE
            || wn->item->type == E_CONFIG_PAGE_START
            || wn->item->type == E_CONFIG_PAGE_FINISH)
            && !strcmp(wn->item->path, pageid))
            return wn->frame;

    return NULL;
}

/**
 * e_config_page_next:
 * @ec: 
 * @pageid: The path of the page item.
 * 
 * Find the path of the next visible page after @pageid.  If @pageid
 * is NULL then find the first visible page.
 * 
 * Return value: The path of the next page, or @NULL if @pageid was the
 * last configured and visible page.
 **/
const char *e_config_page_next(EConfig *ec, const char *pageid)
{
    struct _widget_node *wn;
    int found;

    found = pageid == NULL ? 1:0;
    for (wn = (struct _widget_node *)ec->priv->widgets.head;wn->next;wn=wn->next)
        if (!wn->empty
            && (wn->item->type == E_CONFIG_PAGE
            || wn->item->type == E_CONFIG_PAGE_START
            || wn->item->type == E_CONFIG_PAGE_FINISH)) {
            if (found)
                return wn->item->path;
            else if (strcmp(wn->item->path, pageid) == 0)
                found = 1;
        }

    return NULL;
}

/**
 * e_config_page_next:
 * @ec: 
 * @pageid: The path of the page item.
 * 
 * Find the path of the previous visible page before @pageid.  If @pageid
 * is NULL then find the last visible page.
 * 
 * Return value: The path of the previous page, or @NULL if @pageid was the
 * first configured and visible page.
 **/
const char *e_config_page_prev(EConfig *ec, const char *pageid)
{
    struct _widget_node *wn;
    int found;

    found = pageid == NULL ? 1:0;
    for (wn = (struct _widget_node *)ec->priv->widgets.tailpred;wn->prev;wn=wn->prev)
        if (!wn->empty
            && (wn->item->type == E_CONFIG_PAGE
            || wn->item->type == E_CONFIG_PAGE_START
            || wn->item->type == E_CONFIG_PAGE_FINISH)) {
            if (found)
                return wn->item->path;
            else if (strcmp(wn->item->path, pageid) == 0)
                found = 1;
        }

    return NULL;
}

/* ********************************************************************** */

/**
 * e_config_class_add_factory:
 * @klass: Implementing class pointer.
 * @id: The name of the configuration window you're interested in.
 * This may be NULL to be called for all windows.
 * @func: An EConfigFactoryFunc to call when the window @id is being
 * created.
 * @data: Callback data.
 * 
 * Add a config factory which will be called to add_items() any
 * extra items's if wants to, to the current Config window.
 *
 * TODO: Make the id a pattern?
 * 
 * Return value: A handle to the factory.
 **/
EConfigFactory *
e_config_class_add_factory(EConfigClass *klass, const char *id, EConfigFactoryFunc func, void *data)
{
    struct _EConfigFactory *f = g_malloc0(sizeof(*f));

    f->id = g_strdup(id);
    f->factory = func;
    f->factory_data = data;
    e_dlist_addtail(&klass->factories, (EDListNode *)f);

    return f;
}

/**
 * e_config_class_remove_factory:
 * @f: Handle from :class_add_factory() call.
 * 
 * Remove a config factory.  The handle @f may only be removed once.
 **/
void
e_config_class_remove_factory(EConfigClass *klass, EConfigFactory *f)
{
    e_dlist_remove((EDListNode *)f);
    g_free(f->id);
    g_free(f);
}

/**
 * e_config_target_new:
 * @ep: Parent EConfig object.
 * @type: type, up to implementor
 * @size: Size of object to allocate.
 * 
 * Allocate a new config target suitable for this class.  Implementing
 * classes will define the actual content of the target.
 **/
void *e_config_target_new(EConfig *ep, int type, size_t size)
{
    EConfigTarget *t;

    g_assert(size >= sizeof(EConfigTarget));

    t = g_malloc0(size);
    t->config = ep;
    g_object_ref(ep);
    t->type = type;

    return t;
}

/**
 * e_config_target_free:
 * @ep: Parent EConfig object.
 * @o: The target to fre.
 * 
 * Free a target.  The implementing class can override this method to
 * free custom targets.
 **/
void
e_config_target_free(EConfig *ep, void *o)
{
    EConfigTarget *t = o;

    ((EConfigClass *)G_OBJECT_GET_CLASS(ep))->target_free(ep, t);
}

/* ********************************************************************** */

/* Config menu plugin handler */

/*
<e-plugin
  class="org.gnome.mail.plugin.config:1.0"
  id="org.gnome.mail.plugin.config.item:1.0"
  type="shlib"
  location="/opt/gnome2/lib/camel/1.0/libcamelimap.so"
  name="imap"
  description="IMAP4 and IMAP4v1 mail store">
  <hook class="org.gnome.mail.configMenu:1.0"
        handler="HandleConfig">
  <menu id="any" target="select">
   <item
    type="item|toggle|radio|image|submenu|bar"
    active
    path="foo/bar"
    label="label"
    icon="foo"
    activate="ep_view_emacs"/>
  </menu>
  </extension>

*/

static void *emph_parent_class;
#define emph ((EConfigHook *)eph)

static const EPluginHookTargetKey ech_item_types[] = {
    { "book", E_CONFIG_BOOK },
    { "druid", E_CONFIG_DRUID },

    { "page", E_CONFIG_PAGE },
    { "page_start", E_CONFIG_PAGE_START },
    { "page_finish", E_CONFIG_PAGE_FINISH },
    { "section", E_CONFIG_SECTION },
    { "section_table", E_CONFIG_SECTION_TABLE },
    { "item", E_CONFIG_ITEM },
    { "item_table", E_CONFIG_ITEM_TABLE },
    { 0 },
};

static void
ech_commit(EConfig *ec, GSList *items, void *data)
{
    struct _EConfigHookGroup *group = data;

    if (group->commit)
        e_plugin_invoke(group->hook->hook.plugin, group->commit, ec->target);
}

static void
ech_abort(EConfig *ec, GSList *items, void *data)
{
    struct _EConfigHookGroup *group = data;

    if (group->abort)
        e_plugin_invoke(group->hook->hook.plugin, group->abort, ec->target);
}

static gboolean
ech_check(EConfig *ec, const char *pageid, void *data)
{
    struct _EConfigHookGroup *group = data;
    EConfigHookPageCheckData hdata;

    hdata.config = ec;
    hdata.target = ec->target;
    hdata.pageid = pageid?pageid:"";

    return GPOINTER_TO_INT(e_plugin_invoke(group->hook->hook.plugin, group->check, &hdata));
}

static void
ech_config_factory(EConfig *emp, void *data)
{
    struct _EConfigHookGroup *group = data;

    d(printf("config factory called %s\n", group->id?group->id:"all menus"));

    if (emp->target->type != group->target_type)
        return;

    if (group->items)
        e_config_add_items(emp, group->items, ech_commit, ech_abort, NULL, group);

    if (group->check)
        e_config_add_page_check(emp, NULL, ech_check, group);
}

static void
emph_free_item(struct _EConfigItem *item)
{
    g_free(item->path);
    g_free(item->label);
    g_free(item->user_data);
    g_free(item);
}

static void
emph_free_group(struct _EConfigHookGroup *group)
{
    g_slist_foreach(group->items, (GFunc)emph_free_item, NULL);
    g_slist_free(group->items);

    g_free(group->id);
    g_free(group);
}

static struct _GtkWidget *
ech_config_widget_factory(EConfig *ec, EConfigItem *item, GtkWidget *parent, GtkWidget *old, void *data)
{
    struct _EConfigHookGroup *group = data;
    EConfigHookItemFactoryData hdata;

    hdata.config = ec;
    hdata.item = item;
    hdata.target = ec->target;
    hdata.parent = parent;
    hdata.old = old;

    return (struct _GtkWidget *)e_plugin_invoke(group->hook->hook.plugin, (char *)item->user_data, &hdata);
}

static struct _EConfigItem *
emph_construct_item(EPluginHook *eph, EConfigHookGroup *menu, xmlNodePtr root, EConfigHookTargetMap *map)
{
    struct _EConfigItem *item;

    d(printf("  loading config item\n"));
    item = g_malloc0(sizeof(*item));
    if ((item->type = e_plugin_hook_id(root, ech_item_types, "type")) == -1)
        goto error;
    item->path = e_plugin_xml_prop(root, "path");
    item->label = e_plugin_xml_prop_domain(root, "label", eph->plugin->domain);
    item->user_data = e_plugin_xml_prop(root, "factory");

    if (item->path == NULL
        || (item->label == NULL && item->user_data == NULL))
        goto error;

    if (item->user_data)
        item->factory = ech_config_widget_factory;

    d(printf("   path=%s label=%s factory=%s\n", item->path, item->label, (char *)item->user_data));

    return item;
error:
    d(printf("error!\n"));
    emph_free_item(item);
    return NULL;
}

static struct _EConfigHookGroup *
emph_construct_menu(EPluginHook *eph, xmlNodePtr root)
{
    struct _EConfigHookGroup *menu;
    xmlNodePtr node;
    EConfigHookTargetMap *map;
    EConfigHookClass *klass = (EConfigHookClass *)G_OBJECT_GET_CLASS(eph);
    char *tmp;

    d(printf(" loading menu\n"));
    menu = g_malloc0(sizeof(*menu));

    tmp = xmlGetProp(root, "target");
    if (tmp == NULL)
        goto error;
    map = g_hash_table_lookup(klass->target_map, tmp);
    xmlFree(tmp);
    if (map == NULL)
        goto error;

    menu->target_type = map->id;
    menu->id = e_plugin_xml_prop(root, "id");
    menu->check = e_plugin_xml_prop(root, "check");
    menu->commit = e_plugin_xml_prop(root, "commit");
    menu->abort = e_plugin_xml_prop(root, "abort");
    menu->hook = (EConfigHook *)eph;
    node = root->children;
    while (node) {
        if (0 == strcmp(node->name, "item")) {
            struct _EConfigItem *item;

            item = emph_construct_item(eph, menu, node, map);
            if (item)
                menu->items = g_slist_append(menu->items, item);
        }
        node = node->next;
    }

    return menu;
error:
    emph_free_group(menu);
    return NULL;
}

static int
emph_construct(EPluginHook *eph, EPlugin *ep, xmlNodePtr root)
{
    xmlNodePtr node;
    EConfigClass *klass;

    d(printf("loading config hook\n"));

    if (((EPluginHookClass *)emph_parent_class)->construct(eph, ep, root) == -1)
        return -1;

    klass = ((EConfigHookClass *)G_OBJECT_GET_CLASS(eph))->config_class;

    node = root->children;
    while (node) {
        if (strcmp(node->name, "group") == 0) {
            struct _EConfigHookGroup *group;

            group = emph_construct_menu(eph, node);
            if (group) {
                e_config_class_add_factory(klass, group->id, ech_config_factory, group);
                emph->groups = g_slist_append(emph->groups, group);
            }
        }
        node = node->next;
    }

    eph->plugin = ep;

    return 0;
}

static void
emph_finalise(GObject *o)
{
    EPluginHook *eph = (EPluginHook *)o;

    g_slist_foreach(emph->groups, (GFunc)emph_free_group, NULL);
    g_slist_free(emph->groups);

    ((GObjectClass *)emph_parent_class)->finalize(o);
}

static void
emph_class_init(EPluginHookClass *klass)
{
    ((GObjectClass *)klass)->finalize = emph_finalise;
    klass->construct = emph_construct;

    /* this is actually an abstract implementation but list it anyway */
    klass->id = "org.gnome.evolution.config:1.0";

    d(printf("EConfigHook: init class %p '%s'\n", klass, g_type_name(((GObjectClass *)klass)->g_type_class.g_type)));

    ((EConfigHookClass *)klass)->target_map = g_hash_table_new(g_str_hash, g_str_equal);
    ((EConfigHookClass *)klass)->config_class = g_type_class_ref(e_config_get_type());
}

/**
 * e_config_hook_get_type:
 * 
 * Standard GObject function to get the object type.
 * 
 * Return value: The EConfigHook class type.
 **/
GType
e_config_hook_get_type(void)
{
    static GType type = 0;
    
    if (!type) {
        static const GTypeInfo info = {
            sizeof(EConfigHookClass), NULL, NULL, (GClassInitFunc) emph_class_init, NULL, NULL,
            sizeof(EConfigHook), 0, (GInstanceInitFunc) NULL,
        };

        emph_parent_class = g_type_class_ref(e_plugin_hook_get_type());
        type = g_type_register_static(e_plugin_hook_get_type(), "EConfigHook", &info, 0);
    }
    
    return type;
}

/**
 * e_config_hook_class_add_target_map:
 *
 * @klass: The dervied EconfigHook class.
 * @map: A map used to describe a single EConfigTarget type for this
 * class.
 * 
 * Add a targe tmap to a concrete derived class of EConfig.  The
 * target map enumates the target types available for the implenting
 * class.
 **/
void e_config_hook_class_add_target_map(EConfigHookClass *klass, const EConfigHookTargetMap *map)
{
    g_hash_table_insert(klass->target_map, (void *)map->type, (void *)map);
}