/* setstyle.c - loads style related options to wmaker
 *
 *  WindowMaker window manager
 *
 *  Copyright (c) 1997-2003 Alfredo K. Kojima
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
 *  USA.
 */

#define PROG_VERSION "setstyle (Window Maker) 0.6"

#include <stdlib.h>
#include <stdio.h>
#include <sys/stat.h>
#include <unistd.h>
#include <string.h>
#include <X11/Xlib.h>
#include <WINGs/WUtil.h>

#include "../src/wconfig.h"

#define MAX_OPTIONS 128

char *FontOptions[] = {
	"IconTitleFont",
	"ClipTitleFont",
	"DisplayFont",
	"LargeDisplayFont",
	"MenuTextFont",
	"MenuTitleFont",
	"WindowTitleFont",
	NULL
};

char *CursorOptions[] = {
	"NormalCursor",
	"ArrowCursor",
	"MoveCursor",
	"ResizeCursor",
	"TopLeftResizeCursor",
	"TopRightResizeCursor",
	"BottomLeftResizeCursor",
	"BottomRightResizeCursor",
	"VerticalResizeCursor",
	"HorizontalResizeCursor",
	"WaitCursor",
	"QuestionCursor",
	"TextCursor",
	"SelectCursor",
	NULL
};

char *ProgName;
int ignoreFonts = 0;
int ignoreCursors = 0;

Display *dpy;

extern char *convertFont(char *font, Bool keepXLFD);

WMPropList *readBlackBoxStyle(char *path);

static Bool isCursorOption(char *option)
{
	int i;

	for (i = 0; CursorOptions[i] != NULL; i++) {
		if (strcasecmp(option, CursorOptions[i]) == 0) {
			return True;
		}
	}

	return False;
}

static Bool isFontOption(char *option)
{
	int i;

	for (i = 0; FontOptions[i] != NULL; i++) {
		if (strcasecmp(option, FontOptions[i]) == 0) {
			return True;
		}
	}

	return False;
}

char *defaultsPathForDomain(char *domain)
{
	static char path[1024];
	char *gspath;

	gspath = getenv("GNUSTEP_USER_ROOT");
	if (gspath) {
		strcpy(path, gspath);
		strcat(path, "/");
	} else {
		char *home;

		home = getenv("HOME");
		if (!home) {
			printf("%s:could not get HOME environment variable!\n", ProgName);
			exit(0);
		}

		strcpy(path, home);
		strcat(path, "/GNUstep/");
	}
	strcat(path, DEFAULTS_DIR);
	strcat(path, "/");
	strcat(path, domain);

	return path;
}

void hackPathInTexture(WMPropList * texture, char *prefix)
{
	WMPropList *type;
	char *t;

	/* get texture type */
	type = WMGetFromPLArray(texture, 0);
	t = WMGetFromPLString(type);
	if (t == NULL)
		return;
	if (strcasecmp(t, "tpixmap") == 0
	    || strcasecmp(t, "spixmap") == 0
	    || strcasecmp(t, "mpixmap") == 0
	    || strcasecmp(t, "cpixmap") == 0
	    || strcasecmp(t, "tvgradient") == 0
	    || strcasecmp(t, "thgradient") == 0 || strcasecmp(t, "tdgradient") == 0) {
		WMPropList *file;
		char buffer[4018];

		/* get pixmap file path */
		file = WMGetFromPLArray(texture, 1);
		sprintf(buffer, "%s/%s", prefix, WMGetFromPLString(file));
		/* replace path with full path */
		WMDeleteFromPLArray(texture, 1);
		WMInsertInPLArray(texture, 1, WMCreatePLString(buffer));
	} else if (strcasecmp(t, "bitmap") == 0) {
		WMPropList *file;
		char buffer[4018];

		/* get bitmap file path */
		file = WMGetFromPLArray(texture, 1);
		sprintf(buffer, "%s/%s", prefix, WMGetFromPLString(file));
		/* replace path with full path */
		WMDeleteFromPLArray(texture, 1);
		WMInsertInPLArray(texture, 1, WMCreatePLString(buffer));

		/* get mask file path */
		file = WMGetFromPLArray(texture, 2);
		sprintf(buffer, "%s/%s", prefix, WMGetFromPLString(file));
		/* replace path with full path */
		WMDeleteFromPLArray(texture, 2);
		WMInsertInPLArray(texture, 2, WMCreatePLString(buffer));
	}
}

