path: root/executive-summary/component/e-summary.c

/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */
/* e-summary.c
 *
 * Authors: Iain Holmes <iain@helixcode.com>
 *
 * Copyright (C) 2000  Helix Code, Inc.
 *
 * 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 Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 */

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

#include <gnome.h>
#include <bonobo.h>

#include <gtkhtml/gtkhtml.h>
#include <gtkhtml/gtkhtml-stream.h>
#include <gtk/gtkvbox.h>
#include <gal/util/e-util.h>

#include <evolution-services/executive-summary.h>
#include <evolution-services/executive-summary-component-client.h>
#include <evolution-services/executive-summary-component-view.h>

#include <libgnomevfs/gnome-vfs.h>
#include "e-summary.h"

#define PARENT_TYPE (gtk_vbox_get_type ())

static GtkObjectClass *e_summary_parent_class;

struct _ESummaryPrivate {
    GtkWidget *html_scroller;
    GtkWidget *html;

    GHashTable *id_to_view;
    GHashTable *summary_to_window;
    GList *window_list;

    guint idle;

    GtkHTMLStream *stream;
};

typedef struct _ESummaryWindow {
    ExecutiveSummary *summary;
    ExecutiveSummaryComponentView *view;
} ESummaryWindow;

static gboolean on_object_requested (GtkHTML *html,
                     GtkHTMLEmbedded *eb,
                     ESummary *summary);
static void e_summary_window_free (ESummaryWindow *window,
                   ESummaryPrivate *priv);
        
/* GtkObject methods */

static void
s2w_foreach (gpointer *key,
         gpointer *value,
         ESummaryPrivate *priv)
{
    g_print ("%s\n", __FUNCTION__);
    e_summary_window_free ((ESummaryWindow *) value, priv);
    g_free (value);
}

static void
e_summary_destroy (GtkObject *object)
{
    ESummary *esummary = E_SUMMARY (object);
    ESummaryPrivate *priv;

    g_print ("Destroy\n");
    priv = esummary->private;
    if (priv == NULL)
        return;

    g_hash_table_foreach (priv->summary_to_window, 
                  s2w_foreach, priv);
    g_hash_table_destroy (priv->summary_to_window);
    g_hash_table_destroy (priv->id_to_view);

    g_free (esummary->private);
    esummary->private = NULL;

    e_summary_parent_class->destroy (object);
}

static void
e_summary_class_init (GtkObjectClass *object_class)
{
    object_class->destroy = e_summary_destroy;
    
    e_summary_parent_class = gtk_type_class (PARENT_TYPE);
}

static char *
e_pixmap_file (const char *filename)
{
    char *ret;
    char *edir;

    if (g_file_exists (filename)) {
        ret = g_strdup (filename);

        return ret;
    }

    /* Try the evolution images dir */
    edir = g_concat_dir_and_file (EVOLUTION_DATADIR "/images/evolution",
                      filename);

    if (g_file_exists (edir)) {
        ret = g_strdup (edir);
        g_free (edir);

        return ret;
    }

    /* Try the evolution button images dir */
    edir = g_concat_dir_and_file (EVOLUTION_DATADIR "/images/evolution/buttons",
                      filename);

    if (g_file_exists (edir)) {
        ret = g_strdup (edir);
        g_free (edir);
        
        return ret;
    }

    /* Fall back to the gnome_pixmap_file */
    return gnome_pixmap_file (filename);
}
    
