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;
/* 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;
+ if(glk_data->css_file != 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);
}
-
- g_scanner_destroy(scanner);
+ else
+ g_warning("Could not find CSS file");
}
- 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);
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;
}
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)
+ );
+ }
+}