path: root/my-evolution/e-summary-mail.c

/* 
 * e-summary-mail.c: Mail summary bit.
 *
 * Copyright (C) 2001 Ximian, Inc.
 *
 * Authors: Iain Holmes  <iain@ximian.com>
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include <liboaf/liboaf.h>
#include <gal/widgets/e-unicode.h>

#include "Mail.h"
#include "e-summary.h"
#include "e-summary-mail.h"

#include <libgnome/gnome-defs.h>
#include <libgnome/gnome-i18n.h>
#include <gtk/gtksignal.h>
#include <bonobo/bonobo-exception.h>
#include <bonobo/bonobo-listener.h>

#include <Evolution.h>
#include <evolution-storage-listener.h>

#define MAIL_IID "OAFIID:GNOME_Evolution_FolderInfo"

struct _ESummaryMail {
    GNOME_Evolution_FolderInfo folder_info;
    BonoboListener *listener;

    GHashTable *folders;
    GList *shown;
    ESummaryMailMode mode;

    char *html;
};

typedef struct _ESummaryMailFolder {
    char *name;
    char *path;

    int count;
    int unread;
} ESummaryMailFolder;

const char *
e_summary_mail_get_html (ESummary *summary)
{
    if (summary->mail == NULL) {
        return NULL;
    }

    return summary->mail->html;
}

/* Work out what to do with folder names */
static char *
make_pretty_foldername (const char *foldername)
{
    char *pretty;

    if ((pretty = strrchr (foldername, '/'))) {
        return g_strdup (pretty + 1);
    } else {
        return g_strdup (foldername);
    }
}

static void
folder_gen_html (ESummaryMailFolder *folder,
         GString *string)
{
    char *str, *pretty_name, *uri;
    
    pretty_name = make_pretty_foldername (folder->name);
    uri = g_strconcat ("evolution:/local", folder->name, NULL); 
    str = g_strdup_printf ("<tr><td><a href=\"%s\"><pre>%s</pre></a></td><td align=\"Left\"><pre>%d/%d</pre></td></tr>", 
                   uri, pretty_name, folder->unread, folder->count);
    g_free (uri);
    g_string_append (string, str);
    g_free (pretty_name);
    g_free (str);
}

static void
e_summary_mail_generate_html (ESummary *summary)
{
    ESummaryMail *mail;
    GString *string;
    GList *p;
    gchar *s;

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

    mail = summary->mail;
    string = g_string_new ("<dl><dt><img src=\"ico-mail.png\" "
                           "align=\"middle\" alt=\"\" width=\"48\" "
                           "height=\"48\"> <b><a href=\"evolution:/local/Inbox\">");
    s = e_utf8_from_locale_string (_("Mail summary"));
    g_string_append (string, s);
    g_free (s);
    g_string_append (string, "</a></b></dt><dd><table numcols=\"2\" width=\"100%\">");
    
    for (p = mail->shown; p; p = p->next) {
        folder_gen_html (p->data, string);
    }

    g_string_append (string, "</table></dd></dl>");
    mail->html = string->str;
    g_string_free (string, FALSE);
}

static void
e_summary_mail_get_info (ESummaryMail *mail,
             const char *uri,
             BonoboListener *listener)
{
    Bonobo_Listener corba_listener;
    CORBA_Environment ev;

    g_return_if_fail (mail != NULL);
    g_return_if_fail (mail->folder_info != CORBA_OBJECT_NIL);

    corba_listener = bonobo_object_corba_objref (BONOBO_OBJECT (listener));
    CORBA_exception_init (&ev);
    GNOME_Evolution_FolderInfo_getInfo (mail->folder_info, uri ? uri : "",
                        corba_listener, &ev);
    if (BONOBO_EX (&ev)) {
        g_warning ("Error getting info for %s:\n%s", uri,
               CORBA_exception_id (&ev));
        CORBA_exception_free (&ev);
        return;
    }

    CORBA_exception_free (&ev);
    return;
}

