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

 * See LICENSE file for license details.

 */

#include "dwm.h"

#include <stdio.h>

#include <stdlib.h>

#include <X11/keysym.h>

#include <X11/Xatom.h>

/* static */

typedef struct {

	unsigned long mod;

	KeySym keysym;

	void (*func)(const char *arg);

	const char *arg;

} Key;

KEYS

#define CLEANMASK(mask) (mask & ~(numlockmask | LockMask))

#define MOUSEMASK		(BUTTONMASK | PointerMotionMask)

static Client *

getclient(Window w) {

	Client *c;

	for(c = clients; c && c->win != w; c = c->next);

	return c;

}

static void

movemouse(Client *c) {

	int x1, y1, ocx, ocy, di, nx, ny;

	unsigned int dui;

	Window dummy;

	XEvent ev;

	ocx = nx = c->x;

	ocy = ny = c->y;

	if(XGrabPointer(dpy, root, False, MOUSEMASK, GrabModeAsync, GrabModeAsync,

			None, cursor[CurMove], CurrentTime) != GrabSuccess)

		return;

	c->ismax = False;

	XQueryPointer(dpy, root, &dummy, &dummy, &x1, &y1, &di, &di, &dui);

	for(;;) {

		XMaskEvent(dpy, MOUSEMASK | ExposureMask | SubstructureRedirectMask, &ev);

		switch (ev.type) {

		case ButtonRelease:

			XUngrabPointer(dpy, CurrentTime);

			return;

		case ConfigureRequest:

		case Expose:

		case MapRequest:

			handler[ev.type](&ev);

			break;

		case MotionNotify:

			XSync(dpy, False);

			nx = ocx + (ev.xmotion.x - x1);

			ny = ocy + (ev.xmotion.y - y1);

			if(abs(wax + nx) < SNAP)

				nx = wax;

			else if(abs((wax + waw) - (nx + c->w + 2 * c->border)) < SNAP)

				nx = wax + waw - c->w - 2 * c->border;

			if(abs(way - ny) < SNAP)

				ny = way;

			else if(abs((way + wah) - (ny + c->h + 2 * c->border)) < SNAP)

				ny = way + wah - c->h - 2 * c->border;

			resize(c, nx, ny, c->w, c->h, False);

			break;

		}

	}

}

static void

resizemouse(Client *c) {

	int ocx, ocy;

	int nw, nh;

	XEvent ev;

	ocx = c->x;

	ocy = c->y;

	if(XGrabPointer(dpy, root, False, MOUSEMASK, GrabModeAsync, GrabModeAsync,

			None, cursor[CurResize], CurrentTime) != GrabSuccess)

		return;

	c->ismax = False;

	XWarpPointer(dpy, None, c->win, 0, 0, 0, 0, c->w + c->border - 1, c->h + c->border - 1);

	for(;;) {

		XMaskEvent(dpy, MOUSEMASK | ExposureMask | SubstructureRedirectMask , &ev);

		switch(ev.type) {

		case ButtonRelease:

			XWarpPointer(dpy, None, c->win, 0, 0, 0, 0,

					c->w + c->border - 1, c->h + c->border - 1);

			XUngrabPointer(dpy, CurrentTime);

			while(XCheckMaskEvent(dpy, EnterWindowMask, &ev));

			return;

		case ConfigureRequest:

		case Expose:

		case MapRequest:

			handler[ev.type](&ev);

			break;

		case MotionNotify:

			XSync(dpy, False);

			if((nw = ev.xmotion.x - ocx - 2 * c->border + 1) <= 0)

				nw = 1;

			if((nh = ev.xmotion.y - ocy - 2 * c->border + 1) <= 0)

				nh = 1;

			resize(c, c->x, c->y, nw, nh, True);

			break;

		}

	}

}

static void

buttonpress(XEvent *e) {

	static char buf[32];

	unsigned int i, x;

	Client *c;

	XButtonPressedEvent *ev = &e->xbutton;

	buf[0] = 0;

	if(barwin == ev->window) {

		x = 0;

		for(i = 0; i < ntags; i++) {

			x += textw(tags[i]);

			if(ev->x < x) {

				snprintf(buf, sizeof buf, "%d", i);

				if(ev->button == Button1) {

					if(ev->state & MODKEY)

						tag(buf);

					else

						view(buf);

				}

				else if(ev->button == Button3) {

					if(ev->state & MODKEY)

						toggletag(buf);

					else

						toggleview(buf);

				}

				return;

			}

		}

		if(ev->x < x + blw)

			switch(ev->button) {

			case Button1:

				setlayout(NULL);

				break;

			}

	}

	else if((c = getclient(ev->window))) {

		focus(c);

		if(CLEANMASK(ev->state) != MODKEY)

			return;

		if(ev->button == Button1 && (lt->arrange == floating || c->isfloating)) {

			restack();

			movemouse(c);

		}

		else if(ev->button == Button2)

			zoom(NULL);

		else if(ev->button == Button3

		&& (lt->arrange == floating || c->isfloating) && !c->isfixed)

		{

			restack();

			resizemouse(c);

		}

	}

}

