/* * Copyright (c) 2012-2013 Bastien Dejean
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without modification,
 * are permitted provided that the following conditions are met:
 *
 *  * Redistributions of source code must retain the above copyright notice, this
 * list of conditions and the following disclaimer.
 *  * Redistributions in binary form must reproduce the above copyright notice,
 * this list of conditions and the following disclaimer in the documentation and/or
 * other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR
 * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
 * ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include "bspwm.h"
#include "ewmh.h"
#include "window.h"
#include "messages.h"
#include "settings.h"
#include "query.h"
#include "rule.h"

rule_consequence_t *make_rule_conquence(void)
{
    rule_consequence_t *rc = calloc(1, sizeof(rule_consequence_t));
    rc->manage = rc->focus = true;
    return rc;
}

pending_rule_t *make_pending_rule(int fd, xcb_window_t win, rule_consequence_t *csq)
{
    pending_rule_t *pr = malloc(sizeof(pending_rule_t));
    pr->prev = pr->next = NULL;
    pr->fd = fd;
    pr->win = win;
    pr->csq = csq;
    return pr;
}

void add_pending_rule(pending_rule_t *pr)
{
    if (pr == NULL)
        return;
    PRINTF("add pending rule %i\n", pr->fd);
    if (pending_rule_head == NULL) {
        pending_rule_head = pending_rule_tail = pr;
    } else {
        pending_rule_tail->next = pr;
        pr->prev = pending_rule_tail;
        pending_rule_tail = pr;
    }
}

void remove_pending_rule(pending_rule_t *pr)
{
    if (pr == NULL)
        return;
    PRINTF("remove pending rule %i\n", pr->fd);
    pending_rule_t *a = pr->prev;
    pending_rule_t *b = pr->next;
    if (a != NULL)
        a->next = b;
    if (b != NULL)
        b->prev = a;
    if (pr == pending_rule_head)
        pending_rule_head = b;
    if (pr == pending_rule_tail)
        pending_rule_tail = a;
    close(pr->fd);
    free(pr->csq);
    free(pr);
}

void apply_rules(xcb_window_t win, rule_consequence_t *csq)
{
    xcb_ewmh_get_atoms_reply_t win_type;

    if (xcb_ewmh_get_wm_window_type_reply(ewmh, xcb_ewmh_get_wm_window_type(ewmh, win), &win_type, NULL) == 1) {
        for (unsigned int i = 0; i < win_type.atoms_len; i++) {
            xcb_atom_t a = win_type.atoms[i];
            if (a == ewmh->_NET_WM_WINDOW_TYPE_TOOLBAR
                    || a == ewmh->_NET_WM_WINDOW_TYPE_UTILITY) {
                csq->focus = false;
            } else if (a == ewmh->_NET_WM_WINDOW_TYPE_DIALOG) {
                csq->floating = true;
            } else if (a == ewmh->_NET_WM_WINDOW_TYPE_DOCK || a == ewmh->_NET_WM_WINDOW_TYPE_DESKTOP || a == ewmh->_NET_WM_WINDOW_TYPE_NOTIFICATION) {
                csq->manage = false;
                if (a == ewmh->_NET_WM_WINDOW_TYPE_DESKTOP)
                    window_lower(win);
            }
        }
        xcb_ewmh_get_atoms_reply_wipe(&win_type);
    }

    xcb_ewmh_get_atoms_reply_t win_state;

    if (xcb_ewmh_get_wm_state_reply(ewmh, xcb_ewmh_get_wm_state(ewmh, win), &win_state, NULL) == 1) {
        for (unsigned int i = 0; i < win_state.atoms_len; i++) {
            xcb_atom_t a = win_state.atoms[i];
            if (a == ewmh->_NET_WM_STATE_FULLSCREEN)
                csq->fullscreen = true;
            else if (a == ewmh->_NET_WM_STATE_STICKY)
                csq->sticky = true;
        }
        xcb_ewmh_get_atoms_reply_wipe(&win_state);
    }

    xcb_size_hints_t size_hints;
    if (xcb_icccm_get_wm_normal_hints_reply(dpy, xcb_icccm_get_wm_normal_hints(dpy, win), &size_hints, NULL) == 1) {
        if (size_hints.min_width > 0 && size_hints.min_height > 0
                && size_hints.min_width == size_hints.max_width
                && size_hints.min_height == size_hints.max_height)
            csq->floating = true;
    }

    xcb_window_t transient_for = XCB_NONE;
    xcb_icccm_get_wm_transient_for_reply(dpy, xcb_icccm_get_wm_transient_for(dpy, win), &transient_for, NULL);
    if (transient_for != XCB_NONE)
        csq->transient = csq->floating = true;
}

bool schedule_rules(xcb_window_t win, rule_consequence_t *csq)
{
    int fds[2];
    if (pipe(fds) == -1)
        return false;
    pid_t pid = fork();
    if (pid == 0) {
        if (dpy != NULL)
            close(xcb_get_file_descriptor(dpy));
        dup2(fds[1], 1);
        close(fds[0]);
        char wid[SMALEN];
        snprintf(wid, sizeof(wid), "%i", win);
        setsid();
        execl(rule_command, rule_command, wid, NULL);
        err("Couldn't spawn rule command.\n");
    } else if (pid > 0) {
        close(fds[1]);
        pending_rule_t *pr = make_pending_rule(fds[0], win, csq);
        add_pending_rule(pr);
    }
    return (pid != -1);
}

void parse_rule_consequence(int fd, rule_consequence_t *csq, monitor_t **m, desktop_t **d)
{
    if (fd == -1)
        return;
    char data[BUFSIZ];
    int nb;
    bool v;
    while ((nb = read(fd, data, sizeof(data))) > 0) {
        int end = MIN(nb, (int) sizeof(data) - 1);
        data[end] = '\0';
        char *key = strtok(data, CSQ_BLK);
        char *value = strtok(NULL, CSQ_BLK);
        while (key != NULL && value != NULL) {
            PRINTF("%s = %s\n", key, value);
            if (streq("desktop", key)) {
                coordinates_t ref = {mon, mon->desk, NULL};
                coordinates_t trg = {NULL, NULL, NULL};
                if (desktop_from_desc(value, &ref, &trg)) {
                    *m = trg.monitor;
                    *d = trg.desktop;
                }
            } else if (streq("monitor", key)) {
                coordinates_t ref = {mon, NULL, NULL};
                coordinates_t trg = {NULL, NULL, NULL};
                if (monitor_from_desc(value, &ref, &trg)) {
                    *m = trg.monitor;
                    *d = trg.monitor->desk;
                }
            } else if (parse_bool(value, &v)) {
                if (streq("floating", key))
                    csq->floating = v;
#define SETCSQ(name) \
                else if (streq(#name, key)) \
                    csq->name = v;
                SETCSQ(fullscreen)
                SETCSQ(locked)
                SETCSQ(sticky)
                SETCSQ(private)
                SETCSQ(frame)
                SETCSQ(center)
                SETCSQ(lower)
                SETCSQ(follow)
                SETCSQ(manage)
                SETCSQ(focus)
#undef SETCSQ

            }
            key = strtok(NULL, CSQ_BLK);
            value = strtok(NULL, CSQ_BLK);
        }
    }
    if (csq->sticky) {
        *m = mon;
        *d = mon->desk;
    }
}