Fixes for garglk_set_zcolors()

[projects/chimara/chimara.git] / libchimara / garglk.c

diff --git a/libchimara/garglk.c b/libchimara/garglk.c
index 1a657ec81a9b4e3d642c6a63dae8f53d24208d7e..aacd1d54a72b9d0dcc18278fde5738f1171b4987 100644 (file)
--- a/libchimara/garglk.c
+++ b/libchimara/garglk.c
@@ -3,6 +3,8 @@
 #include "chimara-glk-private.h"
 #include "stream.h"
 #include "fileref.h"
+#include "style.h"
+#include "garglk.h"
 
 extern GPrivate *glk_data_key;
 
@@ -79,7 +81,6 @@ garglk_set_program_info(const char *info)
 void 
 garglk_set_story_name(const char *name)
 {
-       g_printerr("garglk_set_story_name(\"%s\");\n", name);
        ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key);
        glk_data->story_name = g_strdup(name);
        g_object_notify(G_OBJECT(glk_data->self), "story-name");
@@ -159,6 +160,122 @@ garglk_unput_string_uni(glui32 *str)
        WARNING(_("Not implemented"));
 }
 
+/* TODO document */
+void
+garglk_set_zcolors_stream(strid_t str, glui32 fg, glui32 bg)
+{
+       VALID_STREAM(str, return);
+       g_return_if_fail(str->window != NULL);
+
+       winid_t window = str->window;
+
+       GtkTextBuffer *buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(window->widget) );
+       GtkTextTagTable *tags = gtk_text_buffer_get_tag_table(buffer);
+       GdkColor fore, back;
+       GdkColor *fore_pointer = NULL;
+       GdkColor *back_pointer = NULL;
+       gchar *fore_name;
+       gchar *back_name;
+
+       switch(fg) {
+       case zcolor_Transparent:
+       case zcolor_Cursor:
+               WARNING(_("zcolor_Transparent, zcolor_Cursor not implemented"));
+               // Fallthrough to default
+       case zcolor_Default:
+               fore_name = "default";
+               break;
+       case zcolor_Current:
+       {
+               if(window->zcolor) {
+                       // Get the current foreground color
+                       GdkColor *current_color;
+                       g_object_get(window->zcolor, "foreground-gdk", &current_color, NULL);
+                       fore_name = g_strdup_printf("%02X%02X%02X", current_color->red, current_color->green, current_color->blue);
+
+                       // Copy the color and use it
+                       fore.red = current_color->red;
+                       fore.green = current_color->green;
+                       fore.blue = current_color->blue;
+                       fore_pointer = &fore;
+               } else {
+                       fore_name = "default";
+               }
+               break;
+       }
+       default:
+               glkcolor_to_gdkcolor(fg, &fore);
+               fore_pointer = &fore;
+               fore_name = g_strdup_printf("%02X%02X%02X",
+                       ((fg & 0xff0000) >> 16),
+                       ((fg & 0x00ff00) >> 8),
+                       (fg & 0x0000ff)
+               );
+       }
+
+       switch(bg) {
+       case zcolor_Transparent:
+       case zcolor_Cursor:
+               WARNING(_("zcolor_Transparent, zcolor_Cursor not implemented"));
+               // Fallthrough to default
+       case zcolor_Default:
+               back_name = "default";
+               break;
+       case zcolor_Current:
+       {
+               if(window->zcolor) {
+                       // Get the current background color
+                       GdkColor *current_color;
+                       g_object_get(window->zcolor, "background-gdk", &current_color, NULL);
+                       back_name = g_strdup_printf("%02X%02X%02X", current_color->red, current_color->green, current_color->blue);
+
+                       // Copy the color and use it
+                       back.red = current_color->red;
+                       back.green = current_color->green;
+                       back.blue = current_color->blue;
+                       back_pointer = &back;
+               } else {
+                       back_name = "default";
+               }
+               break;
+       }
+       default:
+               glkcolor_to_gdkcolor(bg, &back);
+               back_pointer = &back;
+               back_name = g_strdup_printf("%02X%02X%02X",
+                       ((bg & 0xff0000) >> 16),
+                       ((bg & 0x00ff00) >> 8),
+                       (bg & 0x0000ff)
+               );
+       }
+
+       char *name = g_strdup_printf("zcolor:#%s/#%s", fore_name, back_name);
+
+       if(fore_pointer == NULL && back_pointer == NULL) {
+               // NULL value means to ignore the zcolor property altogether
+               window->zcolor = NULL;
+       } else {
+               // See if we have used this color combination before
+               GtkTextTag *tag = gtk_text_tag_table_lookup(tags, name);
+
+               if(tag == NULL) {
+                       // Create a new texttag with the specified colors
+                       tag = gtk_text_buffer_create_tag(
+                               buffer,
+                               name,
+                               "foreground-gdk", fore_pointer,
+                               "foreground-set", fore_pointer != NULL,
+                               "background-gdk", back_pointer,
+                               "background-set", back_pointer != NULL,
+                               NULL
+                       );
+               }
+
+               // From now on, text will be drawn in the specified colors
+               window->zcolor = tag;
+       }
+}
+
 /**
  * garglk_set_zcolors:
  * @fg: one of the <code>zcolor_</code> constants.
@@ -177,15 +294,29 @@ garglk_set_zcolors(glui32 fg, glui32 bg)
 {
        ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key);
        g_return_if_fail(glk_data->current_stream != NULL);
-       g_return_if_fail(glk_data->current_stream->window != NULL);
-       
-       WARNING(_("Not implemented"));
+
+       garglk_set_zcolors_stream(glk_data->current_stream, fg, bg);
 }
 
 static void
 apply_reverse_color(GtkTextTag *tag, gpointer data)
 {
-       g_object_set_data( G_OBJECT(tag), "reverse_color", data );
+       const gchar *tag_name;
+       g_object_get(tag, "name", &tag_name, NULL);
+
+       if( g_str_has_prefix(tag_name, "glk-") )
+               g_object_set_data( G_OBJECT(tag), "reverse_color", data );
+}
+
+/* TODO document */
+void
+garglk_set_reversevideo_stream(strid_t str, glui32 reverse)
+{
+       VALID_STREAM(str, return);
+       
+       GtkTextBuffer *buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(str->window->widget) );
+       GtkTextTagTable *tags = gtk_text_buffer_get_tag_table(buffer);
+       gtk_text_tag_table_foreach( tags, apply_reverse_color, GINT_TO_POINTER(reverse) );
 }
 
 /**
@@ -203,6 +334,5 @@ garglk_set_reversevideo(glui32 reverse)
        g_return_if_fail(glk_data->current_stream != NULL);
        g_return_if_fail(glk_data->current_stream->window != NULL);
 
-       GtkTextTagTable *tags = gtk_text_buffer_get_tag_table( GTK_TEXT_BUFFER(glk_data->current_stream->window->widget) );
-       gtk_text_tag_table_foreach( tags, apply_reverse_color, GINT_TO_POINTER(reverse) );
+       garglk_set_reversevideo_stream(glk_data->current_stream, reverse);
 }