+/* Internal function used to iterate over the default text tag table, applying them to a textbuffer */
+static void
+style_add_tag_to_textbuffer(gpointer key, gpointer tag, gpointer tag_table)
+{
+ g_return_if_fail(key != NULL);
+ g_return_if_fail(tag != NULL);
+ g_return_if_fail(tag_table != NULL);
+
+ gtk_text_tag_table_add(tag_table, tag);
+}
+
+/* Internal function used to iterate over a style table, copying it */
+static void
+style_copy_tag_to_textbuffer(gpointer key, gpointer tag, gpointer target_table)
+{
+ g_return_if_fail(key != NULL);
+ g_return_if_fail(tag != NULL);
+ g_return_if_fail(target_table != NULL);
+
+ gtk_text_tag_table_add(target_table, gtk_text_tag_copy( GTK_TEXT_TAG(tag) ));
+}
+
+/* Internal function that copies a text tag */
+GtkTextTag *
+gtk_text_tag_copy(GtkTextTag *tag)
+{
+ GtkTextTag *copy;
+
+ g_return_val_if_fail(tag != NULL, NULL);
+
+ copy = gtk_text_tag_new(tag->name);
+ gtk_text_attributes_copy_values(tag->values, copy->values);
+
+ #define _COPY_FLAG(flag) copy->flag = tag->flag
+ _COPY_FLAG (bg_color_set);
+ _COPY_FLAG (bg_color_set);
+ _COPY_FLAG (bg_stipple_set);
+ _COPY_FLAG (fg_color_set);
+ _COPY_FLAG (fg_stipple_set);
+ _COPY_FLAG (justification_set);
+ _COPY_FLAG (left_margin_set);
+ _COPY_FLAG (indent_set);
+ _COPY_FLAG (rise_set);
+ _COPY_FLAG (strikethrough_set);
+ _COPY_FLAG (right_margin_set);
+ _COPY_FLAG (pixels_above_lines_set);
+ _COPY_FLAG (pixels_below_lines_set);
+ _COPY_FLAG (pixels_inside_wrap_set);
+ _COPY_FLAG (tabs_set);
+ _COPY_FLAG (underline_set);
+ _COPY_FLAG (wrap_mode_set);
+ _COPY_FLAG (bg_full_height_set);
+ _COPY_FLAG (invisible_set);
+ _COPY_FLAG (editable_set);
+ _COPY_FLAG (language_set);
+ _COPY_FLAG (scale_set);
+ #undef _COPY_FLAG
+
+ /* Copy the data that was added manually */
+ gpointer reverse_color = g_object_get_data( G_OBJECT(tag), "reverse-color" );
+
+ if(reverse_color) {
+ g_object_set_data( G_OBJECT(copy), "reverse-color", reverse_color );
+ }
+
+ return copy;
+}
+
+/* Internal function that constructs the default styles */
+void
+style_init(ChimaraGlk *glk)
+{
+ CHIMARA_GLK_USE_PRIVATE(glk, priv);
+
+ GHashTable *default_text_grid_styles = g_hash_table_new_full(g_str_hash, g_str_equal, NULL, g_object_unref);
+ GHashTable *default_text_buffer_styles = g_hash_table_new_full(g_str_hash, g_str_equal, NULL, g_object_unref);
+ GHashTable *glk_text_grid_styles = g_hash_table_new_full(g_str_hash, g_str_equal, NULL, g_object_unref);
+ GHashTable *glk_text_buffer_styles = g_hash_table_new_full(g_str_hash, g_str_equal, NULL, g_object_unref);
+ GtkTextTag *tag;
+
+ PangoFontDescription *default_font_desc = pango_font_description_from_string("Serif");
+ PangoFontDescription *monospace_font_desc = pango_font_description_from_string("Monospace");
+
+ /* Initialise the default styles for a text grid */
+ tag = gtk_text_tag_new("default");
+ g_object_set(tag, "font-desc", monospace_font_desc, NULL);
+ g_hash_table_insert(default_text_grid_styles, "default", tag);
+
+ tag = gtk_text_tag_new("normal");
+ //g_object_set(tag, "font-desc", monospace_font_desc, NULL);
+ g_hash_table_insert(default_text_grid_styles, "normal", tag);
+
+ tag = gtk_text_tag_new("emphasized");
+ //g_object_set(tag, "font-desc", monospace_font_desc, "style", PANGO_STYLE_ITALIC, "style-set", TRUE, NULL);
+ g_object_set(tag, "style", PANGO_STYLE_ITALIC, "style-set", TRUE, NULL);
+ g_hash_table_insert(default_text_grid_styles, "emphasized", tag);
+
+ tag = gtk_text_tag_new("preformatted");
+ g_object_set(tag, "font-desc", monospace_font_desc, NULL);
+ g_hash_table_insert(default_text_grid_styles, "preformatted", tag);
+
+ tag = gtk_text_tag_new("header");
+ //g_object_set(tag, "font-desc", monospace_font_desc, "weight", PANGO_WEIGHT_BOLD, NULL);
+ g_object_set(tag, "weight", PANGO_WEIGHT_BOLD, NULL);
+ g_hash_table_insert(default_text_grid_styles, "header", tag);
+
+ tag = gtk_text_tag_new("subheader");
+ //g_object_set(tag, "font-desc", monospace_font_desc, "weight", PANGO_WEIGHT_BOLD, NULL);
+ g_object_set(tag, "weight", PANGO_WEIGHT_BOLD, NULL);
+ g_hash_table_insert(default_text_grid_styles, "subheader", tag);
+
+ tag = gtk_text_tag_new("alert");
+ //g_object_set(tag, "font-desc", monospace_font_desc, "foreground", "#aa0000", "weight", PANGO_WEIGHT_BOLD, NULL);
+ g_object_set(tag, "foreground", "#aa0000", "weight", PANGO_WEIGHT_BOLD, NULL);
+ g_hash_table_insert(default_text_grid_styles, "alert", tag);
+
+ tag = gtk_text_tag_new("note");
+ //g_object_set(tag, "font-desc", monospace_font_desc, "foreground", "#aaaa00", "weight", PANGO_WEIGHT_BOLD, NULL);
+ g_object_set(tag, "foreground", "#aaaa00", "weight", PANGO_WEIGHT_BOLD, NULL);
+ g_hash_table_insert(default_text_grid_styles, "note", tag);
+
+ tag = gtk_text_tag_new("block-quote");
+ //g_object_set(tag, "font-desc", monospace_font_desc, "style", PANGO_STYLE_ITALIC, "style-set", TRUE, NULL);
+ g_object_set(tag, "style", PANGO_STYLE_ITALIC, "style-set", TRUE, NULL);
+ g_hash_table_insert(default_text_grid_styles, "block-quote", tag);
+
+ tag = gtk_text_tag_new("input");
+ //g_object_set(tag, "font-desc", monospace_font_desc, NULL);
+ g_hash_table_insert(default_text_grid_styles, "input", tag);
+
+ tag = gtk_text_tag_new("user1");
+ //g_object_set(tag, "font-desc", monospace_font_desc, NULL);
+ g_hash_table_insert(default_text_grid_styles, "user1", tag);
+
+ tag = gtk_text_tag_new("user2");
+ //g_object_set(tag, "font-desc", monospace_font_desc, NULL);
+ g_hash_table_insert(default_text_grid_styles, "user2", tag);
+
+ tag = gtk_text_tag_new("hyperlink");
+ g_object_set(tag, "foreground", "#0000ff", "underline", PANGO_UNDERLINE_SINGLE, "underline-set", TRUE, NULL);
+ g_hash_table_insert(default_text_grid_styles, "hyperlink", tag);
+
+ /* Initialise the default styles for a text buffer */
+ tag = gtk_text_tag_new("default");
+ g_object_set(tag, "font-desc", default_font_desc, NULL);
+ g_hash_table_insert(default_text_buffer_styles, "default", tag);
+
+ tag = gtk_text_tag_new("normal");
+ //g_object_set(tag, "font-desc", default_font_desc, NULL);
+ g_hash_table_insert(default_text_buffer_styles, "normal", tag);
+
+ tag = gtk_text_tag_new("emphasized");
+ //g_object_set(tag, "font-desc", default_font_desc, "style", PANGO_STYLE_ITALIC, "style-set", TRUE, NULL);
+ g_object_set(tag, "style", PANGO_STYLE_ITALIC, "style-set", TRUE, NULL);
+ g_hash_table_insert(default_text_buffer_styles, "emphasized", tag);
+
+ tag = gtk_text_tag_new("preformatted");
+ g_object_set(tag, "font-desc", monospace_font_desc, NULL);
+ g_hash_table_insert(default_text_buffer_styles, "preformatted", tag);
+
+ tag = gtk_text_tag_new("header");
+ //g_object_set(tag, "font-desc", default_font_desc, "size-points", 18.0, "weight", PANGO_WEIGHT_BOLD, NULL);
+ g_object_set(tag, "weight", PANGO_WEIGHT_BOLD, NULL);
+ g_hash_table_insert(default_text_buffer_styles, "header", tag);
+
+ tag = gtk_text_tag_new("subheader");
+ //g_object_set(tag, "font-desc", default_font_desc, "size-points", 14.0, "weight", PANGO_WEIGHT_BOLD, NULL);
+ g_object_set(tag, "weight", PANGO_WEIGHT_BOLD, NULL);
+ g_hash_table_insert(default_text_buffer_styles, "subheader", tag);
+
+ tag = gtk_text_tag_new("alert");
+ //g_object_set(tag, "font-desc", default_font_desc, "foreground", "#aa0000", "weight", PANGO_WEIGHT_BOLD, NULL);
+ g_object_set(tag, "foreground", "#aa0000", "weight", PANGO_WEIGHT_BOLD, NULL);
+ g_hash_table_insert(default_text_buffer_styles, "alert", tag);
+
+ tag = gtk_text_tag_new("note");
+ //g_object_set(tag, "font-desc", default_font_desc, "foreground", "#aaaa00", "weight", PANGO_WEIGHT_BOLD, NULL);
+ g_object_set(tag, "foreground", "#aaaa00", "weight", PANGO_WEIGHT_BOLD, NULL);
+ g_hash_table_insert(default_text_buffer_styles, "note", tag);
+
+ tag = gtk_text_tag_new("block-quote");
+ //g_object_set(tag, "font-desc", default_font_desc, "justification", GTK_JUSTIFY_CENTER, "style", PANGO_STYLE_ITALIC, "style-set", TRUE, NULL);
+ g_object_set(tag, "justification", GTK_JUSTIFY_CENTER, "style", PANGO_STYLE_ITALIC, "style-set", TRUE, NULL);
+ g_hash_table_insert(default_text_buffer_styles, "block-quote", tag);
+
+ tag = gtk_text_tag_new("input");
+ //g_object_set(tag, "font-desc", default_font_desc, NULL);
+ g_hash_table_insert(default_text_buffer_styles, "input", tag);
+
+ tag = gtk_text_tag_new("user1");
+ //g_object_set(tag, "font-desc", default_font_desc, NULL);
+ g_hash_table_insert(default_text_buffer_styles, "user1", tag);
+
+ tag = gtk_text_tag_new("user2");
+ //g_object_set(tag, "font-desc", default_font_desc, NULL);
+ g_hash_table_insert(default_text_buffer_styles, "user2", tag);
+
+ tag = gtk_text_tag_new("hyperlink");
+ //g_object_set(tag, "font-desc", default_font_desc, "foreground", "#0000ff", "underline", PANGO_UNDERLINE_SINGLE, "underline-set", TRUE, NULL);
+ g_object_set(tag, "foreground", "#0000ff", "underline", PANGO_UNDERLINE_SINGLE, "underline-set", TRUE, NULL);
+ g_hash_table_insert(default_text_buffer_styles, "hyperlink", tag);
+
+ GtkTextTag *pager_tag = gtk_text_tag_new("pager");
+ g_object_set(pager_tag, "font-desc", default_font_desc, "foreground", "#ffffff", "background", "#000000", NULL);
+ g_hash_table_insert(default_text_buffer_styles, "pager", pager_tag);
+ text_tag_to_attr_list(pager_tag, priv->pager_attr_list);
+
+ pango_font_description_free(default_font_desc);
+ pango_font_description_free(monospace_font_desc);
+
+ priv->styles->text_grid = default_text_grid_styles;
+ priv->styles->text_buffer = default_text_buffer_styles;
+
+
+ /* Initialize the GLK styles to empty tags */
+ int i;
+ for(i=0; i<style_NUMSTYLES; i++) {
+ tag = gtk_text_tag_new(GLK_TAG_NAMES[i]);
+ g_hash_table_insert(glk_text_grid_styles, (gchar*) GLK_TAG_NAMES[i], tag);
+ tag = gtk_text_tag_new(GLK_TAG_NAMES[i]);
+ g_hash_table_insert(glk_text_buffer_styles, (gchar*) GLK_TAG_NAMES[i], tag);
+ }
+
+ priv->glk_styles->text_grid = glk_text_grid_styles;
+ priv->glk_styles->text_buffer = glk_text_buffer_styles;
+
+}
+
+/* Reset style tables to the library's internal defaults */
+void
+reset_default_styles(ChimaraGlk *glk)
+{
+ /* TODO: write this function */
+}
+
+/* Copy the default styles to the current styles
+ FIXME: This function is temporary and will not be needed later on */
+void
+copy_default_styles_to_current_styles(ChimaraGlk *glk)
+{
+ /*
+ CHIMARA_GLK_USE_PRIVATE(glk, priv);
+ g_hash_table_foreach(priv->styles->text_grid, style_table_copy, priv->glk_styles->text_grid);
+ g_hash_table_foreach(priv->styles->text_buffer, style_table_copy, priv->glk_styles->text_buffer);
+
+ GtkTextTag *pager_tag = GTK_TEXT_TAG( g_hash_table_lookup(priv->styles->text_buffer, "pager") );
+ text_tag_to_attr_list(pager_tag, priv->pager_attr_list);
+ */
+}
+
+/* Create the CSS file scanner */
+GScanner *
+create_css_file_scanner(void)
+{
+ GScanner *scanner = g_scanner_new(NULL);
+ scanner->config->cset_identifier_first = G_CSET_a_2_z G_CSET_A_2_Z "#";
+ scanner->config->cset_identifier_nth = G_CSET_a_2_z G_CSET_A_2_Z "-_" G_CSET_DIGITS;
+ scanner->config->symbol_2_token = TRUE;
+ scanner->config->cpair_comment_single = NULL;
+ scanner->config->scan_float = FALSE;
+ return scanner;
+}
+
+/* Run the scanner over the CSS file, overriding the default styles */