/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8; coding: utf-8 -*- */

/* gtksourcestylescheme.c

 * This file is part of GtkSourceView

 *

 * Copyright (C) 2003 - Paolo Maggi <paolo.maggi@polito.it>

 *

 * This library 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.1 of the License, or (at your option) any later version.

 *

 * This library 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 this library; if not, write to the Free Software

 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

 */

#ifdef HAVE_CONFIG_H

#include <config.h>

#endif

#include "gtksourcestylescheme.h"

#include "gtksourcestyleschememanager.h"

#include "gtksourcestyle.h"

#include "gtksourcestyle-private.h"

#include "gtksourceview.h"

#include "gtksourcelanguage-private.h"

#include "gtksourceview-i18n.h"

#include <libxml/parser.h>

#include <string.h>

/**

 * SECTION:stylescheme

 * @Short_description: Controls the appearance of GtkSourceView

 * @Title: GtkSourceStyleScheme

 * @See_also: #GtkSourceStyle, #GtkSourceStyleSchemeManager

 *

 * #GtkSourceStyleScheme contains all the text styles to be used in

 * #GtkSourceView and #GtkSourceBuffer. For instance, it contains text styles

 * for syntax highlighting, it may contain foreground and background color for

 * non-highlighted text, color for the line numbers, current line highlighting,

 * bracket matching, etc.

 *

 * Style schemes are stored in XML files. The format of a scheme file is

 * documented in the [style scheme reference][style-reference].

 *

 * The two style schemes with IDs "classic" and "tango" follow more closely the

 * GTK+ theme (for example for the background color).

 */

#define STYLE_TEXT			"text"

#define STYLE_SELECTED			"selection"

#define STYLE_SELECTED_UNFOCUSED	"selection-unfocused"

#define STYLE_BRACKET_MATCH		"bracket-match"

#define STYLE_BRACKET_MISMATCH		"bracket-mismatch"

#define STYLE_CURSOR			"cursor"

#define STYLE_SECONDARY_CURSOR		"secondary-cursor"

#define STYLE_CURRENT_LINE		"current-line"

#define STYLE_LINE_NUMBERS		"line-numbers"

#define STYLE_CURRENT_LINE_NUMBER	"current-line-number"

#define STYLE_RIGHT_MARGIN		"right-margin"

#define STYLE_DRAW_SPACES		"draw-spaces"

#define STYLE_BACKGROUND_PATTERN	"background-pattern"

#define STYLE_SCHEME_VERSION		"1.0"

#define DEFAULT_STYLE_SCHEME		"classic"

enum

{

	PROP_0,

	PROP_ID,

	PROP_NAME,

	PROP_DESCRIPTION,

	PROP_FILENAME

};

struct _GtkSourceStyleSchemePrivate

{

	gchar *id;

	gchar *name;

	GPtrArray *authors;

	gchar *description;

	gchar *filename;

	GtkSourceStyleScheme *parent;

	gchar *parent_id;

	GHashTable *defined_styles;

	GHashTable *style_cache;

	GHashTable *named_colors;

	GtkCssProvider *css_provider;

	GtkCssProvider *css_provider_cursors;

};

G_DEFINE_TYPE_WITH_PRIVATE (GtkSourceStyleScheme, gtk_source_style_scheme, G_TYPE_OBJECT)

static void

gtk_source_style_scheme_dispose (GObject *object)

{

	GtkSourceStyleScheme *scheme = GTK_SOURCE_STYLE_SCHEME (object);

	if (scheme->priv->named_colors != NULL)

	{

		g_hash_table_unref (scheme->priv->named_colors);

		scheme->priv->named_colors = NULL;

	}

	if (scheme->priv->style_cache != NULL)

	{

		g_hash_table_unref (scheme->priv->style_cache);

		scheme->priv->style_cache = NULL;

	}

	if (scheme->priv->defined_styles != NULL)

	{

		g_hash_table_unref (scheme->priv->defined_styles);

		scheme->priv->defined_styles = NULL;

	}

	g_clear_object (&scheme->priv->parent);

	g_clear_object (&scheme->priv->css_provider);

	g_clear_object (&scheme->priv->css_provider_cursors);

	G_OBJECT_CLASS (gtk_source_style_scheme_parent_class)->dispose (object);

}

