/*
* 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 Folders", 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 Folders/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_Storage 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;
}