void hackPaths(WMPropList * style, char *prefix)
{
	WMPropList *keys;
	WMPropList *key;
	WMPropList *value;
	int i;

	keys = WMGetPLDictionaryKeys(style);

	for (i = 0; i < WMGetPropListItemCount(keys); i++) {
		key = WMGetFromPLArray(keys, i);

		value = WMGetFromPLDictionary(style, key);
		if (!value)
			continue;

		if (strcasecmp(WMGetFromPLString(key), "WorkspaceSpecificBack") == 0) {
			if (WMIsPLArray(value)) {
				int j;
				WMPropList *texture;

				for (j = 0; j < WMGetPropListItemCount(value); j++) {
					texture = WMGetFromPLArray(value, j);

					if (texture && WMIsPLArray(texture)
					    && WMGetPropListItemCount(texture) > 2) {

						hackPathInTexture(texture, prefix);
					}
				}
			}
		} else {

			if (WMIsPLArray(value) && WMGetPropListItemCount(value) > 2) {

				hackPathInTexture(value, prefix);
			}
		}
	}

}

static WMPropList *getColor(WMPropList * texture)
{
	WMPropList *value, *type;
	char *str;

	type = WMGetFromPLArray(texture, 0);
	if (!type)
		return NULL;

	value = NULL;

	str = WMGetFromPLString(type);
	if (strcasecmp(str, "solid") == 0) {
		value = WMGetFromPLArray(texture, 1);
	} else if (strcasecmp(str, "dgradient") == 0
		   || strcasecmp(str, "hgradient") == 0 || strcasecmp(str, "vgradient") == 0) {
		WMPropList *c1, *c2;
		int r1, g1, b1, r2, g2, b2;
		char buffer[32];

		c1 = WMGetFromPLArray(texture, 1);
		c2 = WMGetFromPLArray(texture, 2);
		if (!dpy) {
			if (sscanf(WMGetFromPLString(c1), "#%2x%2x%2x", &r1, &g1, &b1) == 3
			    && sscanf(WMGetFromPLString(c2), "#%2x%2x%2x", &r2, &g2, &b2) == 3) {
				sprintf(buffer, "#%02x%02x%02x", (r1 + r2) / 2, (g1 + g2) / 2, (b1 + b2) / 2);
				value = WMCreatePLString(buffer);
			} else {
				value = c1;
			}
		} else {
			XColor color1;
			XColor color2;

			XParseColor(dpy, DefaultColormap(dpy, DefaultScreen(dpy)), WMGetFromPLString(c1), &color1);
			XParseColor(dpy, DefaultColormap(dpy, DefaultScreen(dpy)), WMGetFromPLString(c2), &color2);

			sprintf(buffer, "#%02x%02x%02x",
				(color1.red + color2.red) >> 9,
				(color1.green + color2.green) >> 9, (color1.blue + color2.blue) >> 9);
			value = WMCreatePLString(buffer);
		}
	} else if (strcasecmp(str, "mdgradient") == 0
		   || strcasecmp(str, "mhgradient") == 0 || strcasecmp(str, "mvgradient") == 0) {

		value = WMGetFromPLArray(texture, 1);

	} else if (strcasecmp(str, "tpixmap") == 0
		   || strcasecmp(str, "cpixmap") == 0 || strcasecmp(str, "spixmap") == 0) {

		value = WMGetFromPLArray(texture, 2);
	}

	return value;
}

/*
 * since some of the options introduce incompatibilities, we will need
 * to do a kluge here or the themes ppl will get real annoying.
 * So, treat for the absence of the following options:
 * IconTitleColor
 * IconTitleBack
 */