static void
new_folder_cb (EvolutionStorageListener *listener,
           const char *path,
           const GNOME_Evolution_Folder *folder,
           ESummary *summary)
{
    ESummaryMail *mail;
    ESummaryMailFolder *mail_folder;
    GList *p;

    /* Don't care about non mail */
    if (strcmp (folder->type, "mail") != 0 ||
        strncmp (folder->physical_uri, "file://", 7) != 0) {
        return;
    }

    mail = summary->mail;

    mail_folder = g_new (ESummaryMailFolder, 1);
    mail_folder->path = g_strdup (folder->physical_uri);
    mail_folder->name = g_strdup (path);
    mail_folder->count = -1;
    mail_folder->unread = -1;

    g_hash_table_insert (mail->folders, mail_folder->path, mail_folder);
    
    /* Are we supposed to display this folder? */
    for (p = summary->preferences->display_folders; p; p = p->next) {
        char *uri;

        uri = g_strconcat ("file://", p->data, NULL);
        if (strcmp (uri, mail_folder->path) == 0) {
            mail->shown = g_list_prepend (mail->shown, mail_folder);
        }

        g_free (uri);
    }

    e_summary_mail_get_info (mail, mail_folder->path, mail->listener);
}

static void
remove_folder_cb (EvolutionStorageListener *listener,
          const char *path,
          ESummary *summary)
{
    ESummaryMail *mail;
    ESummaryMailFolder *mail_folder;
    GList *p;

    mail = summary->mail;
    mail_folder = g_hash_table_lookup (mail->folders, path);
    if (mail_folder == NULL) {
        return;
    }

    /* Check if we're displaying it, because we can't display it if it
       doesn't exist :) */
    for (p = mail->shown; p; p = p->next) {
        if (p->data == mail_folder) {
            mail->shown = g_list_remove_link (mail->shown, p);
            g_list_free (p);
        }
    }

    g_hash_table_remove (mail->folders, path);
    g_free (mail_folder->name);
    g_free (mail_folder->path);
    g_free (mail_folder);
}

static void
mail_change_notify (BonoboListener *listener,
            const char *name,
            const BonoboArg *arg,
            CORBA_Environment *ev,
            ESummary *summary)
{
    GNOME_Evolution_FolderInfo_MessageCount *count;
    ESummaryMail *mail;
    ESummaryMailFolder *folder;

    mail = summary->mail;

    count = arg->_value;
    folder = g_hash_table_lookup (mail->folders, count->path);

    if (folder == NULL) {
        return;
    }

    folder->count = count->count;
    folder->unread = count->unread;

    /* Regen HTML */
    e_summary_mail_generate_html (summary);
    e_summary_draw (summary);
}

static void
e_summary_mail_protocol (ESummary *summary,
             const char *uri,
             void *closure)
{
}

void
e_summary_mail_init (ESummary *summary,
             GNOME_Evolution_Shell corba_shell)
{
    ESummaryMail *mail;
    CORBA_Environment ev;
    GNOME_Evolution_LocalStorage local_storage;
    EvolutionStorageListener *listener;
    GNOME_Evolution_StorageListener corba_listener;

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

    mail = g_new (ESummaryMail, 1);
    summary->mail = mail;


    CORBA_exception_init (&ev);
    mail->folder_info = oaf_activate_from_id (MAIL_IID, 0, NULL, &ev);
    if (BONOBO_EX (&ev)) {
        g_warning ("Exception creating FolderInfo: %s", 
               CORBA_exception_id (&ev));
        CORBA_exception_free (&ev);

        g_free (mail);
        return;
    }

    /* Create a hash table for the folders */
    mail->folders = g_hash_table_new (g_str_hash, g_str_equal);
    mail->shown = NULL;
    
    /* Create a BonoboListener for all the notifies. */
    mail->listener = bonobo_listener_new (NULL, NULL);
    gtk_signal_connect (GTK_OBJECT (mail->listener), "event-notify",
                GTK_SIGNAL_FUNC (mail_change_notify), summary);

    local_storage = GNOME_Evolution_Shell_getLocalStorage (corba_shell, &ev);
    if (BONOBO_EX (&ev)) {
        g_warning ("Exception getting local storage: %s",
               CORBA_exception_id (&ev));
        CORBA_exception_free (&ev);
        
        g_free (mail);
        return;
    }

    listener = evolution_storage_listener_new ();
    gtk_signal_connect (GTK_OBJECT (listener), "new-folder",
                GTK_SIGNAL_FUNC (new_folder_cb), summary);
    gtk_signal_connect (GTK_OBJECT (listener), "removed-folder",
                GTK_SIGNAL_FUNC (remove_folder_cb), summary);
    corba_listener = evolution_storage_listener_corba_objref (listener);

    GNOME_Evolution_Storage_addListener (local_storage, corba_listener, &ev);
    if (BONOBO_EX (&ev)) {
        g_warning ("Exception adding listener: %s", 
               CORBA_exception_id (&ev));
        CORBA_exception_free (&ev);
        
        g_free (mail);
        return;
    }

    CORBA_exception_free (&ev);

    e_summary_add_protocol_listener (summary, "mail", e_summary_mail_protocol, mail);
    return;
}

