1 files changed, 308 insertions, 0 deletions
diff --git a/modules/mail/e-mail-config-web-view-gtkhtml.c b/modules/mail/e-mail-config-web-view-gtkhtml.c
new file mode 100644
index 0000000000..2721d5edd1
--- /dev/null
+++ b/modules/mail/e-mail-config-web-view-gtkhtml.c
@@ -0,0 +1,308 @@
+/*
+ * e-mail-config-web-view.c
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) version 3.
+ *
+ * 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
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with the program; if not, see <http://www.gnu.org/licenses/>
+ *
+ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <stdio.h>
+#include <string.h>
+
+#include "e-mail-config-web-view-gtkhtml.h"
+
+#include <shell/e-shell.h>
+#include <misc/e-web-view-gtkhtml.h>
+
+#define E_MAIL_CONFIG_WEB_VIEW_GTKHTML_GET_PRIVATE(obj) \
+	(G_TYPE_INSTANCE_GET_PRIVATE \
+	((obj), E_TYPE_MAIL_CONFIG_WEB_VIEW_GTKHTML, EMailConfigWebViewGtkHTMLPrivate))
+
+struct _EMailConfigWebViewGtkHTMLPrivate {
+	GtkCssProvider *css_provider;
+	EShellSettings *shell_settings;
+};
+
+G_DEFINE_DYNAMIC_TYPE (
+	EMailConfigWebViewGtkHTML,
+	e_mail_config_web_view_gtkhtml,
+	E_TYPE_EXTENSION)
+
+/* replaces content of color string */
+static void
+mail_config_web_view_gtkhtml_fix_color_string (gchar *color_string)
+{
+	GdkColor color;
+
+	if (color_string == NULL)
+		return;
+
+	if (strlen (color_string) < 13)
+		return;
+
+	if (!gdk_color_parse (color_string, &color))
+		return;
+
+	sprintf (
+		color_string, "#%02x%02x%02x",
+		(gint) color.red * 256 / 65536,
+		(gint) color.green * 256 / 65536,
+		(gint) color.blue * 256 / 65536);
+}
+
+static void
+mail_config_web_view_gtkhtml_load_style (EMailConfigWebViewGtkHTML *extension)
+{
+	GString *buffer;
+	gchar *citation_color;
+	gchar *monospace_font;
+	gchar *spell_color;
+	gchar *variable_font;
+	gboolean custom_fonts;
+	gboolean mark_citations;
+	EExtensible *extensible;
+	EShellSettings *shell_settings;
+	GtkStyleContext *style_context;
+	GError *error = NULL;
+
+	/* Some of our mail and composer preferences are passed down to
+	 * GtkHtml through style properties, unfortunately.  This builds
+	 * a style sheet for the EWebView using values from GSettings. */
+
+	shell_settings = extension->priv->shell_settings;
+
+	custom_fonts = e_shell_settings_get_boolean (
+		shell_settings, "mail-use-custom-fonts");
+
+	monospace_font = e_shell_settings_get_string (
+		shell_settings, "mail-font-monospace");
+
+	variable_font = e_shell_settings_get_string (
+		shell_settings, "mail-font-variable");
+
+	mark_citations = e_shell_settings_get_boolean (
+		shell_settings, "mail-mark-citations");
+
+	citation_color = e_shell_settings_get_string (
+		shell_settings, "mail-citation-color");
+
+	spell_color = e_shell_settings_get_string (
+		shell_settings, "composer-spell-color");
+
+	buffer = g_string_new ("EWebViewGtkHTML {\n");
+
+	mail_config_web_view_gtkhtml_fix_color_string (citation_color);
+	mail_config_web_view_gtkhtml_fix_color_string (spell_color);
+
+	if (custom_fonts && variable_font != NULL)
+		g_string_append_printf (
+			buffer, "  font: %s;\n", variable_font);
+
+	if (custom_fonts && monospace_font != NULL)
+		g_string_append_printf (
+			buffer, "  -GtkHTML-fixed-font-name: '%s';\n",
+			monospace_font);
+
+	if (mark_citations && citation_color != NULL)
+		g_string_append_printf (
+			buffer, "  -GtkHTML-cite-color: %s;\n",
+			citation_color);
+
+	if (spell_color != NULL)
+		g_string_append_printf (
+			buffer, "  -GtkHTML-spell-error-color: %s;\n",
+			spell_color);
+
+	g_string_append (buffer, "}\n");
+
+	gtk_css_provider_load_from_data (
+		extension->priv->css_provider,
+		buffer->str, buffer->len, &error);
+
+	if (error != NULL) {
+		g_warning ("%s", error->message);
+		g_error_free (error);
+	}
+
+	g_string_free (buffer, TRUE);
+
+	g_free (monospace_font);
+	g_free (variable_font);
+	g_free (citation_color);
+	g_free (spell_color);
+
+	extensible = e_extension_get_extensible (E_EXTENSION (extension));
+	style_context = gtk_widget_get_style_context (GTK_WIDGET (extensible));
+	gtk_style_context_invalidate (style_context);
+}
+
+static void
+mail_config_web_view_gtkhtml_realize (GtkWidget *widget,
+                                      EMailConfigWebViewGtkHTML *extension)
+{
+	EShellSettings *shell_settings;
+
+	shell_settings = extension->priv->shell_settings;
+
+	g_object_bind_property (
+		shell_settings, "composer-inline-spelling",
+		widget, "inline-spelling",
+		G_BINDING_SYNC_CREATE);
+
+	g_object_bind_property (
+		shell_settings, "composer-magic-links",
+		widget, "magic-links",
+		G_BINDING_SYNC_CREATE);
+
+	g_object_bind_property (
+		shell_settings, "composer-magic-smileys",
+		widget, "magic-smileys",
+		G_BINDING_SYNC_CREATE);
+
+	gtk_style_context_add_provider (
+		gtk_widget_get_style_context (widget),
+		GTK_STYLE_PROVIDER (extension->priv->css_provider),
+		GTK_STYLE_PROVIDER_PRIORITY_APPLICATION);
+
+	mail_config_web_view_gtkhtml_load_style (extension);
+
+	/* Reload the style sheet when certain settings change. */
+
+	g_signal_connect_swapped (
+		shell_settings, "notify::mail-use-custom-fonts",
+		G_CALLBACK (mail_config_web_view_gtkhtml_load_style),
+		extension);
+
+	g_signal_connect_swapped (
+		shell_settings, "notify::mail-font-monospace",
+		G_CALLBACK (mail_config_web_view_gtkhtml_load_style),
+		extension);
+
+	g_signal_connect_swapped (
+		shell_settings, "notify::mail-font-variable",
+		G_CALLBACK (mail_config_web_view_gtkhtml_load_style),
+		extension);
+
+	g_signal_connect_swapped (
+		shell_settings, "notify::mail-mark-citations",
+		G_CALLBACK (mail_config_web_view_gtkhtml_load_style),
+		extension);
+
+	g_signal_connect_swapped (
+		shell_settings, "notify::mail-citation-color",
+		G_CALLBACK (mail_config_web_view_gtkhtml_load_style),
+		extension);
+
+	g_signal_connect_swapped (
+		shell_settings, "notify::composer-spell-color",
+		G_CALLBACK (mail_config_web_view_gtkhtml_load_style),
+		extension);
+}
+
+static void
+mail_config_web_view_gtkhtml_dispose (GObject *object)
+{
+	EMailConfigWebViewGtkHTMLPrivate *priv;
+
+	priv = E_MAIL_CONFIG_WEB_VIEW_GTKHTML_GET_PRIVATE (object);
+
+	if (priv->css_provider != NULL) {
+		g_object_unref (priv->css_provider);
+		priv->css_provider = NULL;
+	}
+
+	if (priv->shell_settings != NULL) {
+		g_signal_handlers_disconnect_by_func (
+			priv->shell_settings,
+			mail_config_web_view_gtkhtml_load_style, object);
+		g_object_unref (priv->shell_settings);
+		priv->shell_settings = NULL;
+	}
+
+	/* Chain up to parent's dispose() method. */
+	G_OBJECT_CLASS (e_mail_config_web_view_gtkhtml_parent_class)->
+		dispose (object);
+}
+
+static void
+mail_config_web_view_gtkhtml_constructed (GObject *object)
+{
+	EShell *shell;
+	EShellSettings *shell_settings;
+	EMailConfigWebViewGtkHTML *extension;
+	EExtensible *extensible;
+
+	shell = e_shell_get_default ();
+	shell_settings = e_shell_get_shell_settings (shell);
+
+	extension = (EMailConfigWebViewGtkHTML *) object;
+	extensible = e_extension_get_extensible (E_EXTENSION (extension));
+
+	extension->priv->css_provider = gtk_css_provider_new ();
+	extension->priv->shell_settings = g_object_ref (shell_settings);
+
+	/* Wait to bind shell settings until the EWebView is realized
+	 * so GtkhtmlEditor has a chance to install a GtkHTMLEditorAPI.
+	 * Otherwise our settings will have no effect. */
+
+	g_signal_connect (
+		extensible, "realize",
+		G_CALLBACK (mail_config_web_view_gtkhtml_realize), extension);
+
+	/* Chain up to parent's constructed() method. */
+	G_OBJECT_CLASS (e_mail_config_web_view_gtkhtml_parent_class)->
+		constructed (object);
+}
+
+static void
+e_mail_config_web_view_gtkhtml_class_init (EMailConfigWebViewGtkHTMLClass *class)
+{
+	GObjectClass *object_class;
+	EExtensionClass *extension_class;
+
+	g_type_class_add_private (
+		class, sizeof (EMailConfigWebViewGtkHTMLPrivate));
+
+	object_class = G_OBJECT_CLASS (class);
+	object_class->dispose = mail_config_web_view_gtkhtml_dispose;
+	object_class->constructed = mail_config_web_view_gtkhtml_constructed;
+
+	extension_class = E_EXTENSION_CLASS (class);
+	extension_class->extensible_type = E_TYPE_WEB_VIEW_GTKHTML;
+}
+
+static void
+e_mail_config_web_view_gtkhtml_class_finalize (EMailConfigWebViewGtkHTMLClass *class)
+{
+}
+
+static void
+e_mail_config_web_view_gtkhtml_init (EMailConfigWebViewGtkHTML *extension)
+{
+	extension->priv =
+		E_MAIL_CONFIG_WEB_VIEW_GTKHTML_GET_PRIVATE (extension);
+}
+
+void
+e_mail_config_web_view_gtkhtml_type_register (GTypeModule *type_module)
+{
+	/* XXX G_DEFINE_DYNAMIC_TYPE declares a static type registration
+	 *     function, so we have to wrap it with a public function in
+	 *     order to register types from a separate compilation unit. */
+	e_mail_config_web_view_gtkhtml_register_type (type_module);
+}
+