static void

configurerequest(XEvent *e) {

	Client *c;

	XConfigureRequestEvent *ev = &e->xconfigurerequest;

	XWindowChanges wc;

	if((c = getclient(ev->window))) {

		c->ismax = False;

		if(ev->value_mask & CWBorderWidth)

			c->border = ev->border_width;

		if(c->isfixed || c->isfloating || (lt->arrange == floating)) {

			if(ev->value_mask & CWX)

				c->x = ev->x;

			if(ev->value_mask & CWY)

				c->y = ev->y;

			if(ev->value_mask & CWWidth)

				c->w = ev->width;

			if(ev->value_mask & CWHeight)

				c->h = ev->height;

			if((ev->value_mask & (CWX | CWY))

			&& !(ev->value_mask & (CWWidth | CWHeight)))

				configure(c);

			if(isvisible(c))

				XMoveResizeWindow(dpy, c->win, c->x, c->y, c->w, c->h);

		}

		else

			configure(c);

	}

	else {

		wc.x = ev->x;

		wc.y = ev->y;

		wc.width = ev->width;

		wc.height = ev->height;

		wc.border_width = ev->border_width;

		wc.sibling = ev->above;

		wc.stack_mode = ev->detail;

		XConfigureWindow(dpy, ev->window, ev->value_mask, &wc);

	}

	XSync(dpy, False);

}

static void

destroynotify(XEvent *e) {

	Client *c;

	XDestroyWindowEvent *ev = &e->xdestroywindow;

	if((c = getclient(ev->window)))

		unmanage(c);

}

static void

enternotify(XEvent *e) {

	Client *c;

	XCrossingEvent *ev = &e->xcrossing;

	if(ev->mode != NotifyNormal || ev->detail == NotifyInferior)

		return;

	if((c = getclient(ev->window)) && isvisible(c))

		focus(c);

	else if(ev->window == root) {

		selscreen = True;

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

		focus(c);

	}

}

static void

expose(XEvent *e) {

	XExposeEvent *ev = &e->xexpose;

	if(ev->count == 0) {

		if(barwin == ev->window)

			drawstatus();

	}

}

static void

keypress(XEvent *e) {

	static unsigned int len = sizeof key / sizeof key[0];

	unsigned int i;

	KeySym keysym;

	XKeyEvent *ev = &e->xkey;

	keysym = XKeycodeToKeysym(dpy, (KeyCode)ev->keycode, 0);

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

		if(keysym == key[i].keysym

		&& CLEANMASK(key[i].mod) == CLEANMASK(ev->state))

		{

			if(key[i].func)

				key[i].func(key[i].arg);

		}

}

static void

leavenotify(XEvent *e) {

	XCrossingEvent *ev = &e->xcrossing;

	if((ev->window == root) && !ev->same_screen) {

		selscreen = False;

		focus(NULL);

	}

}

static void

mappingnotify(XEvent *e) {

	XMappingEvent *ev = &e->xmapping;

	XRefreshKeyboardMapping(ev);

	if(ev->request == MappingKeyboard)

		grabkeys();

}

static void

maprequest(XEvent *e) {

	static XWindowAttributes wa;

	XMapRequestEvent *ev = &e->xmaprequest;

	if(!XGetWindowAttributes(dpy, ev->window, &wa))

		return;

	if(wa.override_redirect)

		return;

	if(!getclient(ev->window))

		manage(ev->window, &wa);

}

static void

propertynotify(XEvent *e) {

	Client *c;

	Window trans;

	XPropertyEvent *ev = &e->xproperty;

	if(ev->state == PropertyDelete)

		return; /* ignore */

	if((c = getclient(ev->window))) {

		switch (ev->atom) {

			default: break;

			case XA_WM_TRANSIENT_FOR:

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

				if(!c->isfloating && (c->isfloating = (getclient(trans) != NULL)))

					lt->arrange();

				break;

			case XA_WM_NORMAL_HINTS:

				updatesizehints(c);

				break;

		}

		if(ev->atom == XA_WM_NAME || ev->atom == netatom[NetWMName]) {

			updatetitle(c);

			if(c == sel)

				drawstatus();

		}

	}