static void
maybe_add_to_shown (gpointer key,
            gpointer value,
            gpointer user_data)
{
    ESummary *summary = user_data;
    ESummaryMailFolder *folder = value;
    ESummaryMail *mail = summary->mail;
    GList *p;

    /* Are we supposed to display this folder? */
    for (p = summary->preferences->display_folders; p; p = p->next) {
        char *uri;
        
        uri = g_strconcat ("file://", p->data, NULL);
        if (strcmp (uri, folder->path) == 0) {
            mail->shown = g_list_prepend (mail->shown, folder);
        }
        
        g_free (uri);
    }
}

void
e_summary_mail_reconfigure (ESummary *summary)
{
    ESummaryMail *mail;
    GList *old;

    g_return_if_fail (summary != NULL);
    g_return_if_fail (IS_E_SUMMARY (summary));
    
    mail = summary->mail;
    old = mail->shown;
    mail->shown = NULL;
    g_hash_table_foreach (mail->folders, maybe_add_to_shown, summary);
    e_summary_mail_generate_html (summary);

    /* Free the old list */
    g_list_free (old);

    e_summary_draw (summary);
}

static void
free_row_data (gpointer data)
{
    ESummaryMailRowData *rd = data;

    g_free (rd->name);
    g_free (rd->uri);
    g_free (rd);
}

static void
hash_to_list (gpointer key,
          gpointer value,
          gpointer data)
{
    ESummaryMailRowData *rd;
    ESummaryMailFolder *folder;
    GList **p;

    p = (GList **) data;
    folder = (ESummaryMailFolder *) value;

    rd = g_new (ESummaryMailRowData, 1);
    rd->name = g_strdup (folder->name);
    rd->uri = g_strdup (key);

    *p = g_list_prepend (*p, rd);
}

static int
str_compare (gconstpointer a,
         gconstpointer b)
{
    ESummaryMailRowData *rda, *rdb;

    rda = a;
    rdb = b;
    return strcmp (rda->name, rdb->name);
}

void
e_summary_mail_fill_list (GtkCList *clist,
              ESummary *summary)
{
    ESummaryMail *mail;
    GList *names = NULL, *p;

    mail = summary->mail;
    if (mail == NULL) {
        return;
    }

    g_hash_table_foreach (mail->folders, hash_to_list, &names);

    names = g_list_sort (names, str_compare);
    for (p = names; p; p = p->next) {
        ESummaryMailRowData *rd;
        char *text[1];
        int row;

        rd = p->data;
        text[0] = rd->name + 1;
        row = gtk_clist_append (clist, text);
        gtk_clist_set_row_data_full (clist, row, rd, free_row_data);
    }

    g_list_free (names);
}

const char *
e_summary_mail_uri_to_name (ESummary *summary,
                const char *uri)
{
    ESummaryMailFolder *folder;

    folder = g_hash_table_lookup (summary->mail->folders, uri);
    if (folder == NULL) {
        return NULL;
    } else {
        return folder->name;
    }
}
    
static void
free_folder (gpointer key,
         gpointer value,
         gpointer data)
{
    ESummaryMailFolder *folder = value;
    
    g_free (folder->name);
    g_free (folder->path);
    g_free (folder);
}

void
e_summary_mail_free (ESummary *summary)
{
    ESummaryMail *mail;

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

    mail = summary->mail;
    bonobo_object_release_unref (mail->folder_info, NULL);
    bonobo_object_unref (BONOBO_OBJECT (mail->listener));

    g_hash_table_foreach (mail->folders, free_folder, NULL);
    g_hash_table_destroy (mail->folders);

    g_free (mail->html);

    g_free (mail);
    summary->mail = NULL;
}