Merge branch 'master' of https://github.com/wmvanvliet/Chimara

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

diff --git a/libchimara/garglk.c b/libchimara/garglk.c
index b72fc5979e8d1c1929d442e9fffa28a45e5e81f8..02f032c38de3da4f0b6eb247dad308216f817e87 100644 (file)
--- a/libchimara/garglk.c
+++ b/libchimara/garglk.c
@@ -3,6 +3,7 @@
 #include "chimara-glk-private.h"
 #include "stream.h"
 #include "fileref.h"
+#include "style.h"
 
 extern GPrivate *glk_data_key;
 
@@ -32,13 +33,13 @@ garglk_fileref_get_name(frefid_t fref)
  * — for example, in the title bar of a window. A typical use of this
  * function would be:
  * |[ garglk_set_program_name("SuperGlkFrotz 0.1"); ]|
- *
- * <warning><para>This function is not currently implemented.</para></warning>
  */
 void 
 garglk_set_program_name(const char *name)
 {
-       WARNING(_("Not implemented"));
+       ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key);
+       glk_data->program_name = g_strdup(name);
+       g_object_notify(G_OBJECT(glk_data->self), "program-name");
 }
 
 /**
@@ -56,13 +57,13 @@ garglk_set_program_name(const char *name)
  *     "Glk port by Tor Andersson\n"
  *     "Animation, networking, and evil AI by Sven Metcalfe");
  * ]|
- *
- * <warning><para>This function is not currently implemented.</para></warning>
  */
 void 
 garglk_set_program_info(const char *info)
 {
-       WARNING(_("Not implemented"));
+       ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key);
+       glk_data->program_info = g_strdup(info);
+       g_object_notify(G_OBJECT(glk_data->self), "program-info");
 }
 
 /**
@@ -75,13 +76,13 @@ garglk_set_program_info(const char *info)
  * anywhere &mdash; for example, in the title bar of a window. A typical use of
  * this function would be:
  * |[ garglk_set_story_name("Lighan Ses Lion, el Zarf"); ]|
- *
- * <warning><para>This function is not currently implemented.</para></warning>
  */
 void 
 garglk_set_story_name(const char *name)
 {
-       WARNING(_("Not implemented"));
+       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");
 }
 
 /**
@@ -158,6 +159,14 @@ 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);
+       WARNING(_("Not implemented"));
+}
+
 /**
  * garglk_set_zcolors:
  * @fg: one of the <code>zcolor_</code> constants.
@@ -177,14 +186,49 @@ 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);
+
+       winid_t window = glk_data->current_stream->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;
+       glkcolor_to_gdkcolor(fg, &fore);
+       glkcolor_to_gdkcolor(bg, &back);
+
+       gchar *id = g_strdup_printf("%d", ++window->last_zcolor_id);
+       printf("id = %s\nfg = %08X\nbg = %08X\n\n", id, fg, bg);
        
-       WARNING(_("Not implemented"));
+       GtkTextTag *tag = gtk_text_buffer_create_tag(
+               buffer,
+               g_strdup_printf("%d", ++window->last_zcolor_id),
+               "foreground-gdk", &fore,
+               "foreground-set", TRUE,
+               "background-gdk", &back,
+               "background-set", TRUE,
+               NULL
+       );
+
+       window->zcolor = tag;
 }
 
 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) );
 }
 
 /**
@@ -202,6 +246,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);
 }