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

#include <fcntl.h>
#include <stdlib.h>
#include <string.h>
#include <X11/keysym.h>

#include "wm.h"

/* local functions */
static void handle_buttonpress(XEvent * e);
static void handle_configurerequest(XEvent * e);
static void handle_destroynotify(XEvent * e);
static void handle_expose(XEvent * e);
static void handle_maprequest(XEvent * e);
static void handle_motionnotify(XEvent * e);
static void handle_propertynotify(XEvent * e);
static void handle_unmapnotify(XEvent * e);
static void handle_enternotify(XEvent * e);
static void handle_ignore_enternotify_crap(XEvent * e);
static void handle_clientmessage(XEvent * e);

static unsigned int ignore_enternotify_crap = 0;

void (*handler[LASTEvent]) (XEvent *);

void
init_event_hander()
{
    int i;
    /* init event handler */
    for(i = 0; i < LASTEvent; i++) {
        handler[i] = 0;
    }
    handler[ButtonPress] = handle_buttonpress;
    handler[ConfigureRequest] = handle_configurerequest;
    handler[ConfigureNotify] = handle_ignore_enternotify_crap;
    handler[CirculateNotify] = handle_ignore_enternotify_crap;
    handler[DestroyNotify] = handle_destroynotify;
    handler[EnterNotify] = handle_enternotify;
    handler[Expose] = handle_expose;
    handler[GravityNotify] = handle_ignore_enternotify_crap;
    handler[MapRequest] = handle_maprequest;
    handler[MotionNotify] = handle_motionnotify;
    handler[PropertyNotify] = handle_propertynotify;
    handler[MapNotify] = handle_ignore_enternotify_crap;
    handler[UnmapNotify] = handle_unmapnotify;
    handler[ClientMessage] = handle_clientmessage;
}

void
check_event(Connection * c)
{
    XEvent ev;
    while(XPending(dpy)) {      /* main evet loop */
        XNextEvent(dpy, &ev);
        if(handler[ev.type])
            (handler[ev.type]) (&ev);   /* call handler */
    }
}

static void
handle_buttonpress(XEvent * e)
{
    Client *c;
    XButtonPressedEvent *ev = &e->xbutton;
    Frame *f = win_to_frame(ev->window);

    if(f) {
        handle_frame_buttonpress(ev, f);
        return;
    }
    if(ev->window == root) {
        XSetInputFocus(dpy, root, RevertToPointerRoot, CurrentTime);
        XSync(dpy, False);
        return;
    }
    if((c = win_to_client(ev->window))) {
        if(c->frame) {          /* client is attached */
            ev->state &= valid_mask;
            if(ev->state & Mod1Mask) {
                Align align;
                XRaiseWindow(dpy, c->frame->win);
                switch (ev->button) {
                case Button1:
                    mouse_move(c->frame);
                    break;
                case Button3:
                    align = xy_to_align(&c->rect, ev->x, ev->y);
                    if(align == CENTER)
                        mouse_move(c->frame);
                    else
                        mouse_resize(c->frame, align);
                    break;
                default:
                    break;
                }
            }
        }
    }
}

static void
handle_configurerequest(XEvent * e)
{
    XConfigureRequestEvent *ev = &e->xconfigurerequest;
    XWindowChanges wc;
    Client *c;
    unsigned int bw = 0, tabh = 0;
    Frame *f = 0;


    c = win_to_client(ev->window);
    ev->value_mask &= ~CWSibling;

    if(c) {
        f = c->frame;

        if(f) {
            Page *p = f->area->page;
            if(f->area == p->managed) {
                f->area->layout->detach(f->area, c, False);
                p->floating->layout->attach(p->floating, c);
                f = c->frame;
            }
            bw = border_width(f);
            tabh = tab_height(f);
        }
        if(ev->value_mask & CWStackMode) {
            if(wc.stack_mode == Above)
                XRaiseWindow(dpy, c->win);
            else
                ev->value_mask &= ~CWStackMode;
        }
        gravitate(c, tabh ? tabh : bw, bw, 1);

        if(ev->value_mask & CWX)
            c->rect.x = ev->x;
        if(ev->value_mask & CWY)
            c->rect.y = ev->y;
        if(ev->value_mask & CWWidth)
            c->rect.width = ev->width;
        if(ev->value_mask & CWHeight)
            c->rect.height = ev->height;
        if(ev->value_mask & CWBorderWidth)
            c->border = ev->border_width;

        gravitate(c, tabh ? tabh : bw, bw, 0);

        if(f) {
            f->rect.x = wc.x = c->rect.x - bw;
            f->rect.y = wc.y = c->rect.y - (tabh ? tabh : bw);
            f->rect.width = wc.width = c->rect.width + 2 * bw;
            f->rect.height = wc.height =
                c->rect.height + bw + (tabh ? tabh : bw);
            wc.border_width = 1;
            wc.sibling = None;
            wc.stack_mode = ev->detail;
            XConfigureWindow(dpy, f->win, ev->value_mask, &wc);
            configure_client(c);
        }
    }
    wc.x = ev->x;
    wc.y = ev->y;

    if(f) {
        /* if so, then bw and tabh are already initialized */
        wc.x = bw;
        wc.y = tabh ? tabh : bw;
    }
    wc.width = ev->width;
    if(!wc.width)
        wc.width = 1;           /* borken app fix */
    wc.height = ev->height;
    if(!wc.height)
        wc.height = 1;          /* borken app fix */
    wc.border_width = 0;
    wc.sibling = None;
    wc.stack_mode = Above;
    ev->value_mask &= ~CWStackMode;
    ev->value_mask |= CWBorderWidth;
    XConfigureWindow(dpy, e->xconfigurerequest.window, ev->value_mask,
                     &wc);
    XSync(dpy, False);

}