void hackStyle(WMPropList * style)
{
	WMPropList *keys, *tmp;
	int foundIconTitle = 0, foundResizebarBack = 0;
	int i;

	keys = WMGetPLDictionaryKeys(style);

	for (i = 0; i < WMGetPropListItemCount(keys); i++) {
		char *str;

		tmp = WMGetFromPLArray(keys, i);
		str = WMGetFromPLString(tmp);
		if (str) {
			if (ignoreFonts && isFontOption(str)) {
				WMRemoveFromPLDictionary(style, tmp);
				continue;
			}
			if (ignoreCursors && isCursorOption(str)) {
				WMRemoveFromPLDictionary(style, tmp);
				continue;
			}
			if (isFontOption(str)) {
				WMPropList *value;
				char *newfont, *oldfont;

				value = WMGetFromPLDictionary(style, tmp);
				if (value) {
					oldfont = WMGetFromPLString(value);
					newfont = convertFont(oldfont, False);
					if (newfont != oldfont) {
						value = WMCreatePLString(newfont);
						WMPutInPLDictionary(style, tmp, value);
						WMReleasePropList(value);
						wfree(newfont);
					}
				}
			}
			if (strcasecmp(str, "IconTitleColor") == 0 || strcasecmp(str, "IconTitleBack") == 0) {
				foundIconTitle = 1;
			} else if (strcasecmp(str, "ResizebarBack") == 0) {
				foundResizebarBack = 1;
			}
		}
	}

	if (!foundIconTitle) {
		/* set the default values */
		tmp = WMGetFromPLDictionary(style, WMCreatePLString("FTitleColor"));
		if (tmp) {
			WMPutInPLDictionary(style, WMCreatePLString("IconTitleColor"), tmp);
		}

		tmp = WMGetFromPLDictionary(style, WMCreatePLString("FTitleBack"));
		if (tmp) {
			WMPropList *value;

			value = getColor(tmp);

			if (value) {
				WMPutInPLDictionary(style, WMCreatePLString("IconTitleBack"), value);
			}
		}
	}

	if (!foundResizebarBack) {
		/* set the default values */
		tmp = WMGetFromPLDictionary(style, WMCreatePLString("UTitleBack"));
		if (tmp) {
			WMPropList *value;

			value = getColor(tmp);

			if (value) {
				WMPropList *t;

				t = WMCreatePLArray(WMCreatePLString("solid"), value, NULL);
				WMPutInPLDictionary(style, WMCreatePLString("ResizebarBack"), t);
			}
		}
	}

	if (!WMGetFromPLDictionary(style, WMCreatePLString("MenuStyle"))) {
		WMPutInPLDictionary(style, WMCreatePLString("MenuStyle"), WMCreatePLString("normal"));
	}
}

void print_help()
{
	printf("Usage: %s [OPTIONS] FILE\n", ProgName);
	puts("Reads style/theme configuration from FILE and updates Window Maker.");
	puts("");
	puts("  --no-fonts          ignore font related options");
	puts("  --no-cursors        ignore cursor related options");
	puts("  --ignore <option>   ignore changes in the specified option");
	puts("  --help              display this help and exit");
	/*
	   puts("  --format <format>   specifies the format of the theme to be converted");
	 */
	puts("  --version           output version information and exit");
	/*puts("");
	   puts("Supported formats: blackbox"); */
}

#define F_BLACKBOX	1