static void

gtk_source_style_scheme_finalize (GObject *object)

{

	GtkSourceStyleScheme *scheme = GTK_SOURCE_STYLE_SCHEME (object);

	if (scheme->priv->authors != NULL)

	{

		g_ptr_array_foreach (scheme->priv->authors, (GFunc)g_free, NULL);

		g_ptr_array_free (scheme->priv->authors, TRUE);

	}

	g_free (scheme->priv->filename);

	g_free (scheme->priv->description);

	g_free (scheme->priv->id);

	g_free (scheme->priv->name);

	g_free (scheme->priv->parent_id);

	G_OBJECT_CLASS (gtk_source_style_scheme_parent_class)->finalize (object);

}

static void

gtk_source_style_scheme_set_property (GObject 	   *object,

				      guint         prop_id,

				      const GValue *value,

				      GParamSpec   *pspec)

{

	GtkSourceStyleScheme *scheme = GTK_SOURCE_STYLE_SCHEME (object);

	switch (prop_id)

	{

		case PROP_ID:

			g_free (scheme->priv->id);

			scheme->priv->id = g_value_dup_string (value);

			break;

		default:

			G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);

			break;

	}

}

static void

gtk_source_style_scheme_get_property (GObject 	 *object,

				      guint 	  prop_id,

				      GValue 	 *value,

				      GParamSpec *pspec)

{

	GtkSourceStyleScheme *scheme = GTK_SOURCE_STYLE_SCHEME (object);

	switch (prop_id)

	{

		case PROP_ID:

			g_value_set_string (value, scheme->priv->id);

			break;

		case PROP_NAME:

			g_value_set_string (value, scheme->priv->name);

			break;

		case PROP_DESCRIPTION:

			g_value_set_string (value, scheme->priv->description);

			break;

		case PROP_FILENAME:

			g_value_set_string (value, scheme->priv->filename);

			break;

		default:

			G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);

			break;

	}

}

static void

gtk_source_style_scheme_class_init (GtkSourceStyleSchemeClass *klass)

{

	GObjectClass *object_class = G_OBJECT_CLASS (klass);

	object_class->dispose = gtk_source_style_scheme_dispose;

	object_class->finalize = gtk_source_style_scheme_finalize;

	object_class->set_property = gtk_source_style_scheme_set_property;

	object_class->get_property = gtk_source_style_scheme_get_property;

	/**

	 * GtkSourceStyleScheme:id:

	 *

	 * Style scheme id, a unique string used to identify the style scheme

	 * in #GtkSourceStyleSchemeManager.

	 */

	g_object_class_install_property (object_class,

					 PROP_ID,

					 g_param_spec_string ("id",

						 	      "Style scheme id",

							      "Style scheme id",

							      NULL,

							      G_PARAM_READWRITE | G_PARAM_CONSTRUCT_ONLY));

	/**

	 * GtkSourceStyleScheme:name:

	 *

	 * Style scheme name, a translatable string to present to the user.

	 */

	g_object_class_install_property (object_class,

					 PROP_NAME,

					 g_param_spec_string ("name",

						 	      "Style scheme name",

							      "Style scheme name",

							      NULL,

							      G_PARAM_READABLE));

	/**

	 * GtkSourceStyleScheme:description:

	 *

	 * Style scheme description, a translatable string to present to the user.

	 */

	g_object_class_install_property (object_class,

					 PROP_DESCRIPTION,

					 g_param_spec_string ("description",

						 	      "Style scheme description",

							      "Style scheme description",

							      NULL,

							      G_PARAM_READABLE));

	/**

	 * GtkSourceStyleScheme:filename:

	 *

	 * Style scheme filename or %NULL.

	 */

	g_object_class_install_property (object_class,

					 PROP_FILENAME,

					 g_param_spec_string ("filename",

						 	      "Style scheme filename",

							      "Style scheme filename",

							      NULL,

							      G_PARAM_READABLE));

}

