view console/libgnt/gntkeys.c @ 14364:338ac096e322

[gaim-migrate @ 17070] Disabled GTK+ components of the Perl plugin (we'll no longer support gtk-perl prefs frames until this is refactored into a gtkgaim plugin somehow). Fix gaim_util_fetch_url and plug some leaks. I haven't successfully tested gaim_util_fetch_url from perl yet - it doesn't seem to actually pass the retrieved text to the plugin sub correctly yet. The syntax for calling gaim_util_fetch_url() from perl is also funky and should be made more consistent to the C function. committer: Tailor Script <[e-mail]>

#include "gntkeys.h"

#include <string.h>

void gnt_keys_refine(char *text)
{
	if (text[0] == 27)
	{
		/* These are for urxvt */
		if (strcmp(text + 1, "Oa") == 0)
		{
			strcpy(text + 1, GNT_KEY_CTRL_UP);
		}
		else if (strcmp(text + 1, "Ob") == 0)
		{
			strcpy(text + 1, GNT_KEY_CTRL_DOWN);
		}
	}
	else if ((unsigned char)text[0] == 195)
	{
		/* These for xterm */
		if (text[2] == 0)
		{
			text[0] = 27;
			text[1] -= 64;
		}
	}
}