int main(int argc, char **argv)
{
	WMPropList *prop, *style;
	char *path;
	char *file = NULL;
	struct stat statbuf;
	int i;
	int ignoreCount = 0;
	char *ignoreList[MAX_OPTIONS];

	dpy = XOpenDisplay("");

	ProgName = argv[0];

	if (argc < 2) {
		printf("%s: missing argument\n", ProgName);
		printf("Try '%s --help' for more information\n", ProgName);
		exit(1);
	}

	for (i = 1; i < argc; i++) {
		if (strcmp("--ignore", argv[i]) == 0) {
			i++;
			if (i == argc) {
				printf("%s: missing argument for option --ignore\n", ProgName);
				exit(1);
			}
			ignoreList[ignoreCount++] = argv[i];

		} else if (strcmp("--no-fonts", argv[i]) == 0) {
			ignoreFonts = 1;
		} else if (strcmp("--no-cursors", argv[i]) == 0) {
			ignoreCursors = 1;
		} else if (strcmp("--version", argv[i]) == 0) {
			puts(PROG_VERSION);
			exit(0);
		} else if (strcmp("--help", argv[i]) == 0) {
			print_help();
			exit(0);
#if 0
		} else if (strcmp("--format", argv[i]) == 0) {
			i++;
			if (i == argc) {
				printf("%s: missing argument for option --format\n", ProgName);
				exit(1);
			}
			if (strcasecmp(argv[i], "blackbox") == 0) {
				format = F_BLACKBOX;
			} else {
				printf("%s: unknown theme format '%s'\n", ProgName, argv[i]);
				exit(1);
			}
#endif
		} else {
			if (file) {
				printf("%s: invalid argument '%s'\n", ProgName, argv[i]);
				printf("Try '%s --help' for more information\n", ProgName);
				exit(1);
			}
			file = argv[i];
		}
	}

	WMPLSetCaseSensitive(False);

	path = defaultsPathForDomain("WindowMaker");

	prop = WMReadPropListFromFile(path);
	if (!prop) {
		perror(path);
		printf("%s:could not load WindowMaker configuration file.\n", ProgName);
		exit(1);
	}

	if (stat(file, &statbuf) < 0) {
		perror(file);
		exit(1);
	}
#if 0
	if (format == F_BLACKBOX) {
		style = readBlackBoxStyle(file);
		if (!style) {
			printf("%s: could not open style file\n", ProgName);
			exit(1);
		}
	} else
#endif
	{
		if (S_ISDIR(statbuf.st_mode)) {
			char buffer[4018];
			char *prefix;
			/* theme pack */

			if (*argv[argc - 1] != '/') {
				if (!getcwd(buffer, 4000)) {
					printf("%s: complete path for %s is too long\n", ProgName, file);
					exit(1);
				}
				if (strlen(buffer) + strlen(file) > 4000) {
					printf("%s: complete path for %s is too long\n", ProgName, file);
					exit(1);
				}
				strcat(buffer, "/");
			} else {
				buffer[0] = 0;
			}
			strcat(buffer, file);

			prefix = malloc(strlen(buffer) + 10);
			if (!prefix) {
				printf("%s: out of memory\n", ProgName);
				exit(1);
			}
			strcpy(prefix, buffer);

			strcat(buffer, "/style");

			style = WMReadPropListFromFile(buffer);
			if (!style) {
				perror(buffer);
				printf("%s:could not load style file.\n", ProgName);
				exit(1);
			}

			hackPaths(style, prefix);
			free(prefix);
		} else {
			/* normal style file */

			style = WMReadPropListFromFile(file);
			if (!style) {
				perror(file);
				printf("%s:could not load style file.\n", ProgName);
				exit(1);
			}
		}
	}

	if (!WMIsPLDictionary(style)) {
		printf("%s: '%s' is not a style file/theme\n", ProgName, file);
		exit(1);
	}

	hackStyle(style);

	if (ignoreCount > 0) {
		for (i = 0; i < ignoreCount; i++) {
			WMRemoveFromPLDictionary(style, WMCreatePLString(ignoreList[i]));
		}
	}

	WMMergePLDictionaries(prop, style, True);

	WMWritePropListToFile(prop, path, True);
	{
		XEvent ev;

		if (dpy) {
			int i;
			char *msg = "Reconfigure";

			memset(&ev, 0, sizeof(XEvent));

			ev.xclient.type = ClientMessage;
			ev.xclient.message_type = XInternAtom(dpy, "_WINDOWMAKER_COMMAND", False);
			ev.xclient.window = DefaultRootWindow(dpy);
			ev.xclient.format = 8;

			for (i = 0; i <= strlen(msg); i++) {
				ev.xclient.data.b[i] = msg[i];
			}
			XSendEvent(dpy, DefaultRootWindow(dpy), False, SubstructureRedirectMask, &ev);
			XFlush(dpy);
		}
	}

	exit(0);
}

#if 0
char *getToken(char *str, int i, char *buf)
{

}

static WMPropList *readBlackBoxStyle(char *path)
{
	FILE *f;
	char buffer[128], char token[128];
	WMPropList *style, *p;

	f = fopen(path, "rb");
	if (!f) {
		perror(path);
		return NULL;
	}

	while (1) {
		if (!fgets(buffer, 127, f))
			break;

		if (strncasecmp(buffer, "menu.title:", 11) == 0) {

		}
	}
}
#endif
