/*
 * (C)opyright MMIV-MMV Anselm R. Garbe <garbeam at gmail dot com>
 * See LICENSE file for license details.
 */

#include <assert.h>
#include <stdlib.h>
#include <string.h>
#include <X11/Xatom.h>

#include "wmiiwm.h"

#include <cext.h>

static Client   zero_client = {0};

Client         *
alloc_client(Window w)
{
	static int      id = 0;
	char            buf[MAX_BUF];
	char            buf2[MAX_BUF];
	XClassHint      ch;
	Client         *c = (Client *) emalloc(sizeof(Client));

	*c = zero_client;
	c->id = id++;
	c->win = w;
	snprintf(buf, MAX_BUF, "/detached/client/%d", c->id);
	c->files[C_PREFIX] = ixp_create(ixps, buf);
	snprintf(buf, MAX_BUF, "/detached/client/%d/id", c->id);
	snprintf(buf2, MAX_BUF, "%d", c->id);
	c->files[C_ID] = wmii_create_ixpfile(ixps, buf, buf2);
	win_prop(dpy, c->win, XA_WM_NAME, buf2, MAX_BUF);
	snprintf(buf, MAX_BUF, "/detached/client/%d/name", c->id);
	c->files[C_NAME] = wmii_create_ixpfile(ixps, buf, buf2);
	if (XGetClassHint(dpy, c->win, &ch)) {
		snprintf(buf, MAX_BUF, "/detached/client/%d/class", c->id);
		c->files[C_CLASS] = wmii_create_ixpfile(ixps, buf, ch.res_class);
		snprintf(buf, MAX_BUF, "/detached/client/%d/instance", c->id);
		c->files[C_INSTANCE] = wmii_create_ixpfile(ixps, buf, ch.res_name);
	} else {
		snprintf(buf, MAX_BUF, "/detached/client/%d/class", c->id);
		c->files[C_CLASS] = ixp_create(ixps, buf);
		snprintf(buf, MAX_BUF, "/detached/client/%d/instance", c->id);
		c->files[C_INSTANCE] = ixp_create(ixps, buf);
	}
	clients = (Client **) attach_item_end((void **) clients, c, sizeof(Client *));
	XSelectInput(dpy, c->win, CLIENT_MASK);
	return c;
}

void 
set_client_state(Client * c, int state)
{
	long            data[2];

	data[0] = (long) state;
	data[1] = (long) None;
	XChangeProperty(dpy, c->win, wm_state, wm_state, 32,
			PropModeReplace, (unsigned char *) data, 2);
}

void 
show_client(Client * c)
{
	XSelectInput(dpy, c->win, CLIENT_MASK & ~StructureNotifyMask);
	XMapWindow(dpy, c->win);
	XSelectInput(dpy, c->win, CLIENT_MASK);
	set_client_state(c, NormalState);
	grab_client(c, Mod1Mask, Button1);
	grab_client(c, Mod1Mask, Button3);
}

void 
hide_client(Client * c)
{
	ungrab_client(c, AnyModifier, AnyButton);
	XSelectInput(dpy, c->win, CLIENT_MASK & ~StructureNotifyMask);
	XUnmapWindow(dpy, c->win);
	XSelectInput(dpy, c->win, CLIENT_MASK);
	set_client_state(c, WithdrawnState);
}

void 
reparent_client(Client * c, Window w, int x, int y)
{
	XSelectInput(dpy, c->win, CLIENT_MASK & ~StructureNotifyMask);
	XReparentWindow(dpy, c->win, w, x, y);
	XSelectInput(dpy, c->win, CLIENT_MASK);
}

void 
grab_client(Client * c, unsigned long mod, unsigned int button)
{
	XSelectInput(dpy, c->win, CLIENT_MASK & ~StructureNotifyMask);
	XGrabButton(dpy, button, mod, c->win, False,
		 ButtonPressMask, GrabModeAsync, GrabModeAsync, None, None);
	if ((mod != AnyModifier) && num_lock_mask) {
		XGrabButton(dpy, button, mod | num_lock_mask, c->win,
		       False, ButtonPressMask, GrabModeAsync, GrabModeAsync,
			    None, None);
		XGrabButton(dpy, button, mod | num_lock_mask | LockMask,
			    c->win, False, ButtonPressMask, GrabModeAsync,
			    GrabModeAsync, None, None);
	}
	XSelectInput(dpy, c->win, CLIENT_MASK);
	XSync(dpy, False);
}