static void

unref_if_not_null (gpointer object)

{

	if (object != NULL)

	{

		g_object_unref (object);

	}

}

static void

gtk_source_style_scheme_init (GtkSourceStyleScheme *scheme)

{

	scheme->priv = gtk_source_style_scheme_get_instance_private (scheme);

	scheme->priv->defined_styles = g_hash_table_new_full (g_str_hash, g_str_equal,

							      g_free, g_object_unref);

	scheme->priv->style_cache = g_hash_table_new_full (g_str_hash, g_str_equal,

							   g_free, unref_if_not_null);

	scheme->priv->named_colors = g_hash_table_new_full (g_str_hash, g_str_equal,

							    g_free, g_free);

	scheme->priv->css_provider = gtk_css_provider_new ();

}

/**

 * gtk_source_style_scheme_get_id:

 * @scheme: a #GtkSourceStyleScheme.

 *

 * Returns: @scheme id.

 *

 * Since: 2.0

 */

const gchar *

gtk_source_style_scheme_get_id (GtkSourceStyleScheme *scheme)

{

	g_return_val_if_fail (GTK_SOURCE_IS_STYLE_SCHEME (scheme), NULL);

	g_return_val_if_fail (scheme->priv->id != NULL, "");

	return scheme->priv->id;

}

/**

 * gtk_source_style_scheme_get_name:

 * @scheme: a #GtkSourceStyleScheme.

 *

 * Returns: @scheme name.

 *

 * Since: 2.0

 */

const gchar *

gtk_source_style_scheme_get_name (GtkSourceStyleScheme *scheme)

{

	g_return_val_if_fail (GTK_SOURCE_IS_STYLE_SCHEME (scheme), NULL);

	g_return_val_if_fail (scheme->priv->name != NULL, "");

	return scheme->priv->name;

}

/**

 * gtk_source_style_scheme_get_description:

 * @scheme: a #GtkSourceStyleScheme.

 *

 * Returns: (nullable): @scheme description (if defined), or %NULL.

 *

 * Since: 2.0

 */

const gchar *

gtk_source_style_scheme_get_description (GtkSourceStyleScheme *scheme)

{

	g_return_val_if_fail (GTK_SOURCE_IS_STYLE_SCHEME (scheme), NULL);

	return scheme->priv->description;

}

/**

 * gtk_source_style_scheme_get_authors:

 * @scheme: a #GtkSourceStyleScheme.

 *

 * Returns: (nullable) (array zero-terminated=1) (transfer none): a

 * %NULL-terminated array containing the @scheme authors or %NULL if

 * no author is specified by the style scheme.

 *

 * Since: 2.0

 */

const gchar * const *

gtk_source_style_scheme_get_authors (GtkSourceStyleScheme *scheme)

{

	g_return_val_if_fail (GTK_SOURCE_IS_STYLE_SCHEME (scheme), NULL);

	if (scheme->priv->authors == NULL)

	{

		return NULL;

	}

	return (const gchar * const *)scheme->priv->authors->pdata;

}

/**

 * gtk_source_style_scheme_get_filename:

 * @scheme: a #GtkSourceStyleScheme.

 *

 * Returns: (nullable): @scheme file name if the scheme was created

 * parsing a style scheme file or %NULL in the other cases.

 *

 * Since: 2.0

 */

const gchar *

gtk_source_style_scheme_get_filename (GtkSourceStyleScheme *scheme)

{

	g_return_val_if_fail (GTK_SOURCE_IS_STYLE_SCHEME (scheme), NULL);

	return scheme->priv->filename;

}