static void
request_cb (GtkHTML *html,
        const gchar *url,
        GtkHTMLStream *stream)
{
    char *filename;
    GnomeVFSHandle *handle = NULL;
    GnomeVFSResult result;

    if (strncasecmp (url, "file:", 5) == 0) {
        url += 5;
        filename = e_pixmap_file (url);
    } else if (strchr (url, ':') >= strchr (url, '/')) {
        filename = e_pixmap_file (url);
    } else
        filename = g_strdup (url);

    if (filename == NULL) {
        gtk_html_stream_close (stream, GTK_HTML_STREAM_ERROR);
        return;
    }

    result = gnome_vfs_open (&handle, filename, GNOME_VFS_OPEN_READ);

    if (result != GNOME_VFS_OK) {
        g_warning ("%s: %s", filename, 
               gnome_vfs_result_to_string (result));
        g_free (filename);
        gtk_html_stream_close (stream, GTK_HTML_STREAM_ERROR);
        return;
    }

    g_free (filename);
    while (1) {
        char buffer[4096];
        GnomeVFSFileSize size;

        /* Clear buffer */
        memset (buffer, 0x00, 4096);

        result = gnome_vfs_read (handle, buffer, 4096, &size);
        if (result != GNOME_VFS_OK && result != GNOME_VFS_ERROR_EOF) {
            g_warning ("Error reading data: %s", 
                   gnome_vfs_result_to_string (result));
            gnome_vfs_close (handle);
            gtk_html_stream_close (stream, GTK_HTML_STREAM_ERROR);
        }

        if (size == 0)
            break; /* EOF */

        gtk_html_stream_write (stream, buffer, size);
    }
    
    gtk_html_stream_close (stream, GTK_HTML_STREAM_OK);
    gnome_vfs_close (handle);
}

static void
e_summary_start_load (ESummary *summary)
{
    ESummaryPrivate *priv;
    char *header = "<html><body bgcolor=\"#ffffff\">";

    priv = summary->private;
    priv->stream = gtk_html_begin (GTK_HTML (priv->html));
    gtk_html_write (GTK_HTML (priv->html), priv->stream,
            header, strlen (header));
}

static void
load_default (ESummary *summary)
{
    ESummaryPrivate *priv;
    char *def = "<table width=\"100%\"><tr><td align=\"right\"><img src=\"ccsplash.png\"></td></tr></table><hr>";

    g_return_if_fail (summary != NULL);
    g_return_if_fail (IS_E_SUMMARY (summary));

    priv = summary->private;

    g_return_if_fail (priv->stream != NULL);

    gtk_html_write (GTK_HTML (priv->html), priv->stream, def, strlen (def));
}

static void
e_summary_end_load (ESummary *summary)
{
    ESummaryPrivate *priv;
    char *footer = "</body></html>";

    priv = summary->private;
    gtk_html_write (GTK_HTML (priv->html), priv->stream, 
            footer, strlen (footer));
    gtk_html_end (GTK_HTML (priv->html), priv->stream, GTK_HTML_STREAM_OK);

    priv->stream = NULL;
}

static void
e_summary_init (ESummary *esummary)
{
    GdkColor bgcolour = {0, 0xdfff, 0xdfff, 0xffff};
    ESummaryPrivate *priv;

    esummary->private = g_new0 (ESummaryPrivate, 1);
    priv = esummary->private;

    priv->window_list = NULL;
    priv->idle = 0;
    /* HTML widget */
    priv->html_scroller = gtk_scrolled_window_new (NULL, NULL);
    gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (priv->html_scroller),
                    GTK_POLICY_NEVER, GTK_POLICY_AUTOMATIC);
    priv->html = gtk_html_new ();
    gtk_html_set_editable (GTK_HTML (priv->html), FALSE);
    gtk_html_set_default_background_color (GTK_HTML (priv->html), &bgcolour);
    gtk_signal_connect (GTK_OBJECT (priv->html), "url-requested",
                GTK_SIGNAL_FUNC (request_cb), NULL);
    gtk_signal_connect (GTK_OBJECT (priv->html), "object-requested", 
                GTK_SIGNAL_FUNC (on_object_requested), esummary); 
    
    gtk_container_add (GTK_CONTAINER (priv->html_scroller), priv->html);
    gtk_widget_show_all (priv->html_scroller);

    e_summary_rebuild_page (esummary);

    /* Pack stuff */
    gtk_box_pack_start (GTK_BOX (esummary), priv->html_scroller, 
                TRUE, TRUE, 0);

    /* Init hashtables */
    priv->summary_to_window = g_hash_table_new (NULL, NULL);
    priv->id_to_view = g_hash_table_new (NULL, NULL);
}

E_MAKE_TYPE (e_summary, "ESummary", ESummary, e_summary_class_init,
         e_summary_init, PARENT_TYPE);

GtkWidget *
e_summary_new (const Evolution_Shell shell)
{
    ESummary *esummary;

    esummary = gtk_type_new (e_summary_get_type ());

    return GTK_WIDGET (esummary);
}