void 
ungrab_client(Client * c, unsigned long mod, unsigned int button)
{
	XSelectInput(dpy, c->win, CLIENT_MASK & ~StructureNotifyMask);
	XUngrabButton(dpy, button, mod, c->win);
	if (mod != AnyModifier && num_lock_mask) {
		XUngrabButton(dpy, button, mod | num_lock_mask, c->win);
		XUngrabButton(dpy, button, mod | num_lock_mask | LockMask, c->win);
	}
	XSelectInput(dpy, c->win, CLIENT_MASK);
	XSync(dpy, False);
}

void 
configure_client(Client * c)
{
	XConfigureEvent e;
	e.type = ConfigureNotify;
	e.event = c->win;
	e.window = c->win;
	e.x = c->rect.x;
	e.y = c->rect.y;
	if (c->frame) {
		XRectangle     *frect = rect_of_frame(c->frame);
		e.x += frect->x;
		e.y += frect->y;
	}
	e.width = c->rect.width;
	e.height = c->rect.height;
	e.border_width = c->border;
	e.above = None;
	e.override_redirect = False;

	XSelectInput(dpy, c->win, CLIENT_MASK & ~StructureNotifyMask);
	XSendEvent(dpy, c->win, False, StructureNotifyMask, (XEvent *) & e);
	XSelectInput(dpy, c->win, CLIENT_MASK);
	XSync(dpy, False);
}

void 
close_client(Client * c)
{
	if (c->proto & PROTO_DEL)
		send_message(dpy, c->win, wm_protocols, wm_delete);
	else
		XKillClient(dpy, c->win);
}

void 
_init_client(Client * c, XWindowAttributes * wa)
{
	long            msize;
	c->rect.x = wa->x;
	c->rect.y = wa->y;
	c->border = wa->border_width;
	c->rect.width = wa->width + 2 * c->border;
	c->rect.height = wa->height + 2 * c->border;
	XSetWindowBorderWidth(dpy, c->win, 0);
	XSelectInput(dpy, c->win, PropertyChangeMask);
	c->proto = win_proto(c->win);
	XGetTransientForHint(dpy, c->win, &c->trans);
	/* size hints */
	if (!XGetWMNormalHints(dpy, c->win, &c->size, &msize)
	    || !c->size.flags)
		c->size.flags = PSize;
	XAddToSaveSet(dpy, c->win);
}

void 
handle_client_property(Client * c, XPropertyEvent * e)
{
	char            buf[1024];
	long            msize;

	buf[0] = '\0';
	if (e->state == PropertyDelete)
		return;		/* ignore */

	if (e->atom == wm_protocols) {
		/* update */
		c->proto = win_proto(c->win);
		return;
	}
	switch (e->atom) {
	case XA_WM_NAME:
		win_prop(dpy, c->win, XA_WM_NAME, buf, sizeof(buf));
		if (strlen(buf)) {
			if (c->files[C_NAME]->content)
				free(c->files[C_NAME]->content);
			c->files[C_NAME]->content = estrdup(buf);
			c->files[C_NAME]->size = strlen(buf);
		}
		if (c->frame)
			draw_client(c);
		invoke_core_event(core_files[CORE_EVENT_CLIENT_UPDATE]);
		break;
	case XA_WM_TRANSIENT_FOR:
		XGetTransientForHint(dpy, c->win, &c->trans);
		break;
	case XA_WM_NORMAL_HINTS:
		if (!XGetWMNormalHints(dpy, c->win, &c->size, &msize)
		    || !c->size.flags) {
			c->size.flags = PSize;
		}
		break;
	}
}

void 
free_client(Client * c)
{
	clients =
	(Client **) detach_item((void **) clients, c, sizeof(Client *));
	ixp_remove_file(ixps, c->files[C_PREFIX]);
	if (ixps->errstr)
		fprintf(stderr, "wmiiwm: free_client(): %s\n", ixps->errstr);
	free(c);
}

