/*

 * (C)opyright MMVI Anselm R. Garbe <garbeam at gmail dot com>

 * See LICENSE file for license details.

 */

#include <math.h>

#include <stdlib.h>

#include <string.h>

#include <X11/Xatom.h>

#include "wm.h"

void (*arrange)(void *aux);

void

max(void *aux)

{

	if(!stack)

		return;

	stack->x = sx;

	stack->w = sw - 2 * stack->border;

	resize(stack);

	discard_events(EnterWindowMask);

}

void

floating(void *aux)

{

	Client *c;

	arrange = floating;

	for(c = stack; c; c = c->snext)

		resize(c);

	discard_events(EnterWindowMask);

}

void

grid(void *aux)

{

	Client *c;

	int n, cols, rows, gw, gh, i, j;

    float rt, fd;

	arrange = grid;

	if(!clients)

		return;

	for(n = 0, c = clients; c; c = c->next, n++);

	rt = sqrt(n);

	if(modff(rt, &fd) < 0.5)

		rows = floor(rt);

	else

		rows = ceil(rt);

	if(rows * rows < n)

		cols = rows + 1;

	else

		cols = rows;

	gw = (sw - 2)  / cols;

	for(i = j = 0, c = clients; c; c = c->next) {

		c->x = i * gw;

		c->w = gw;

		c->h = gh;

		resize(c);

		if(++i == cols) {

			j++;

			i = 0;

		}

	}

	discard_events(EnterWindowMask);

}

void

sel(void *aux)

{

	const char *arg = aux;

	Client *c = NULL;

	if(!arg || !stack)

		return;

	if(!strncmp(arg, "next", 5))

		c = stack->snext ? stack->snext : stack;

	else if(!strncmp(arg, "prev", 5))

		for(c = stack; c && c->snext; c = c->snext);

	if(!c)

		c = stack;

	focus(c);

}

void

{

	Client *c = stack;

	if(!c)

		return;

	if(c->proto & WM_PROTOCOL_DELWIN)

		send_message(c->win, wm_atom[WMProtocols], wm_atom[WMDelete]);

	else

		XKillClient(dpy, c->win);

}

static void

resize_title(Client *c)

{

	int i;

	c->tw = 0;

	for(i = 0; i < TLast; i++)

		if(c->tags[i])

	if(c->tw > c->w)

		c->tw = c->w + 2;

	c->tx = c->x + c->w - c->tw + 2;

	c->ty = c->y;

	XMoveResizeWindow(dpy, c->title, c->tx, c->ty, c->tw, c->th);

}

void

update_name(Client *c)

{

	XTextProperty name;

	int n;

	char **list = NULL;

	name.nitems = 0;

	c->name[0] = 0;

	XGetTextProperty(dpy, c->win, &name, net_atom[NetWMName]);

	if(!name.nitems)

		XGetWMName(dpy, c->win, &name);

	if(!name.nitems)

		return;

	if(name.encoding == XA_STRING)

		strncpy(c->name, (char *)name.value, sizeof(c->name));

	else {

		if(XmbTextPropertyToTextList(dpy, &name, &list, &n) >= Success

				&& n > 0 && *list)

		{

			strncpy(c->name, *list, sizeof(c->name));

			XFreeStringList(list);

		}

	}

	XFree(name.value);

	resize_title(c);

}

void

update_size(Client *c)

{

	XSizeHints size;

	long msize;

	if(!XGetWMNormalHints(dpy, c->win, &size, &msize) || !size.flags)

		size.flags = PSize;

	c->flags = size.flags;

	if(c->flags & PBaseSize) {

		c->basew = size.base_width;

		c->baseh = size.base_height;

	}

	else

		c->basew = c->baseh = 0;

	if(c->flags & PResizeInc) {

		c->incw = size.width_inc;

		c->inch = size.height_inc;

	}

	else

		c->incw = c->inch = 0;

	if(c->flags & PMaxSize) {

		c->maxw = size.max_width;

		c->maxh = size.max_height;

	}

	else

		c->maxw = c->maxh = 0;

	if(c->flags & PMinSize) {

		c->minw = size.min_width;

		c->minh = size.min_height;

	}

	else

		c->minw = c->minh = 0;

	if(c->flags & PWinGravity)

		c->grav = size.win_gravity;

	else

		c->grav = NorthWestGravity;

}