static gboolean
on_object_requested (GtkHTML *html,
             GtkHTMLEmbedded *eb,
             ESummary *summary)
{
    ESummaryWindow *window;
    int type;

    if (sscanf (eb->classid, "cid:%d-%p", &type, &window) != 2) {
        g_warning ("Could not get the window reference\n");
        return FALSE;
    }

    switch (type) {
    case 1:
        g_assert_not_reached ();
        break;

    case 2:
        g_warning ("Bonobo services are not supported in this version.");
        break;

    default:
        g_assert_not_reached ();
    }

    return TRUE;
}

static void
e_summary_display_window (ESummary *esummary,
              ESummaryWindow *window,
              int col)
{
    ESummaryPrivate *priv;
    char *footer = "</td></tr></table>";
    char *title_html;
    char *colour[2] = {"e6e8e4", 
               "edeeeb"};
    char *title_colour[2] = {"bac1b6", 
                 "cdd1c7"};
    const char *title, *icon, *html;

    priv = esummary->private;

    title = executive_summary_component_view_get_title (window->view);
    icon = executive_summary_component_view_get_icon (window->view);
    html = executive_summary_component_view_get_html (window->view);

    /** FIXME: Make this faster by caching it? */
    title_html = g_strdup_printf ("<table cellspacing=\"0\" "
                      "cellpadding=\"0\" border=\"0\" width=\"100%%\" height=\"100%%\">"
                      "<tr><td bgcolor=\"#%s\">"
                      "<table width=\"100%%\"><tr><td>"
                      "<img src=\"%s\"></td>"
                      "<td nowrap align=\"center\" width=\"100%%\">"
                      "<b>%s</b></td></tr></table></td></tr><tr>"
                      "<td bgcolor=\"#%s\" height=\"100%%\">", 
                      title_colour[col % 2], icon, title,
                      colour[col % 2]);
    
    gtk_html_write (GTK_HTML (priv->html), priv->stream, title_html,
            strlen (title_html));
    g_free (title_html);
    
    if (html != NULL && *html != '\0') {
        gtk_html_write (GTK_HTML (priv->html), priv->stream,
                html, strlen (html));
    } else {
        g_warning ("Bonobo executive summary components are not supported at this time.");
#if 0
        body_cid = g_strdup_printf ("<object classid=\"cid:2-%p\"></object>", window);
        gtk_html_write (GTK_HTML (priv->html), priv->stream,
                body_cid, strlen (body_cid));
#endif
    }

    gtk_html_write (GTK_HTML (priv->html), priv->stream,
            footer, strlen (footer));
}

int
e_summary_rebuild_page (ESummary *esummary)
{
    ESummaryPrivate *priv;
    GList *windows;
    char *service_table = "<table numcols=\"3\" cellspacing=\"0\" cellpadding=\"0\" border=\"0\" height=\"100%\">";
    int loc;

    g_return_val_if_fail (esummary != NULL, FALSE);
    g_return_val_if_fail (IS_E_SUMMARY (esummary), FALSE);

    priv = esummary->private;

    gtk_layout_freeze (GTK_LAYOUT (priv->html));
    e_summary_start_load (esummary);
    load_default (esummary);

    /* Load the start of the services */
    gtk_html_write (GTK_HTML (priv->html), priv->stream, service_table,
            strlen (service_table));
    /* Load each of the services */
    loc = 0;
    for (windows = priv->window_list; windows; windows = windows->next) {
        ESummaryWindow *window;
        char *td = "<td height=\"100%\" width=\"33%\" valign=\"top\">";
        
        window = windows->data;

        if (loc % 3 == 0) {
            if (loc != 0) {
                gtk_html_write (GTK_HTML (priv->html),
                        priv->stream, "</tr>", 5);
            }
            gtk_html_write (GTK_HTML (priv->html),
                    priv->stream, "<tr height=\"100%\">", 18);
        }

        gtk_html_write (GTK_HTML (priv->html), priv->stream,
                td, strlen (td));

        e_summary_display_window (esummary, window, (loc % 3));

        gtk_html_write (GTK_HTML (priv->html), priv->stream, "</td>", 5);
        loc++;
    }
                
    gtk_html_write (GTK_HTML (priv->html), priv->stream, "</tr></table>",
            13);
    e_summary_end_load (esummary);
    gtk_layout_thaw (GTK_LAYOUT (priv->html));

    priv->idle = 0;
    return FALSE;
}