static void
handle_destroynotify(XEvent * e)
{
    XDestroyWindowEvent *ev = &e->xdestroywindow;
    Client *c = win_to_client(ev->window);
    if(c) {
        c->destroyed = True;
        detach_client(c, False);
    }
}

static void
handle_expose(XEvent * e)
{
    static Frame *f;
    if(e->xexpose.count == 0) {
        f = win_to_frame(e->xbutton.window);
        if(f)
            draw_frame(f);
    }
}

static void
handle_maprequest(XEvent * e)
{
    XMapRequestEvent *ev = &e->xmaprequest;
    static XWindowAttributes wa;
    static Client *c;

    if(!XGetWindowAttributes(dpy, ev->window, &wa))
        return;
    if(wa.override_redirect) {
        XSelectInput(dpy, ev->window,
                     (StructureNotifyMask | PropertyChangeMask));
        return;
    }

	/* attach heuristic support */
	if(runinpage && (runinpage->page != selpage)) {
		RunInPage *r = runinpage;
		focus_page(r->page);
		runinpage = runinpage->next;
		free(r);
	}

    /* there're client which send map requests twice */
    c = win_to_client(ev->window);
    if(!c)
        c = alloc_client(ev->window);
    if(!c->frame) {
        init_client(c, &wa);
        attach_client(c);
    }
}

static void
handle_motionnotify(XEvent * e)
{
    Frame *f = win_to_frame(e->xmotion.window);
    Cursor cursor;
    if(f) {
        cursor = cursor_for_motion(f, e->xmotion.x, e->xmotion.y);
        if(cursor != f->cursor) {
            f->cursor = cursor;
            XDefineCursor(dpy, f->win, cursor);
        }
    }
}

static void
handle_propertynotify(XEvent * e)
{
    XPropertyEvent *ev = &e->xproperty;
    Client *c;

    if(ev->state == PropertyDelete)
        return;                 /* ignore */

    if((c = win_to_client(ev->window)))
        handle_client_property(c, ev);
}

static void
handle_unmapnotify(XEvent * e)
{
    XUnmapEvent *ev = &e->xunmap;
    Client *c;
    handle_ignore_enternotify_crap(e);
    if((c = win_to_client(ev->window))) {
        if(!c->ignore_unmap)
            detach_client(c, True);
        else
            c->ignore_unmap--;
    }
}

static void
handle_enternotify(XEvent * e)
{
    XCrossingEvent *ev = &e->xcrossing;
    Client *c;

    if((ev->mode != NotifyNormal) || (ev->detail == NotifyInferior)
       || (ev->serial == ignore_enternotify_crap))
        return;

    c = win_to_client(ev->window);
    if(c && c->frame) {
        focus_area(c->frame->area);
        c->frame->area->layout->focus(c->frame, False);
    }
}

static void
handle_ignore_enternotify_crap(XEvent * e)
{
    ignore_enternotify_crap = e->xany.serial;
    XSync(dpy, False);
}

static void handle_clientmessage(XEvent *e)
{
    XClientMessageEvent *ev = &e->xclient;

    if (ev->message_type == net_atoms[NET_NUMBER_OF_DESKTOPS] && ev->format == 32) {
        return; /* ignore */
    }
    else if (ev->message_type == net_atoms[NET_CURRENT_DESKTOP] && ev->format == 32) {
        int i;
        Page *p;
        i = ev->data.l[0];

        for (p = pages; p; p = p->next) {
            if (p->index == i) {
                focus_page(p);
                return;
            }
        }

        return;
    }
}