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 void text_tag_to_attr_list(GtkTextTag *tag, PangoAttrList *list);
GtkTextTag* gtk_text_tag_copy(GtkTextTag *tag);
/**
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)
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)
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;
glk_data->current_styles->text_grid = current_text_grid_styles;
glk_data->current_styles->text_buffer = current_text_buffer_styles;
+ text_tag_to_attr_list(pager_tag, glk_data->pager_attr_list);
+
glk_data->style_initialized = TRUE;
}
/* 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);
);
}
+/* 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;
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);
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);
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:
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)
+ );
+ }
+}