X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=libchimara%2Fstyle.c;h=93bf2b330baba17944747e70ffccb1085b759e65;hb=a2e82e317a6000511953c2dbc0eb1026c7b245a7;hp=cf20f0ca1ccbe58f77805b96db02016e55a61207;hpb=f5361c37bf7265628802787ea90164bab8108d3a;p=rodin%2Fchimara.git diff --git a/libchimara/style.c b/libchimara/style.c index cf20f0c..93bf2b3 100644 --- a/libchimara/style.c +++ b/libchimara/style.c @@ -1,6 +1,12 @@ -#include "style.h" #include #include +#include +#include "chimara-glk-private.h" +#include "glk.h" +#include "style.h" +#include "magic.h" +#include "stream.h" +#include "strio.h" extern GPrivate *glk_data_key; @@ -9,7 +15,8 @@ static gboolean style_accept_style_selector(GScanner *scanner); static gboolean style_accept_style_hint(GScanner *scanner, GtkTextTag *current_tag); static void style_add_tag_to_textbuffer(gpointer key, gpointer tag, gpointer tag_table); static void style_table_copy(gpointer key, gpointer tag, gpointer target_table); -static GtkTextTag* gtk_text_tag_copy(GtkTextTag *tag); +static void text_tag_to_attr_list(GtkTextTag *tag, PangoAttrList *list); +GtkTextTag* gtk_text_tag_copy(GtkTextTag *tag); /** * glk_set_style: @@ -74,6 +81,16 @@ glk_set_style_stream(strid_t str, glui32 styl) { str->style = get_tag_name(styl); } +/* Internal function: call this to initialize the layout of the 'more' prompt. */ +void +style_init_more_prompt(winid_t win) +{ + ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key); + + win->pager_layout = gtk_widget_create_pango_layout(win->widget, "More"); + pango_layout_set_attributes(win->pager_layout, glk_data->pager_attr_list); +} + /* Internal function: call this to initialize the default styles to a textbuffer. */ void style_init_textbuffer(GtkTextBuffer *buffer) @@ -84,9 +101,12 @@ style_init_textbuffer(GtkTextBuffer *buffer) if( G_UNLIKELY(!glk_data->style_initialized) ) { style_init(); } + + /* Copy the current text tags to the textbuffer's tag table */ g_hash_table_foreach(glk_data->current_styles->text_buffer, style_add_tag_to_textbuffer, gtk_text_buffer_get_tag_table(buffer)); } + /* Internal function: call this to initialize the default styles to a textgrid. */ void style_init_textgrid(GtkTextBuffer *buffer) @@ -97,6 +117,8 @@ style_init_textgrid(GtkTextBuffer *buffer) if( G_UNLIKELY(!glk_data->style_initialized) ) { style_init(); } + + /* Copy the current text tags to the textgrid's tag table */ g_hash_table_foreach(glk_data->current_styles->text_grid, style_add_tag_to_textbuffer, gtk_text_buffer_get_tag_table(buffer)); } @@ -119,7 +141,7 @@ style_table_copy(gpointer key, gpointer tag, gpointer target_table) } /* Internal function that copies a text tag */ -static GtkTextTag* +GtkTextTag* gtk_text_tag_copy(GtkTextTag *tag) { GtkTextTag *copy; @@ -153,35 +175,30 @@ gtk_text_tag_copy(GtkTextTag *tag) _COPY_FLAG (language_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 reads the default styles from a CSS file */ void style_init() { ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key); - GHashTable *default_text_grid_styles = g_hash_table_new_full(g_str_hash, g_str_equal, g_free, g_object_unref); - GHashTable *default_text_buffer_styles = g_hash_table_new_full(g_str_hash, g_str_equal, g_free, g_object_unref); - GHashTable *current_text_grid_styles = g_hash_table_new_full(g_str_hash, g_str_equal, g_free, g_object_unref); - GHashTable *current_text_buffer_styles = g_hash_table_new_full(g_str_hash, g_str_equal, g_free, g_object_unref); + 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 *current_text_grid_styles = g_hash_table_new_full(g_str_hash, g_str_equal, NULL, g_object_unref); + GHashTable *current_text_buffer_styles = g_hash_table_new_full(g_str_hash, g_str_equal, NULL, g_object_unref); GtkTextTag *tag; - /* Create the CSS file scanner */ - GScanner *scanner = g_scanner_new(NULL); - - int f = open(glk_data->css_file, O_RDONLY); - g_return_if_fail(f != -1); - g_scanner_input_file(scanner, f); - scanner->input_name = glk_data->css_file; - 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; - - /* Initialise the default styles */ - g_hash_table_insert(default_text_grid_styles, "normal", gtk_text_tag_new("normal")); + /* Initialise the default styles for a text grid */ + tag = gtk_text_tag_new("normal"); + g_object_set(tag, "font-desc", glk_data->monospace_font_desc, NULL); + g_hash_table_insert(default_text_grid_styles, "normal", tag); tag = gtk_text_tag_new("emphasized"); g_object_set(tag, "style", PANGO_STYLE_ITALIC, "style-set", TRUE, NULL); @@ -192,11 +209,11 @@ style_init() g_hash_table_insert(default_text_grid_styles, "preformatted", tag); tag = gtk_text_tag_new("header"); - g_object_set(tag, "size-points", 18.0, "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, "size-points", 14.0, "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"); @@ -208,22 +225,89 @@ style_init() g_hash_table_insert(default_text_grid_styles, "note", tag); tag = gtk_text_tag_new("block-quote"); - g_object_set(tag, "justification", GTK_JUSTIFY_CENTER, "style", PANGO_STYLE_ITALIC, NULL); + g_object_set(tag, "style", PANGO_STYLE_ITALIC, "style-set", TRUE, NULL); g_hash_table_insert(default_text_grid_styles, "block-quote", tag); g_hash_table_insert(default_text_grid_styles, "input", gtk_text_tag_new("input")); g_hash_table_insert(default_text_grid_styles, "user1", gtk_text_tag_new("user1")); g_hash_table_insert(default_text_grid_styles, "user2", gtk_text_tag_new("user2")); - g_hash_table_foreach(default_text_grid_styles, style_table_copy, default_text_buffer_styles); + 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); + + /* Tags for the textbuffer */ + tag = gtk_text_tag_new("normal"); + g_object_set(tag, "font-desc", glk_data->default_font_desc, NULL); + g_hash_table_insert(default_text_buffer_styles, "normal", tag); + + tag = gtk_text_tag_new("emphasized"); + 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", glk_data->monospace_font_desc, NULL); + g_hash_table_insert(default_text_buffer_styles, "preformatted", tag); + + tag = gtk_text_tag_new("header"); + g_object_set(tag, "size-points", 18.0, "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, "size-points", 14.0, "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, "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, "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, "justification", GTK_JUSTIFY_CENTER, "style", PANGO_STYLE_ITALIC, "style-set", TRUE, NULL); + g_hash_table_insert(default_text_buffer_styles, "block-quote", tag); + + g_hash_table_insert(default_text_buffer_styles, "input", gtk_text_tag_new("input")); + g_hash_table_insert(default_text_buffer_styles, "user1", gtk_text_tag_new("user1")); + g_hash_table_insert(default_text_buffer_styles, "user2", gtk_text_tag_new("user2")); + + 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_buffer_styles, "hyperlink", tag); + + GtkTextTag *pager_tag = gtk_text_tag_new("pager"); + g_object_set(pager_tag, "foreground", "#ffffff", "background", "#000000", NULL); + g_hash_table_insert(default_text_buffer_styles, "pager", pager_tag); + glk_data->default_styles->text_grid = default_text_grid_styles; glk_data->default_styles->text_buffer = default_text_buffer_styles; - /* Run the scanner over the CSS file, overriding defaults */ - while( g_scanner_peek_next_token(scanner) != G_TOKEN_EOF) { - if( !style_accept_style_selector(scanner) ) - break; + /* Create the CSS file scanner */ + GScanner *scanner = g_scanner_new(NULL); + + int f = open(glk_data->css_file, O_RDONLY); + if(f != -1) + { + g_scanner_input_file(scanner, f); + scanner->input_name = glk_data->css_file; + 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; + + /* Run the scanner over the CSS file, overriding defaults */ + while( g_scanner_peek_next_token(scanner) != G_TOKEN_EOF) { + if( !style_accept_style_selector(scanner) ) + break; + } + + g_scanner_destroy(scanner); } + else + g_warning("Could not find CSS file"); /* Set the current style to a copy of the default style */ g_hash_table_foreach(default_text_grid_styles, style_table_copy, current_text_grid_styles); @@ -231,7 +315,7 @@ style_init() glk_data->current_styles->text_grid = current_text_grid_styles; glk_data->current_styles->text_buffer = current_text_buffer_styles; - g_scanner_destroy(scanner); + text_tag_to_attr_list(pager_tag, glk_data->pager_attr_list); glk_data->style_initialized = TRUE; } @@ -447,7 +531,7 @@ style_accept_style_hint(GScanner *scanner, GtkTextTag *current_tag) /* Internal function: parses a glk color to a #hex-value */ static void -color_format(glui32 val, gchar *buffer) +glkcolor_to_hex(glui32 val, gchar *buffer) { g_return_if_fail(buffer != NULL); @@ -458,9 +542,18 @@ color_format(glui32 val, gchar *buffer) ); } +/* Internal function: parses a glk color to a GdkColor */ +void +glkcolor_to_gdkcolor(glui32 val, GdkColor *color) +{ + color->red = 256 * ((val & 0xff0000) >> 16); + color->green = 256 * ((val & 0x00ff00) >> 8); + color->blue = 256 * (val & 0x0000ff); +} + /* Internal function: parses a GdkColor to a glk color */ static glui32 -color_parse_gdk(GdkColor *color) +gdkcolor_to_glkcolor(GdkColor *color) { g_return_val_if_fail(color != NULL, 0); return (glui32) color->pixel; @@ -474,11 +567,8 @@ apply_stylehint_to_tag(GtkTextTag *tag, glui32 hint, glsi32 val) ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key); GObject *tag_object = G_OBJECT(tag); - gint reverse_color = 0; - /* FIXME where should we keep track of this? - g_object_get(tag, "reverse_color", &reverse_color, NULL); - */ + gint reverse_color = GPOINTER_TO_INT( g_object_get_data(tag_object, "reverse-color") ); int i = 0; gchar color[20]; @@ -528,7 +618,7 @@ apply_stylehint_to_tag(GtkTextTag *tag, glui32 hint, glsi32 val) break; case stylehint_TextColor: - color_format(val, color); + glkcolor_to_hex(val, color); if(!reverse_color) g_object_set(tag_object, "foreground", color, "foreground-set", TRUE, NULL); @@ -538,7 +628,7 @@ apply_stylehint_to_tag(GtkTextTag *tag, glui32 hint, glsi32 val) break; case stylehint_BackColor: - color_format(val, color); + glkcolor_to_hex(val, color); if(!reverse_color) g_object_set(tag_object, "background", color, "background-set", TRUE, NULL); @@ -569,6 +659,8 @@ apply_stylehint_to_tag(GtkTextTag *tag, glui32 hint, glsi32 val) g_object_set(tag_object, "background-gdk", foreground_color, NULL); else g_object_set(tag_object, "background", "#000000", NULL); + + g_object_set_data( tag_object, "reverse-color", GINT_TO_POINTER(val != 0) ); } break; @@ -639,17 +731,16 @@ query_tag(GtkTextTag *tag, glui32 hint) case stylehint_TextColor: g_object_get(tag, "foreground-gdk", &colval, NULL); - return color_parse_gdk(colval); + return gdkcolor_to_glkcolor(colval); break; case stylehint_BackColor: g_object_get(tag, "background-gdk", &colval, NULL); - return color_parse_gdk(colval); + return gdkcolor_to_glkcolor(colval); break; case stylehint_ReverseColor: - /* FIXME: implement this */ - return 0; + return GPOINTER_TO_INT( g_object_get_data(G_OBJECT(tag), "reverse_color") ); break; default: @@ -773,3 +864,91 @@ glk_style_measure(winid_t win, glui32 styl, glui32 hint, glui32 *result) return TRUE; } + +/* Internal function returning the current default font for a window type + * This can be used later for size calculations. Only wintype_TextGrid and wintype_TextBuffer are + * supported for now */ +PangoFontDescription* +get_current_font(guint32 wintype) +{ + ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key); + GtkTextTag *normal; + + if( G_UNLIKELY(!glk_data->style_initialized) ) { + style_init(); + } + + switch(wintype) { + case wintype_TextGrid: + normal = g_hash_table_lookup(glk_data->current_styles->text_grid, "normal"); + break; + case wintype_TextBuffer: + normal = g_hash_table_lookup(glk_data->current_styles->text_buffer, "normal"); + break; + default: + return NULL; + } + + PangoFontDescription *font; + g_object_get( G_OBJECT(normal), "font-desc", &font, NULL ); + + return font; +} + +/* Internal function copying the attributes of a text tag to a pango attribute list */ +static void +text_tag_to_attr_list(GtkTextTag *tag, PangoAttrList *list) +{ + gboolean set; + GdkColor *foreground, *background; + gchar *string; + PangoFontDescription *font_desc; + gboolean strikethrough; + PangoUnderline underline; + + g_object_get(tag, "foreground-set", &set, "foreground-gdk", &foreground, NULL); + if(set) { + pango_attr_list_insert( + list, + pango_attr_foreground_new(foreground->red, foreground->green, foreground->blue) + ); + } + g_object_get(tag, "background-set", &set, "background-gdk", &background, NULL); + if(set) { + pango_attr_list_insert( + list, + pango_attr_background_new(background->red, background->green, background->blue) + ); + } + g_object_get(tag, "language-set", &set, "language", &string, NULL); + if(set) { + pango_attr_list_insert( + list, + pango_attr_language_new( pango_language_from_string(string) ) + ); + } + + /* Font description updates the following properties simultaniously: + * family, style, weight, variant, stretch, size + */ + g_object_get(tag, "font-desc", &font_desc, NULL); + pango_attr_list_insert( + list, + pango_attr_font_desc_new(font_desc) + ); + + g_object_get(tag, "strikethrough-set", &set, "strikethrough", &strikethrough, NULL); + if(set) { + pango_attr_list_insert( + list, + pango_attr_strikethrough_new(strikethrough) + ); + } + g_object_get(tag, "underline-set", &set, "underline", &underline, NULL); + if(set) { + pango_attr_list_insert( + list, + pango_attr_underline_new(underline) + ); + } +}