root.c

   1 /*
   2  * root.c - root window management
   3  *
   4  * Copyright © 2008-2009 Julien Danjou <julien@danjou.info>
   5  *
   6  * This program is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 2 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License along
  17  * with this program; if not, write to the Free Software Foundation, Inc.,
  18  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  19  *
  20  */
  21
  22 #include <xcb/xtest.h>
  23
  24 #include "globalconf.h"
  25 #include "objects/button.h"
  26 #include "objects/drawin.h"
  27 #include "luaa.h"
  28 #include "xwindow.h"
  29 #include "common/xcursor.h"
  30 #include "common/xutil.h"
  31
  32 /** Send fake events. Usually the current focused client will get it.
  33  * \param L The Lua VM state.
  34  * \return The number of element pushed on stack.
  35  * \luastack
  36  * \lparam The event type: key_press, key_release, button_press, button_release
  37  * or motion_notify.
  38  * \lparam The detail: in case of a key event, this is the keycode to send, in
  39  * case of a button event this is the number of the button. In case of a motion
  40  * event, this is a boolean value which if true make the coordinates relatives.
  41  * \lparam In case of a motion event, this is the X coordinate.
  42  * \lparam In case of a motion event, this is the Y coordinate.
  43  * If not specified, the current one is used.
  44  */
  45 static int
  46 luaA_root_fake_input(lua_State *L)
  47 {
  48     if(!globalconf.have_xtest)
  49     {
  50         luaA_warn(L, "XTest extension is not available, cannot fake input.");
  51         return 0;
  52     }
  53
  54     const char *stype = luaL_checkstring(L, 1);
  55     uint8_t type, detail;
  56     int x = 0, y = 0;
  57
  58     if(a_strcmp(stype, "key_press") == 0)
  59     {
  60         type = XCB_KEY_PRESS;
  61         detail = luaL_checknumber(L, 2); /* keycode */
  62     }
  63     else if(a_strcmp(stype, "key_release") == 0)
  64     {
  65         type = XCB_KEY_RELEASE;
  66         detail = luaL_checknumber(L, 2); /* keycode */
  67     }
  68     else if(a_strcmp(stype, "button_press") == 0)
  69     {
  70         type = XCB_BUTTON_PRESS;
  71         detail = luaL_checknumber(L, 2); /* button number */
  72     }
  73     else if(a_strcmp(stype, "button_release") == 0)
  74     {
  75         type = XCB_BUTTON_RELEASE;
  76         detail = luaL_checknumber(L, 2); /* button number */
  77     }
  78     else if(a_strcmp(stype, "motion_notify") == 0)
  79     {
  80         type = XCB_MOTION_NOTIFY;
  81         detail = luaA_checkboolean(L, 2); /* relative to the current position or not */
  82         x = luaL_checknumber(L, 3);
  83         y = luaL_checknumber(L, 4);
  84     }
  85     else
  86         return 0;
  87
  88     xcb_test_fake_input(globalconf.connection,
  89                         type,
  90                         detail,
  91                         XCB_CURRENT_TIME,
  92                         XCB_NONE,
  93                         x, y,
  94                         0);
  95     return 0;
  96 }
  97
  98 /** Get or set global key bindings.
  99  * This binding will be available when you'll press keys on root window.
 100  * \param L The Lua VM state.
 101  * \return The number of element pushed on stack.
 102  * \luastack
 103  * \lparam An array of key bindings objects, or nothing.
 104  * \lreturn The array of key bindings objects of this client.
 105  */
 106 static int
 107 luaA_root_keys(lua_State *L)
 108 {
 109     if(lua_gettop(L) == 1)
 110     {
 111         luaA_checktable(L, 1);
 112
 113         foreach(key, globalconf.keys)
 114             luaA_object_unref(globalconf.L, *key);
 115
 116         key_array_wipe(&globalconf.keys);
 117         key_array_init(&globalconf.keys);
 118
 119         lua_pushnil(L);
 120         while(lua_next(L, 1))
 121             key_array_append(&globalconf.keys, luaA_object_ref_class(L, -1, &key_class));
 122
 123         xcb_screen_t *s = globalconf.screen;
 124         xcb_ungrab_key(globalconf.connection, XCB_GRAB_ANY, s->root, XCB_BUTTON_MASK_ANY);
 125         xwindow_grabkeys(s->root, &globalconf.keys);
 126
 127         return 1;
 128     }
 129
 130     lua_createtable(L, globalconf.keys.len, 0);
 131     for(int i = 0; i < globalconf.keys.len; i++)
 132     {
 133         luaA_object_push(L, globalconf.keys.tab[i]);
 134         lua_rawseti(L, -2, i + 1);
 135     }
 136
 137     return 1;
 138 }
 139
 140 /** Get or set global mouse bindings.
 141  * This binding will be available when you'll click on root window.
 142  * \param L The Lua VM state.
 143  * \return The number of element pushed on stack.
 144  * \luastack
 145  * \lparam An array of mouse button bindings objects, or nothing.
 146  * \lreturn The array of mouse button bindings objects.
 147  */
 148 static int
 149 luaA_root_buttons(lua_State *L)
 150 {
 151     if(lua_gettop(L) == 1)
 152     {
 153         luaA_checktable(L, 1);
 154
 155         foreach(button, globalconf.buttons)
 156             luaA_object_unref(globalconf.L, *button);
 157
 158         button_array_wipe(&globalconf.buttons);
 159         button_array_init(&globalconf.buttons);
 160
 161         lua_pushnil(L);
 162         while(lua_next(L, 1))
 163             button_array_append(&globalconf.buttons, luaA_object_ref(L, -1));
 164
 165         return 1;
 166     }
 167
 168     lua_createtable(L, globalconf.buttons.len, 0);
 169     for(int i = 0; i < globalconf.buttons.len; i++)
 170     {
 171         luaA_object_push(L, globalconf.buttons.tab[i]);
 172         lua_rawseti(L, -2, i + 1);
 173     }
 174
 175     return 1;
 176 }
 177
 178 /** Set the root cursor.
 179  * \param L The Lua VM state.
 180  * \return The number of element pushed on stack.
 181  * \luastack
 182  * \lparam A X cursor name.
 183  */
 184 static int
 185 luaA_root_cursor(lua_State *L)
 186 {
 187     const char *cursor_name = luaL_checkstring(L, 1);
 188     uint16_t cursor_font = xcursor_font_fromstr(cursor_name);
 189
 190     if(cursor_font)
 191     {
 192         uint32_t change_win_vals[] = { xcursor_new(globalconf.connection, cursor_font) };
 193
 194         xcb_change_window_attributes(globalconf.connection,
 195                                      globalconf.screen->root,
 196                                      XCB_CW_CURSOR,
 197                                      change_win_vals);
 198     }
 199     else
 200         luaA_warn(L, "invalid cursor %s", cursor_name);
 201
 202     return 0;
 203 }
 204
 205 /** Get the drawins attached to a screen.
 206  * \param L The Lua VM state.
 207  * \return The number of element pushed on stack.
 208  * \luastack
 209  * \lreturn A table with all drawins.
 210  */
 211 static int
 212 luaA_root_drawins(lua_State *L)
 213 {
 214     lua_createtable(L, globalconf.drawins.len, 0);
 215
 216     for(int i = 0; i < globalconf.drawins.len; i++)
 217     {
 218         luaA_object_push(L, globalconf.drawins.tab[i]);
 219         lua_rawseti(L, -2, i + 1);
 220     }
 221
 222     return 1;
 223 }
 224
 225 const struct luaL_reg awesome_root_lib[] =
 226 {
 227     { "buttons", luaA_root_buttons },
 228     { "keys", luaA_root_keys },
 229     { "cursor", luaA_root_cursor },
 230     { "fake_input", luaA_root_fake_input },
 231     { "drawins", luaA_root_drawins },
 232     { NULL, NULL }
 233 };
 234
 235 // vim: filetype=c:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:textwidth=80