/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
* Authors: Jeffrey Stedfast <fejj@ximian.com>
*
* Copyright 2002 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 "mail-preferences.h"
#include <gtkhtml/gtkhtml-properties.h>
#include "widgets/misc/e-charset-picker.h"
#include <bonobo/bonobo-generic-factory.h>
#include <camel/camel-pgp-context.h>
#include "mail-config.h"
static void mail_preferences_class_init (MailPreferencesClass *class);
static void mail_preferences_init (MailPreferences *dialog);
static void mail_preferences_finalise (GtkObject *obj);
static GtkVBoxClass *parent_class = NULL;
GtkType
mail_preferences_get_type (void)
{
static GtkType type = 0;
if (!type) {
GtkTypeInfo type_info = {
"MailPreferences",
sizeof (MailPreferences),
sizeof (MailPreferencesClass),
(GtkClassInitFunc) mail_preferences_class_init,
(GtkObjectInitFunc) mail_preferences_init,
(GtkArgSetFunc) NULL,
(GtkArgGetFunc) NULL
};
type = gtk_type_unique (gtk_vbox_get_type (), &type_info);
}
return type;
}
static void
mail_preferences_class_init (MailPreferencesClass *klass)
{
GtkObjectClass *object_class;
object_class = (GtkObjectClass *) klass;
parent_class = gtk_type_class (gtk_vbox_get_type ());
object_class->finalize = mail_preferences_finalise;
/* override methods */
}
static void
mail_preferences_init (MailPreferences *preferences)
{
preferences->gconf = gconf_client_get_default ();
}
static void
mail_preferences_finalise (GtkObject *obj)
{
MailPreferences *prefs = (MailPreferences *) obj;
gtk_object_unref (GTK_OBJECT (prefs->gui));
gtk_object_unref (GTK_OBJECT (prefs->gconf));
((GtkObjectClass *)(parent_class))->finalize (obj);
}
static void
colorpicker_set_color (GnomeColorPicker *color, guint32 rgb)
{
gnome_color_picker_set_i8 (color, (rgb & 0xff0000) >> 16, (rgb & 0xff00) >> 8, rgb & 0xff, 0xff);
}
static guint32
colorpicker_get_color (GnomeColorPicker *color)
{
guint8 r, g, b, a;
guint32 rgb = 0;
gnome_color_picker_get_i8 (color, &r, &g, &b, &a);
rgb = r >> 8;
rgb <<= 8;
rgb |= g >> 8;
rgb <<= 8;
rgb |= b >> 8;
return rgb;
}
static void
toggle_button_toggled (GtkWidget *widget, gpointer user_data)
{
MailPreferences *prefs = (MailPreferences *) user_data;
if (prefs->control)
evolution_config_control_changed (prefs->control);
}
static void
entry_changed (GtkWidget *widget, gpointer user_data)
{
MailPreferences *prefs = (MailPreferences *) user_data;
if (prefs->control)
evolution_config_control_changed (prefs->control);
}
static void
color_set (GtkWidget *widget, guint r, guint g, guint b, guint a, gpointer user_data)
{
MailPreferences *prefs = (MailPreferences *) user_data;
if (prefs->control)
evolution_config_control_changed (prefs->control);
}
static void
menu_changed (GtkWidget *widget, gpointer user_data)
{
MailPreferences *prefs = (MailPreferences *) user_data;
if (prefs->control)
evolution_config_control_changed (prefs->control);
}
static void
option_menu_connect (GtkOptionMenu *omenu, gpointer user_data)
{
GtkWidget *menu, *item;
GList *items;
menu = gtk_option_menu_get_menu (omenu);
items = GTK_MENU_SHELL (menu)->children;
while (items) {
item = items->data;
gtk_signal_connect (GTK_OBJECT (item), "activate",
menu_changed, user_data);
items = items->next;
}
}
static void
mail_preferences_construct (MailPreferences *prefs)
{
GtkWidget *toplevel, *menu;
const char *text;
GladeXML *gui;
gui = glade_xml_new (EVOLUTION_GLADEDIR "/mail-config.glade", "preferences_tab");
prefs->gui = gui;
/* get our toplevel widget */
toplevel = glade_xml_get_widget (gui, "toplevel");
/* reparent */
gtk_widget_ref (toplevel);
gtk_container_remove (GTK_CONTAINER (toplevel->parent), toplevel);
gtk_container_add (GTK_CONTAINER (prefs), toplevel);
gtk_widget_unref (toplevel);
/* General tab */
/* Message Display */
prefs->timeout_toggle = GTK_TOGGLE_BUTTON (glade_xml_get_widget (gui, "chkMarkTimeout"));
gtk_toggle_button_set_active (prefs->timeout_toggle, mail_config_get_do_seen_timeout ());
gtk_signal_connect (GTK_OBJECT (prefs->timeout_toggle), "toggled",
toggle_button_toggled, prefs);
prefs->timeout = GTK_SPIN_BUTTON (glade_xml_get_widget (gui, "spinMarkTimeout"));
gtk_spin_button_set_value (prefs->timeout, (1.0 * mail_config_get_mark_as_seen_timeout ()) / 1000.0);
gtk_signal_connect (GTK_OBJECT (prefs->timeout), "changed",
entry_changed, prefs);
prefs->charset = GTK_OPTION_MENU (glade_xml_get_widget (gui, "omenuCharset"));
menu = e_charset_picker_new (mail_config_get_default_charset ());
gtk_option_menu_set_menu (prefs->charset, GTK_WIDGET (menu));
option_menu_connect (prefs->charset, prefs);
prefs->citation_highlight = GTK_TOGGLE_BUTTON (glade_xml_get_widget (gui, "chkHighlightCitations"));
gtk_toggle_button_set_active (prefs->citation_highlight, mail_config_get_citation_highlight ());
gtk_signal_connect (GTK_OBJECT (prefs->citation_highlight), "toggled",
toggle_button_toggled, prefs);
prefs->citation_color = GNOME_COLOR_PICKER (glade_xml_get_widget (gui, "colorpickerHighlightCitations"));
colorpicker_set_color (prefs->citation_color, mail_config_get_citation_color ());
gtk_signal_connect (GTK_OBJECT (prefs->citation_color), "color-set",
color_set, prefs);
/* Deleting Mail */
prefs->empty_trash = GTK_TOGGLE_BUTTON (glade_xml_get_widget (gui, "chkEmptyTrashOnExit"));
gtk_toggle_button_set_active (prefs->empty_trash, mail_config_get_empty_trash_on_exit ());
gtk_signal_connect (GTK_OBJECT (prefs->empty_trash), "toggled",
toggle_button_toggled, prefs);
prefs->confirm_expunge = GTK_TOGGLE_BUTTON (glade_xml_get_widget (gui, "chkConfirmExpunge"));
gtk_toggle_button_set_active (prefs->confirm_expunge, mail_config_get_confirm_expunge ());
gtk_signal_connect (GTK_OBJECT (prefs->confirm_expunge), "toggled",
toggle_button_toggled, prefs);
/* New Mail Notification */
prefs->notify_not = GTK_TOGGLE_BUTTON (glade_xml_get_widget (gui, "radNotifyNot"));
gtk_toggle_button_set_active (prefs->notify_not, mail_config_get_new_mail_notify () == MAIL_CONFIG_NOTIFY_NOT);
gtk_signal_connect (GTK_OBJECT (prefs->notify_not), "toggled",
toggle_button_toggled, prefs);
prefs->notify_beep = GTK_TOGGLE_BUTTON (glade_xml_get_widget (gui, "radNotifyBeep"));
gtk_toggle_button_set_active (prefs->notify_beep, mail_config_get_new_mail_notify () == MAIL_CONFIG_NOTIFY_BEEP);
gtk_signal_connect (GTK_OBJECT (prefs->notify_beep), "toggled",
toggle_button_toggled, prefs);
prefs->notify_play_sound = GTK_TOGGLE_BUTTON (glade_xml_get_widget (gui, "radNotifyPlaySound"));
gtk_toggle_button_set_active (prefs->notify_play_sound,
mail_config_get_new_mail_notify () == MAIL_CONFIG_NOTIFY_PLAY_SOUND);
gtk_signal_connect (GTK_OBJECT (prefs->notify_play_sound), "toggled",
toggle_button_toggled, prefs);
prefs->notify_sound_file = GNOME_FILE_ENTRY (glade_xml_get_widget (gui, "fileNotifyPlaySound"));
text = mail_config_get_new_mail_notify_sound_file ();
gtk_entry_set_text (GTK_ENTRY (gnome_file_entry_gtk_entry (prefs->notify_sound_file)),
text ? text : "");
gtk_signal_connect (GTK_OBJECT (gnome_file_entry_gtk_entry (prefs->notify_sound_file)), "changed",
entry_changed, prefs);
/* HTML Mail tab */
/* Loading Images */
prefs->images_never = GTK_TOGGLE_BUTTON (glade_xml_get_widget (gui, "radImagesNever"));
gtk_toggle_button_set_active (prefs->images_never, mail_config_get_http_mode () == MAIL_CONFIG_HTTP_NEVER);
gtk_signal_connect (GTK_OBJECT (prefs->images_never), "toggled",
toggle_button_toggled, prefs);
prefs->images_sometimes = GTK_TOGGLE_BUTTON (glade_xml_get_widget (gui, "radImagesSometimes"));
gtk_toggle_button_set_active (prefs->images_sometimes, mail_config_get_http_mode () == MAIL_CONFIG_HTTP_SOMETIMES);
gtk_signal_connect (GTK_OBJECT (prefs->images_sometimes), "toggled",
toggle_button_toggled, prefs);
prefs->images_always = GTK_TOGGLE_BUTTON (glade_xml_get_widget (gui, "radImagesAlways"));
gtk_toggle_button_set_active (prefs->images_always, mail_config_get_http_mode () == MAIL_CONFIG_HTTP_ALWAYS);
gtk_signal_connect (GTK_OBJECT (prefs->images_always), "toggled",
toggle_button_toggled, prefs);
/* ... */
/* FIXME: use the gtkhtml interfaces for these settings when lewing gets around to adding them */
prefs->show_animated = GTK_TOGGLE_BUTTON (glade_xml_get_widget (gui, "chkShowAnimatedImages"));
gtk_toggle_button_set_active (prefs->show_animated,
gconf_client_get_bool (prefs->gconf, GTK_HTML_GCONF_DIR "/animations", NULL));
gtk_signal_connect (GTK_OBJECT (prefs->show_animated), "toggled",
toggle_button_toggled, prefs);
prefs->autodetect_links = GTK_TOGGLE_BUTTON (glade_xml_get_widget (gui, "chkAutoDetectLinks"));
gtk_toggle_button_set_active (prefs->autodetect_links,
gconf_client_get_bool (prefs->gconf, GTK_HTML_GCONF_DIR "/magic_links", NULL));
gtk_signal_connect (GTK_OBJECT (prefs->autodetect_links), "toggled",
toggle_button_toggled, prefs);
prefs->prompt_unwanted_html = GTK_TOGGLE_BUTTON (glade_xml_get_widget (gui, "chkPromptWantHTML"));
gtk_toggle_button_set_active (prefs->prompt_unwanted_html, mail_config_get_confirm_unwanted_html ());
gtk_signal_connect (GTK_OBJECT (prefs->prompt_unwanted_html), "toggled",
toggle_button_toggled, prefs);
/* Security tab */
/* Pretty Good Privacy */
prefs->pgp_path = GNOME_FILE_ENTRY (glade_xml_get_widget (gui, "filePgpPath"));
text = mail_config_get_pgp_path ();
gtk_entry_set_text (GTK_ENTRY (gnome_file_entry_gtk_entry (prefs->pgp_path)), text ? text : "");
gnome_file_entry_set_default_path (prefs->pgp_path, mail_config_get_pgp_path ());
gtk_signal_connect (GTK_OBJECT (gnome_file_entry_gtk_entry (prefs->pgp_path)), "changed",
entry_changed, prefs);
/* FIXME: what about a label colour tab? */
}
GtkWidget *
mail_preferences_new (void)
{
MailPreferences *new;
new = (MailPreferences *) gtk_type_new (mail_preferences_get_type ());
mail_preferences_construct (new);
return (GtkWidget *) new;
}
void
mail_preferences_apply (MailPreferences *prefs)
{
GtkWidget *entry, *menu;
CamelPgpType type;
char *string;
guint32 rgb;
int val;
/* General tab */
/* Message Display */
mail_config_set_do_seen_timeout (gtk_toggle_button_get_active (prefs->timeout_toggle));
val = (int) (gtk_spin_button_get_value_as_float (prefs->timeout) * 1000);
mail_config_set_mark_as_seen_timeout (val);
menu = gtk_option_menu_get_menu (prefs->charset);
string = e_charset_picker_get_charset (menu);
if (string) {
mail_config_set_default_charset (string);
g_free (string);
}
mail_config_set_citation_highlight (gtk_toggle_button_get_active (prefs->citation_highlight));
rgb = colorpicker_get_color (prefs->citation_color);
mail_config_set_citation_color (rgb);
/* Deleting Mail */
mail_config_set_empty_trash_on_exit (gtk_toggle_button_get_active (prefs->empty_trash));
mail_config_set_confirm_expunge (gtk_toggle_button_get_active (prefs->confirm_expunge));
/* New Mail Notification */
if (gtk_toggle_button_get_active (prefs->notify_not))
mail_config_set_new_mail_notify (MAIL_CONFIG_NOTIFY_NOT);
else if (gtk_toggle_button_get_active (prefs->notify_beep))
mail_config_set_new_mail_notify (MAIL_CONFIG_NOTIFY_BEEP);
else
mail_config_set_new_mail_notify (MAIL_CONFIG_NOTIFY_PLAY_SOUND);
entry = gnome_file_entry_gtk_entry (GNOME_FILE_ENTRY (prefs->notify_sound_file));
string = gtk_entry_get_text (GTK_ENTRY (entry));
mail_config_set_new_mail_notify_sound_file (string);
/* HTML Mail */
if (gtk_toggle_button_get_active (prefs->images_always))
mail_config_set_http_mode (MAIL_CONFIG_HTTP_ALWAYS);
else if (gtk_toggle_button_get_active (prefs->images_sometimes))
mail_config_set_http_mode (MAIL_CONFIG_HTTP_SOMETIMES);
else
mail_config_set_http_mode (MAIL_CONFIG_HTTP_NEVER);
gconf_client_set_bool (prefs->gconf, GTK_HTML_GCONF_DIR "/animations",
gtk_toggle_button_get_active (prefs->show_animated), NULL);
gconf_client_set_bool (prefs->gconf, GTK_HTML_GCONF_DIR "/magic_links",
gtk_toggle_button_get_active (prefs->autodetect_links), NULL);
mail_config_set_confirm_unwanted_html (gtk_toggle_button_get_active (prefs->prompt_unwanted_html));
/* Security */
entry = gnome_file_entry_gtk_entry (GNOME_FILE_ENTRY (prefs->notify_sound_file));
string = gtk_entry_get_text (GTK_ENTRY (entry));
type = string && *string ? mail_config_pgp_type_detect_from_path (string) : CAMEL_PGP_TYPE_NONE;
mail_config_set_pgp_path (string && *string ? string : NULL);
mail_config_set_pgp_type (type);
}