/* speed reasoned function for client property change */
void 
draw_client(Client * c)
{
	Frame          *f = c->frame;
	unsigned int    tabh;
	int             i, size;
	XRectangle     *frect;
	int             tw;

	tabh = _strtonum(f->files[F_TAB_H]->content, 0, 30);
	if (!tabh)
		return;
	size = count_items((void **) f->clients);
	frect = rect_of_frame(f);
	tw = frect->width;
	if (size)
		tw /= size;
	for (i = 0; f->clients[i] && f->clients[i] != c; i++);

	if (!f->clients[i + 1]) {
		int             xoff = i * tw;
		draw_tab(f, c->files[C_NAME]->content, xoff, 0,
			 frect->width - xoff, tabh, is_selected(f)
			 && f->clients[f->sel] == c);
	} else
		draw_tab(f, c->files[C_NAME]->content, i * tw, 0, tw, tabh,
			 is_selected(f) && f->clients[f->sel] == c);
}

void 
draw_clients(Frame * f)
{
	unsigned int    tabh = _strtonum(f->files[F_TAB_H]->content, 0, 30);
	int             i, size = count_items((void **) f->clients);
	XRectangle     *frect = rect_of_frame(f);
	int             tw = frect->width;

	if (!tabh || !size)
		return;
	if (size)
		tw /= size;
	for (i = 0; f->clients[i]; i++) {
		if (!f->clients[i + 1]) {
			int             xoff = i * tw;
			draw_tab(f, f->clients[i]->files[C_NAME]->content,
			  xoff, 0, frect->width - xoff, tabh, is_selected(f)
				 && f->clients[f->sel] == f->clients[i]);
			break;
		} else
			draw_tab(f, f->clients[i]->files[C_NAME]->content,
				 i * tw, 0, tw, tabh, is_selected(f)
				 && f->clients[f->sel] == f->clients[i]);
	}
	XSync(dpy, False);
}

int 
manage_class_instance(Client * c)
{
	char            buf[MAX_BUF];
	File           *f;
	char           *class = (char *) c->files[C_CLASS]->content;
	char           *inst = (char *) c->files[C_INSTANCE]->content;

	if (!c->files[C_CLASS]->content || !c->files[C_INSTANCE]->content)
		return 1;

	snprintf(buf, sizeof(buf), "/default/client/%s:%s/manage",
		 class ? class : "", inst ? inst : "");
	f = ixp_walk(ixps, buf);
	if (!f) {
		snprintf(buf, sizeof(buf), "/default/client/%s:%s/manage",
			 class ? class : "", "*");
		f = ixp_walk(ixps, buf);
	}
	if (f && f->content)
		return _strtonum(f->content, 0, 1);
	return 1;
}

void 
gravitate(Client * c, unsigned int tabh, unsigned int bw, int invert)
{
	int             dx = 0, dy = 0;
	int             gravity = NorthWestGravity;

	if (c->size.flags & PWinGravity) {
		gravity = c->size.win_gravity;
	}
	/* y */
	switch (gravity) {
	case StaticGravity:
	case NorthWestGravity:
	case NorthGravity:
	case NorthEastGravity:
		dy = tabh;
		break;
	case EastGravity:
	case CenterGravity:
	case WestGravity:
		dy = -(c->rect.height / 2) + tabh;
		break;
	case SouthEastGravity:
	case SouthGravity:
	case SouthWestGravity:
		dy = -c->rect.height;
		break;
	default:		/* don't care */
		break;
	}

	/* x */
	switch (gravity) {
	case StaticGravity:
	case NorthWestGravity:
	case WestGravity:
	case SouthWestGravity:
		dx = bw;
		break;
	case NorthGravity:
	case CenterGravity:
	case SouthGravity:
		dx = -(c->rect.width / 2) + bw;
		break;
	case NorthEastGravity:
	case EastGravity:
	case SouthEastGravity:
		dx = -(c->rect.width + bw);
		break;
	default:		/* don't care */
		break;
	}

	if (invert) {
		dx = -dx;
		dy = -dy;
	}
	c->rect.x += dx;
	c->rect.y += dy;
}