// -*- mode: C++; indent-tabs-mode: nil; c-basic-offset: 2; -*-

#include "config.h"

#include "actions.hh"
#include "openbox.hh"
#include "client.hh"
#include "frame.hh"
#include "screen.hh"
#include "python.hh"
#include "bindings.hh"
#include "otk/display.hh"

#include <cstdio>
#include <algorithm>

namespace ob {

Actions::Actions()
  : _dragging(false)
{
}


Actions::~Actions()
{
}


void Actions::buttonPressHandler(const XButtonEvent &e)
{
  otk::EventHandler::buttonPressHandler(e);

  MouseContext::MC context;
  EventHandler *h = openbox->findHandler(e.window);
  Frame *f = dynamic_cast<Frame*>(h);
  if (f)
    context= f->mouseContext(e.window);
  else if (dynamic_cast<Client*>(h))
    context = MouseContext::Window;
  else if (dynamic_cast<Screen*>(h))
    context = MouseContext::Root;
  else
    return; // not a valid mouse context

  if (_press.button) {
    unsigned int mask;
    switch(_press.button) {
    case Button1: mask = Button1Mask; break;
    case Button2: mask = Button2Mask; break;
    case Button3: mask = Button3Mask; break;
    case Button4: mask = Button4Mask; break;
    case Button5: mask = Button5Mask; break;
    default: mask = 0; // on other buttons we have to assume its not pressed...
    }
    // was the button released but we didnt get the event? (pointergrabs cause
    // this)
    if (!(e.state & mask))
      _press.button = 0;
  }
  
  // run the PRESS python hook
  // kill off the Button1Mask etc, only want the modifiers
  unsigned int state = e.state & (ControlMask | ShiftMask | Mod1Mask |
                                  Mod2Mask | Mod3Mask | Mod4Mask | Mod5Mask);
  int screen;
  Client *c = openbox->findClient(e.window);
  if (c)
    screen = c->screen();
  else
    screen = otk::display->findScreen(e.root)->screen();
  MouseData data(screen, c, e.time, state, e.button, context,
                 MouseAction::Press);
  openbox->bindings()->fireButton(&data);
    
  if (_press.button) return; // won't count toward CLICK events

  _press.win = e.window;
  _press.button = e.button;
  _press.pos = otk::Point(e.x_root, e.y_root);
  if (c)
    _press.clientarea = c->area();

  printf("press queue %u pressed %u\n", _press.button, e.button);

  if (context == MouseContext::Window) {
    /*
      Because of how events are grabbed on the client window, we can't get
      ButtonRelease events, so instead we simply manufacture them here, so that
      clicks/doubleclicks etc still work.
    */
    //XButtonEvent ev = e;
    //ev.type = ButtonRelease;
    buttonReleaseHandler(e);
  }
}
  

void Actions::buttonReleaseHandler(const XButtonEvent &e)
{
  otk::EventHandler::buttonReleaseHandler(e);
  
  MouseContext::MC context;
  EventHandler *h = openbox->findHandler(e.window);
  Frame *f = dynamic_cast<Frame*>(h);
  if (f)
    context= f->mouseContext(e.window);
  else if (dynamic_cast<Client*>(h))
    context = MouseContext::Window;
  else if (dynamic_cast<Screen*>(h))
    context = MouseContext::Root;
  else
    return; // not a valid mouse context

  // run the RELEASE python hook
  // kill off the Button1Mask etc, only want the modifiers
  unsigned int state = e.state & (ControlMask | ShiftMask | Mod1Mask |
                                  Mod2Mask | Mod3Mask | Mod4Mask | Mod5Mask);
  int screen;
  Client *c = openbox->findClient(e.window);
  if (c)
    screen = c->screen();
  else
    screen = otk::display->findScreen(e.root)->screen();
  MouseData data(screen, c, e.time, state, e.button, context,
                 MouseAction::Release);
  openbox->bindings()->fireButton(&data);

  // not for the button we're watching?
  if (_press.button != e.button) return;

  _press.button = 0;
  _dragging = false;

  // find the area of the window
  XWindowAttributes attr;
  if (!XGetWindowAttributes(**otk::display, e.window, &attr)) return;

  // if not on the window any more, it isnt a CLICK
  if (!(e.same_screen && e.x >= 0 && e.y >= 0 &&
        e.x < attr.width && e.y < attr.height))
    return;

  // run the CLICK python hook
  data.action = MouseAction::Click;
  openbox->bindings()->fireButton(&data);
    
  long dblclick = 0;
  python_get_long("double_click_delay", &dblclick);
  if (e.time - _release.time < (unsigned)dblclick &&
      _release.win == e.window && _release.button == e.button) {

    // run the DOUBLECLICK python hook
    data.action = MouseAction::DoubleClick;
    openbox->bindings()->fireButton(&data);
    
    // reset so you cant triple click for 2 doubleclicks
    _release.win = 0;
    _release.button = 0;
    _release.time = 0;
  } else {
    // save the button release, might be part of a double click
    _release.win = e.window;
    _release.button = e.button;
    _release.time = e.time;
  }
}


void Actions::enterHandler(const XCrossingEvent &e)
{
  otk::EventHandler::enterHandler(e);
  
  // run the ENTER python hook
  int screen;
  Client *c = openbox->findClient(e.window);
  if (c)
    screen = c->screen();
  else
    screen = otk::display->findScreen(e.root)->screen();
  EventData data(screen, c, EventAction::EnterWindow, e.state);
  openbox->bindings()->fireEvent(&data);
}


void Actions::leaveHandler(const XCrossingEvent &e)
{
  otk::EventHandler::leaveHandler(e);

  // run the LEAVE python hook
  int screen;
  Client *c = openbox->findClient(e.window);
  if (c)
    screen = c->screen();
  else
    screen = otk::display->findScreen(e.root)->screen();
  EventData data(screen, c, EventAction::LeaveWindow, e.state);
  openbox->bindings()->fireEvent(&data);
}


void Actions::keyPressHandler(const XKeyEvent &e)
{
  otk::EventHandler::keyPressHandler(e);

  // kill off the Button1Mask etc, only want the modifiers
  unsigned int state = e.state & (ControlMask | ShiftMask | Mod1Mask |
                                  Mod2Mask | Mod3Mask | Mod4Mask | Mod5Mask);

  // add to the state the mask of the modifier being pressed, if it is
  // a modifier key being pressed (this is a little ugly..)
  const XModifierKeymap *map = otk::display->modifierMap();
  const int mask_table[] = {
    ShiftMask, LockMask, ControlMask, Mod1Mask,
    Mod2Mask, Mod3Mask, Mod4Mask, Mod5Mask
  };
  KeyCode *kp = map->modifiermap;
  for (int i = 0, n = sizeof(mask_table)/sizeof(mask_table[0]); i < n; ++i) {
    for (int k = 0; k < map->max_keypermod; ++k) {
      if (*kp == e.keycode) { // found the keycode
        state |= mask_table[i]; // add the mask for it
        i = n; // cause the first loop to break;
        break; // get outta here!
      }
      ++kp;
    }
  }
  
  openbox->bindings()->
    fireKey(otk::display->findScreen(e.root)->screen(),
            state, e.keycode, e.time, KeyAction::Press);
}


void Actions::keyReleaseHandler(const XKeyEvent &e)
{
  otk::EventHandler::keyReleaseHandler(e);

  // kill off the Button1Mask etc, only want the modifiers
  unsigned int state = e.state & (ControlMask | ShiftMask | Mod1Mask |
                                  Mod2Mask | Mod3Mask | Mod4Mask | Mod5Mask);

  // remove from the state the mask of the modifier being released, if it is
  // a modifier key being released (this is a little ugly..)
  const XModifierKeymap *map = otk::display->modifierMap();
  const int mask_table[] = {
    ShiftMask, LockMask, ControlMask, Mod1Mask,
    Mod2Mask, Mod3Mask, Mod4Mask, Mod5Mask
  };
  KeyCode *kp = map->modifiermap;
  for (int i = 0, n = sizeof(mask_table)/sizeof(mask_table[0]); i < n; ++i) {
    for (int k = 0; k < map->max_keypermod; ++k) {
      if (*kp == e.keycode) { // found the keycode
        state &= ~mask_table[i]; // remove the mask for it
        i = n; // cause the first loop to break;
        break; // get outta here!
      }
      ++kp;
    }
  }
  
  openbox->bindings()->
    fireKey(otk::display->findScreen(e.root)->screen(),
            state, e.keycode, e.time, KeyAction::Release);
}


void Actions::motionHandler(const XMotionEvent &e)
{
  otk::EventHandler::motionHandler(e);

  if (!e.same_screen) return; // this just gets stupid

  if (e.window != _press.win) return;
  
  MouseContext::MC context;
  EventHandler *h = openbox->findHandler(e.window);
  Frame *f = dynamic_cast<Frame*>(h);
  if (f)
    context= f->mouseContext(e.window);
  else if (dynamic_cast<Client*>(h))
    context = MouseContext::Window;
  else if (dynamic_cast<Screen*>(h))
    context = MouseContext::Root;
  else
    return; // not a valid mouse context

  int x_root = e.x_root, y_root = e.y_root;

  // compress changes to a window into a single change
  XEvent ce;
  while (XCheckTypedWindowEvent(**otk::display, e.window, e.type, &ce)) {
    x_root = ce.x_root;
    y_root = ce.y_root;
  }

  int screen;
  Client *c = openbox->findClient(e.window);
  if (c)
    screen = c->screen();
  else
    screen = otk::display->findScreen(e.root)->screen();

  if (!_dragging) {
    int dx = x_root - _press.pos.x();
    int dy = y_root - _press.pos.y();
    long threshold = 0;
    python_get_long("drag_threshold", &threshold);
    if (!(std::abs(dx) >= threshold || std::abs(dy) >= threshold))
      return; // not at the threshold yet
  }
  _dragging = true; // in a drag now
  
  // check if the movement is more than the threshold

  // run the MOTION python hook
  // kill off the Button1Mask etc, only want the modifiers
  unsigned int state = e.state & (ControlMask | ShiftMask | Mod1Mask |
                                  Mod2Mask | Mod3Mask | Mod4Mask | Mod5Mask);
  unsigned int button = _press.button;
  MouseData data(screen, c, e.time, state, button, context,
                 MouseAction::Motion, x_root, y_root,
                 _press.pos, _press.clientarea);
  openbox->bindings()->fireButton(&data);
}

#ifdef    XKB
void Actions::xkbHandler(const XkbEvent &e)
{
  Window w;
  int screen;
  
  otk::EventHandler::xkbHandler(e);

  switch (((XkbAnyEvent*)&e)->xkb_type) {
  case XkbBellNotify:
    w = ((XkbBellNotifyEvent*)&e)->window;
    Client *c = openbox->findClient(w);
    if (c)
      screen = c->screen();
    else
      screen = openbox->focusedScreen()->number();
    EventData data(screen, c, EventAction::Bell, 0);
    openbox->bindings()->fireEvent(&data);
    break;
  }
}
#endif // XKB

}