/*

 * Try to parse a color string.

 * If the color can be parsed, return the offset in the string

 * with the real start of the color (either the string itself, or after

 * the initial '#' character).

 */

static const gchar *

color_parse (const gchar *color,

             GdkRGBA     *rgba)

{

	if ((*color == '#') && gdk_rgba_parse (rgba, color + 1))

	{

		return color + 1;

	}

	if (gdk_rgba_parse (rgba, color))

	{

		return color;

	}

	return NULL;

}

/*

 * get_color_by_name:

 * @scheme: a #GtkSourceStyleScheme.

 * @name: color name to find.

 *

 * Returns: color which corresponds to @name in the @scheme.

 * Returned value is actual color string suitable for gdk_rgba_parse().

 * It may be @name or part of @name so copy it or something, if you need

 * it to stay around.

 *

 * Since: 2.0

 */

static const gchar *

get_color_by_name (GtkSourceStyleScheme *scheme,

		   const gchar          *name)

{

	const char *color = NULL;

	g_return_val_if_fail (name != NULL, NULL);

	if (name[0] == '#')

	{

		GdkRGBA dummy;

		color = color_parse (name, &dummy);

		if (color == NULL)

		{

			g_warning ("could not parse color '%s'", name);

		}

	}

	else

	{

		color = g_hash_table_lookup (scheme->priv->named_colors, name);

		if (color == NULL && scheme->priv->parent != NULL)

		{

			color = get_color_by_name (scheme->priv->parent, name);

		}

		if (color == NULL)

		{

			g_warning ("no color named '%s'", name);

		}

	}

	return color;

}

static GtkSourceStyle *

fix_style_colors (GtkSourceStyleScheme *scheme,

		  GtkSourceStyle       *real_style)

{

	GtkSourceStyle *style;

	guint i;

	struct {

		guint mask;

		guint offset;

	} attributes[] = {

		{ GTK_SOURCE_STYLE_USE_BACKGROUND, G_STRUCT_OFFSET (GtkSourceStyle, background) },

		{ GTK_SOURCE_STYLE_USE_FOREGROUND, G_STRUCT_OFFSET (GtkSourceStyle, foreground) },

		{ GTK_SOURCE_STYLE_USE_LINE_BACKGROUND, G_STRUCT_OFFSET (GtkSourceStyle, line_background) },

		{ GTK_SOURCE_STYLE_USE_UNDERLINE_COLOR, G_STRUCT_OFFSET (GtkSourceStyle, underline_color) }

	};

	style = gtk_source_style_copy (real_style);

	for (i = 0; i < G_N_ELEMENTS (attributes); i++)

	{

		if (style->mask & attributes[i].mask)

		{

			const gchar **attr = G_STRUCT_MEMBER_P (style, attributes[i].offset);

			const gchar *color = get_color_by_name (scheme, *attr);

			if (color == NULL)

			{

				/* warning is spit out in get_color_by_name,

				 * here we make sure style doesn't have NULL color */

				style->mask &= ~attributes[i].mask;

			}

			else

			{

				*attr = g_intern_string (color);

			}

		}

	}

	return style;

}

/**

 * gtk_source_style_scheme_get_style:

 * @scheme: a #GtkSourceStyleScheme.

 * @style_id: id of the style to retrieve.

 *

 * Returns: (nullable) (transfer none): style which corresponds to @style_id in

 * the @scheme, or %NULL when no style with this name found.  It is owned by

 * @scheme and may not be unref'ed.

 *

 * Since: 2.0

 */

/*

 * It's a little weird because we have named colors: styles loaded from

 * scheme file can have "#red" or "blue", and we want to give out styles

 * which have nice colors suitable for gdk_color_parse(), so that GtkSourceStyle

 * foreground and background properties are the same as GtkTextTag's.

 * Yet we do need to preserve what we got from file in style schemes,

 * since there may be child schemes which may redefine colors or something,

 * so we can't translate colors when loading scheme.

 * So, defined_styles hash has named colors; styles returned with get_style()

 * have real colors.

 */