void

{

	XRaiseWindow(dpy, c->win);

	XRaiseWindow(dpy, c->title);

}

void

lower(Client *c)

{

	XLowerWindow(dpy, c->title);

	XLowerWindow(dpy, c->win);

}

void

focus(Client *c)

{

	Client **l, *old;

	old = stack;

	for(l = &stack; *l && *l != c; l = &(*l)->snext);

	if(*l)

		*l = c->snext;

	c->snext = stack;

	stack = c;

	if(old && old != c) {

		XMapWindow(dpy, old->title);

		draw_client(old);

	}

	XUnmapWindow(dpy, c->title);

	draw_client(c);

	XSetInputFocus(dpy, c->win, RevertToPointerRoot, CurrentTime);

	XFlush(dpy);

}

void

manage(Window w, XWindowAttributes *wa)

{

	Client *c, **l;

	XSetWindowAttributes twa;

	c = emallocz(sizeof(Client));

	c->win = w;

	c->tx = c->x = wa->x;

	c->ty = c->y = wa->y;

	c->tw = c->w = wa->width;

	c->h = wa->height;

	c->border = 1;

	update_size(c);

	XSetWindowBorderWidth(dpy, c->win, 1);

	XSetWindowBorder(dpy, c->win, brush.border);

	XSelectInput(dpy, c->win,

			StructureNotifyMask | PropertyChangeMask | EnterWindowMask);

	XGetTransientForHint(dpy, c->win, &c->trans);

	twa.override_redirect = 1;

	twa.background_pixmap = ParentRelative;

	twa.event_mask = ExposureMask;

	c->tags[tsel] = tags[tsel];

	c->title = XCreateWindow(dpy, root, c->tx, c->ty, c->tw, c->th,

			0, DefaultDepth(dpy, screen), CopyFromParent,

			DefaultVisual(dpy, screen),

			CWOverrideRedirect | CWBackPixmap | CWEventMask, &twa);

	update_name(c);

	for(l=&clients; *l; l=&(*l)->next);

	c->next = *l; /* *l == nil */

	*l = c;

	XMapRaised(dpy, c->win);

	XMapRaised(dpy, c->title);

	XGrabButton(dpy, Button1, Mod1Mask, c->win, False, ButtonPressMask,

			GrabModeAsync, GrabModeSync, None, None);

	XGrabButton(dpy, Button2, Mod1Mask, c->win, False, ButtonPressMask,

			GrabModeAsync, GrabModeSync, None, None);

	XGrabButton(dpy, Button3, Mod1Mask, c->win, False, ButtonPressMask,

			GrabModeAsync, GrabModeSync, None, None);

	arrange(NULL);

	focus(c);

}

void

gravitate(Client *c, Bool invert)

{

	int dx = 0, dy = 0;

	switch(c->grav) {

	case StaticGravity:

	case NorthWestGravity:

	case NorthGravity:

	case NorthEastGravity:

		dy = c->border;

		break;

	case EastGravity:

	case CenterGravity:

	case WestGravity:

		dy = -(c->h / 2) + c->border;

		break;

	case SouthEastGravity:

	case SouthGravity:

	case SouthWestGravity:

		dy = -c->h;

		break;

	default:

		break;

	}

	switch (c->grav) {

	case StaticGravity:

	case NorthWestGravity:

	case WestGravity:

	case SouthWestGravity:

		dx = c->border;

		break;

	case NorthGravity:

	case CenterGravity:

	case SouthGravity:

		dx = -(c->w / 2) + c->border;

		break;

	case NorthEastGravity:

	case EastGravity:

	case SouthEastGravity:

		dx = -(c->w + c->border);

		break;

	default:

		break;

	}

	if(invert) {

		dx = -dx;

		dy = -dy;

	}

	c->x += dx;

	c->y += dy;

}

void

resize(Client *c)

{

	XConfigureEvent e;

	if(c->incw)

		c->w -= (c->w - c->basew) % c->incw;