void
e_summary_add_service (ESummary *esummary,
               ExecutiveSummary *summary,
               ExecutiveSummaryComponentView *view)
{
    ESummaryWindow *window;
    ESummaryPrivate *priv;
    int id;

    g_return_if_fail (esummary != NULL);
    g_return_if_fail (IS_E_SUMMARY (esummary));
    g_return_if_fail (summary != NULL);
    g_return_if_fail (IS_EXECUTIVE_SUMMARY (summary));
    g_return_if_fail (view != NULL);
    g_return_if_fail (IS_EXECUTIVE_SUMMARY_COMPONENT_VIEW (view));

    window = g_new0 (ESummaryWindow, 1);
    window->summary = summary;

    window->view = view;

    priv = esummary->private;
    priv->window_list = g_list_append (priv->window_list, window);
    g_hash_table_insert (priv->summary_to_window, summary, window);
    
    id = executive_summary_component_view_get_id (view);
    g_print ("--%d: %p\n", id, view);
    g_hash_table_insert (priv->id_to_view, GINT_TO_POINTER (id), view);
}

#if 0
void
e_summary_add_html_service (ESummary *esummary,
                ExecutiveSummary *summary,
                ExecutiveSummaryComponentClient *client,
                const char *html,
                const char *title,
                const char *icon)
{
    ESummaryWindow *window;
    ESummaryPrivate *priv;

    window = g_new0 (ESummaryWindow, 1);
    window->type = E_SUMMARY_WINDOW_HTML;
    window->html = g_strdup (html);
    window->title = g_strdup (title);
    window->icon = icon ? g_strdup (icon) : NULL;
    window->client = client;

    window->summary = summary;
    priv = esummary->private;
    priv->window_list = g_list_append (priv->window_list, window);

    g_hash_table_insert (priv->summary_to_window, summary, window);
}

void
e_summary_add_bonobo_service (ESummary *esummary,
                  ExecutiveSummary *summary,
                  ExecutiveSummaryComponentClient *client,
                  GtkWidget *control,
                  const char *title,
                  const char *icon)
{
    ESummaryWindow *window;
    ESummaryPrivate *priv;
    
    window = g_new0 (ESummaryWindow, 1);
    window->type = E_SUMMARY_WINDOW_BONOBO;
    window->control = control;

    window->client = client;

    window->title = g_strdup (title);
    window->summary = summary;
    window->icon = icon ? g_strdup (icon): NULL;

    priv = esummary->private;
    priv->window_list = g_list_append (priv->window_list, window);

    g_hash_table_insert (priv->summary_to_window, summary, window);
}
#endif

static void
e_summary_window_free (ESummaryWindow *window,
               ESummaryPrivate *priv)
{
    g_print ("%s\n", __FUNCTION__);
    priv->window_list = g_list_remove (priv->window_list, window);

    bonobo_object_unref (BONOBO_OBJECT (window->summary));
    gtk_object_unref (GTK_OBJECT (window->view));
}

/* Call this before e_summary_window_free, execpt when you are freeing
   the hash table */
static void
e_summary_window_remove_from_ht (ESummaryWindow *window,
                 ESummaryPrivate *priv)
{
    g_hash_table_remove (priv->summary_to_window, window->summary);
}

void
e_summary_update_window (ESummary *esummary,
             ExecutiveSummary *summary,
             const char *html)
{
    ESummaryPrivate *priv;
    
    g_return_if_fail (esummary != NULL);
    g_return_if_fail (IS_E_SUMMARY (esummary));
    g_return_if_fail (summary != NULL);
    
    priv = esummary->private;
    
    if (priv->idle != 0)
        return;
    
    priv->idle = g_idle_add (e_summary_rebuild_page, esummary);
}

ExecutiveSummaryComponentView *
e_summary_view_from_id (ESummary *esummary,
            int id)
{
    ESummaryPrivate *priv;
    ExecutiveSummaryComponentView *view;

    g_return_val_if_fail (esummary != NULL, NULL);
    g_return_val_if_fail (IS_E_SUMMARY (esummary), NULL);
    g_return_val_if_fail (id > 0, NULL);

    priv = esummary->private;
    view = g_hash_table_lookup (priv->id_to_view, GINT_TO_POINTER (id));

    g_print ("%d: %p\n", id, view);
    return view;
}