GtkSourceStyle *

gtk_source_style_scheme_get_style (GtkSourceStyleScheme *scheme,

				   const gchar          *style_id)

{

	GtkSourceStyle *style = NULL;

	GtkSourceStyle *real_style;

	g_return_val_if_fail (GTK_SOURCE_IS_STYLE_SCHEME (scheme), NULL);

	g_return_val_if_fail (style_id != NULL, NULL);

	if (g_hash_table_lookup_extended (scheme->priv->style_cache,

					  style_id,

					  NULL,

					  (gpointer)&style))

	{

		return style;

	}

	real_style = g_hash_table_lookup (scheme->priv->defined_styles, style_id);

	if (real_style == NULL)

	{

		if (scheme->priv->parent != NULL)

		{

			style = gtk_source_style_scheme_get_style (scheme->priv->parent,

								   style_id);

		}

		if (style != NULL)

		{

			g_object_ref (style);

		}

	}

	else

	{

		style = fix_style_colors (scheme, real_style);

	}

	g_hash_table_insert (scheme->priv->style_cache,

			     g_strdup (style_id),

			     style);

	return style;

}

GtkSourceStyle *

_gtk_source_style_scheme_get_matching_brackets_style (GtkSourceStyleScheme *scheme)

{

	g_return_val_if_fail (GTK_SOURCE_IS_STYLE_SCHEME (scheme), NULL);

	return gtk_source_style_scheme_get_style (scheme, STYLE_BRACKET_MATCH);

}

GtkSourceStyle *

_gtk_source_style_scheme_get_right_margin_style (GtkSourceStyleScheme *scheme)

{

	g_return_val_if_fail (GTK_SOURCE_IS_STYLE_SCHEME (scheme), NULL);

	return gtk_source_style_scheme_get_style (scheme, STYLE_RIGHT_MARGIN);

}

GtkSourceStyle *

_gtk_source_style_scheme_get_draw_spaces_style (GtkSourceStyleScheme *scheme)

{

	g_return_val_if_fail (GTK_SOURCE_IS_STYLE_SCHEME (scheme), NULL);

	return gtk_source_style_scheme_get_style (scheme, STYLE_DRAW_SPACES);

}

static gboolean

get_color (GtkSourceStyle *style,

	   gboolean        foreground,

	   GdkRGBA        *dest)

{

	const gchar *color;

	guint mask;

	if (style != NULL)

	{

		if (foreground)

		{

			color = style->foreground;

			mask = GTK_SOURCE_STYLE_USE_FOREGROUND;

		}

		else

		{

			color = style->background;

			mask = GTK_SOURCE_STYLE_USE_BACKGROUND;

		}

		if (style->mask & mask)

		{

			if (color == NULL || !color_parse (color, dest))

			{

				g_warning ("%s: invalid color '%s'", G_STRLOC,

					   color != NULL ? color : "(null)");

				return FALSE;

			}

			return TRUE;

		}

	}

	return FALSE;

}

/*

 * Returns TRUE if the style for current-line is set in the scheme

 */

gboolean

_gtk_source_style_scheme_get_current_line_color (GtkSourceStyleScheme *scheme,

						 GdkRGBA              *color)

{

	GtkSourceStyle *style;

	g_return_val_if_fail (GTK_SOURCE_IS_STYLE_SCHEME (scheme), FALSE);

	g_return_val_if_fail (color != NULL, FALSE);

	style = gtk_source_style_scheme_get_style (scheme, STYLE_CURRENT_LINE);

	return get_color (style, FALSE, color);

}

/*

 * Returns TRUE if the style for background-pattern-color is set in the scheme

 */

gboolean

_gtk_source_style_scheme_get_background_pattern_color (GtkSourceStyleScheme *scheme,

                                                       GdkRGBA              *color)

{

	GtkSourceStyle *style;

	g_return_val_if_fail (GTK_SOURCE_IS_STYLE_SCHEME (scheme), FALSE);

	g_return_val_if_fail (color != NULL, FALSE);

	style = gtk_source_style_scheme_get_style (scheme, STYLE_BACKGROUND_PATTERN);

	return get_color (style, FALSE, color);

}

static gchar *

get_cursors_css_style (GtkSourceStyleScheme *scheme,

		       GtkWidget            *widget)

{

	GtkSourceStyle *primary_style;

	GtkSourceStyle *secondary_style;

	GdkRGBA primary_color = { 0 };

	GdkRGBA secondary_color = { 0 };

	gboolean primary_color_set;

	gboolean secondary_color_set;

	gchar *secondary_color_str;

	GString *css;

	primary_style = gtk_source_style_scheme_get_style (scheme, STYLE_CURSOR);

	secondary_style = gtk_source_style_scheme_get_style (scheme, STYLE_SECONDARY_CURSOR);

	primary_color_set = get_color (primary_style, TRUE, &primary_color);

	secondary_color_set = get_color (secondary_style, TRUE, &secondary_color);

	if (!primary_color_set && !secondary_color_set)

	{

		return NULL;

	}

	css = g_string_new ("textview text {\n");

	if (primary_color_set)

	{

		gchar *primary_color_str;

		primary_color_str = gdk_rgba_to_string (&primary_color);

		g_string_append_printf (css,

					"\tcaret-color: %s;\n",

					primary_color_str);

		g_free (primary_color_str);

	}

	if (!secondary_color_set)

	{

		GtkStyleContext *context;

		GdkRGBA *background_color;

		g_assert (primary_color_set);

		context = gtk_widget_get_style_context (widget);

		gtk_style_context_save (context);

		gtk_style_context_set_state (context, GTK_STATE_FLAG_NORMAL);

		gtk_style_context_get (context,

				       gtk_style_context_get_state (context),

				       "background-color", &background_color,

				       NULL);

		gtk_style_context_restore (context);

		/* Blend primary cursor color with background color. */

		secondary_color.red = (primary_color.red + background_color->red) * 0.5;

		secondary_color.green = (primary_color.green + background_color->green) * 0.5;

		secondary_color.blue = (primary_color.blue + background_color->blue) * 0.5;

		secondary_color.alpha = (primary_color.alpha + background_color->alpha) * 0.5;

		gdk_rgba_free (background_color);

	}

	secondary_color_str = gdk_rgba_to_string (&secondary_color);

	g_string_append_printf (css,

				"\t-gtk-secondary-caret-color: %s;\n",

				secondary_color_str);

	g_free (secondary_color_str);

	g_string_append_printf (css, "}\n");

	return g_string_free (css, FALSE);

}

/* The CssProvider for the cursors depends only on @scheme, but it needs a

 * @widget to shade the background color in case the secondary cursor color

 * isn't defined. The background color is normally defined by @scheme, or if

 * it's not defined it is taken from the GTK+ theme. So ideally, if the GTK+

 * theme changes at runtime, we should regenerate the CssProvider for the

 * cursors, but it isn't done.

 */

static GtkCssProvider *

get_css_provider_cursors (GtkSourceStyleScheme *scheme,

			  GtkWidget            *widget)

{

	gchar *css;

	GtkCssProvider *provider;

	GError *error = NULL;

	css = get_cursors_css_style (scheme, widget);

	if (css == NULL)

	{

		return NULL;

	}

	provider = gtk_css_provider_new ();

	gtk_css_provider_load_from_data (provider, css, -1, &error);

	g_free (css);

	if (error != NULL)

	{

		g_warning ("Error when loading CSS for cursors: %s", error->message);

		g_clear_error (&error);

		g_clear_object (&provider);

	}

	return provider;

}

/**

 * _gtk_source_style_scheme_apply:

 * @scheme:: a #GtkSourceStyleScheme.

 * @view: a #GtkSourceView to apply styles to.

 *

 * Sets style colors from @scheme to the @view.

 *

 * Since: 2.0

 */

void

_gtk_source_style_scheme_apply (GtkSourceStyleScheme *scheme,

				GtkSourceView        *view)

{

	GtkStyleContext *context;

	g_return_if_fail (GTK_SOURCE_IS_STYLE_SCHEME (scheme));

	g_return_if_fail (GTK_SOURCE_IS_VIEW (view));

	context = gtk_widget_get_style_context (GTK_WIDGET (view));

	gtk_style_context_add_provider (context,

	                                GTK_STYLE_PROVIDER (scheme->priv->css_provider),

	                                GTK_SOURCE_STYLE_PROVIDER_PRIORITY);

	G_GNUC_BEGIN_IGNORE_DEPRECATIONS;

	/* See https://bugzilla.gnome.org/show_bug.cgi?id=708583 */

	gtk_style_context_invalidate (context);

	G_GNUC_END_IGNORE_DEPRECATIONS;

	/* The CssProvider for the cursors needs that the first provider is

	 * applied, to get the background color.

	 */

	if (scheme->priv->css_provider_cursors == NULL)

	{

		scheme->priv->css_provider_cursors = get_css_provider_cursors (scheme,

									       GTK_WIDGET (view));

	}

	if (scheme->priv->css_provider_cursors != NULL)

	{

		gtk_style_context_add_provider (context,

						GTK_STYLE_PROVIDER (scheme->priv->css_provider_cursors),

						GTK_SOURCE_STYLE_PROVIDER_PRIORITY);

		G_GNUC_BEGIN_IGNORE_DEPRECATIONS;

		gtk_style_context_invalidate (context);

		G_GNUC_END_IGNORE_DEPRECATIONS;

	}

}

/**

 * _gtk_source_style_scheme_unapply:

 * @scheme: (nullable): a #GtkSourceStyleScheme or %NULL.

 * @view: a #GtkSourceView to unapply styles to.

 *

 * Removes the styles from @scheme in the @view.

 *

 * Since: 3.0

 */

void

_gtk_source_style_scheme_unapply (GtkSourceStyleScheme *scheme,

				  GtkSourceView        *view)

{

	GtkStyleContext *context;

	g_return_if_fail (GTK_SOURCE_IS_STYLE_SCHEME (scheme));

	g_return_if_fail (GTK_SOURCE_IS_VIEW (view));

	context = gtk_widget_get_style_context (GTK_WIDGET (view));

	gtk_style_context_remove_provider (context,

	                                   GTK_STYLE_PROVIDER (scheme->priv->css_provider));

	if (scheme->priv->css_provider_cursors != NULL)

	{

		gtk_style_context_remove_provider (context,

						   GTK_STYLE_PROVIDER (scheme->priv->css_provider_cursors));

	}

	G_GNUC_BEGIN_IGNORE_DEPRECATIONS;

	/* See https://bugzilla.gnome.org/show_bug.cgi?id=708583 */

	gtk_style_context_invalidate (context);

	G_GNUC_END_IGNORE_DEPRECATIONS;

}

/* --- PARSER ---------------------------------------------------------------- */

#define ERROR_QUARK (g_quark_from_static_string ("gtk-source-style-scheme-parser-error"))

static void

get_css_color_style (GtkSourceStyle *style,

                     gchar         **bg,

                     gchar         **text)

{

	GdkRGBA color;

	if (get_color (style, FALSE, &color))

	{

		gchar *bg_color;

		bg_color = gdk_rgba_to_string (&color;;

		*bg = g_strdup_printf ("background-color: %s;\n", bg_color);

		g_free (bg_color);

	}

	else

	{

		*bg = NULL;

	}

	if (get_color (style, TRUE, &color))

	{

		gchar *text_color;