461 lines
15 KiB
C
461 lines
15 KiB
C
/*
|
|
* property.c - property handlers
|
|
*
|
|
* Copyright © 2008-2009 Julien Danjou <julien@danjou.info>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License along
|
|
* with this program; if not, write to the Free Software Foundation, Inc.,
|
|
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
*
|
|
*/
|
|
|
|
#include <xcb/xcb_atom.h>
|
|
|
|
#include "screen.h"
|
|
#include "property.h"
|
|
#include "objects/client.h"
|
|
#include "ewmh.h"
|
|
#include "objects/wibox.h"
|
|
#include "xwindow.h"
|
|
#include "luaa.h"
|
|
#include "common/atoms.h"
|
|
#include "common/xutil.h"
|
|
|
|
|
|
#define HANDLE_TEXT_PROPERTY(funcname, atom, setfunc) \
|
|
void \
|
|
property_update_##funcname(client_t *c, xcb_get_property_reply_t *reply) \
|
|
{ \
|
|
bool no_reply = !reply; \
|
|
if(no_reply) \
|
|
reply = xcb_get_property_reply(globalconf.connection, \
|
|
xcb_get_any_property(globalconf.connection, \
|
|
false, \
|
|
c->window, \
|
|
atom, \
|
|
UINT_MAX), NULL); \
|
|
luaA_object_push(globalconf.L, c); \
|
|
setfunc(globalconf.L, -1, xutil_get_text_property_from_reply(reply)); \
|
|
lua_pop(globalconf.L, 1); \
|
|
if(no_reply) \
|
|
p_delete(&reply); \
|
|
} \
|
|
static int \
|
|
property_handle_##funcname(void *data, \
|
|
xcb_connection_t *connection, \
|
|
uint8_t state, \
|
|
xcb_window_t window, \
|
|
xcb_atom_t name, \
|
|
xcb_get_property_reply_t *reply) \
|
|
{ \
|
|
client_t *c = client_getbywin(window); \
|
|
if(c) \
|
|
property_update_##funcname(c, reply); \
|
|
return 0; \
|
|
}
|
|
|
|
|
|
HANDLE_TEXT_PROPERTY(wm_name, WM_NAME, client_set_alt_name)
|
|
HANDLE_TEXT_PROPERTY(net_wm_name, _NET_WM_NAME, client_set_name)
|
|
HANDLE_TEXT_PROPERTY(wm_icon_name, WM_ICON_NAME, client_set_alt_icon_name)
|
|
HANDLE_TEXT_PROPERTY(net_wm_icon_name, _NET_WM_ICON_NAME, client_set_icon_name)
|
|
HANDLE_TEXT_PROPERTY(wm_client_machine, WM_CLIENT_MACHINE, client_set_machine)
|
|
HANDLE_TEXT_PROPERTY(wm_window_role, WM_WINDOW_ROLE, client_set_role)
|
|
|
|
#undef HANDLE_TEXT_PROPERTY
|
|
|
|
#define HANDLE_PROPERTY(name) \
|
|
static int \
|
|
property_handle_##name(void *data, \
|
|
xcb_connection_t *connection, \
|
|
uint8_t state, \
|
|
xcb_window_t window, \
|
|
xcb_atom_t name, \
|
|
xcb_get_property_reply_t *reply) \
|
|
{ \
|
|
client_t *c = client_getbywin(window); \
|
|
if(c) \
|
|
property_update_##name(c, reply); \
|
|
return 0; \
|
|
}
|
|
|
|
HANDLE_PROPERTY(wm_protocols)
|
|
HANDLE_PROPERTY(wm_transient_for)
|
|
HANDLE_PROPERTY(wm_client_leader)
|
|
HANDLE_PROPERTY(wm_normal_hints)
|
|
HANDLE_PROPERTY(wm_hints)
|
|
HANDLE_PROPERTY(wm_class)
|
|
HANDLE_PROPERTY(net_wm_icon)
|
|
HANDLE_PROPERTY(net_wm_pid)
|
|
|
|
#undef HANDLE_PROPERTY
|
|
|
|
void
|
|
property_update_wm_transient_for(client_t *c, xcb_get_property_reply_t *reply)
|
|
{
|
|
xcb_window_t trans;
|
|
|
|
if(reply)
|
|
{
|
|
if(!xcb_get_wm_transient_for_from_reply(&trans, reply))
|
|
return;
|
|
}
|
|
else
|
|
{
|
|
if(!xcb_get_wm_transient_for_reply(globalconf.connection,
|
|
xcb_get_wm_transient_for_unchecked(globalconf.connection,
|
|
c->window),
|
|
&trans, NULL))
|
|
return;
|
|
}
|
|
|
|
luaA_object_push(globalconf.L, c);
|
|
client_set_type(globalconf.L, -1, WINDOW_TYPE_DIALOG);
|
|
client_set_above(globalconf.L, -1, false);
|
|
client_set_transient_for(globalconf.L, -1, client_getbywin(trans));
|
|
lua_pop(globalconf.L, 1);
|
|
}
|
|
|
|
/** Update leader hint of a client.
|
|
* \param c The client.
|
|
* \param reply (Optional) An existing reply.
|
|
*/
|
|
void
|
|
property_update_wm_client_leader(client_t *c, xcb_get_property_reply_t *reply)
|
|
{
|
|
xcb_get_property_cookie_t client_leader_q;
|
|
void *data;
|
|
bool no_reply = !reply;
|
|
|
|
if(no_reply)
|
|
{
|
|
client_leader_q = xcb_get_property_unchecked(globalconf.connection, false, c->window,
|
|
WM_CLIENT_LEADER, WINDOW, 0, 32);
|
|
|
|
reply = xcb_get_property_reply(globalconf.connection, client_leader_q, NULL);
|
|
}
|
|
|
|
if(reply && reply->value_len && (data = xcb_get_property_value(reply)))
|
|
c->leader_window = *(xcb_window_t *) data;
|
|
|
|
/* Only free when we created a reply ourselves. */
|
|
if(no_reply)
|
|
p_delete(&reply);
|
|
}
|
|
|
|
/** Update the size hints of a client.
|
|
* \param c The client.
|
|
* \param reply (Optional) An existing reply.
|
|
*/
|
|
void
|
|
property_update_wm_normal_hints(client_t *c, xcb_get_property_reply_t *reply)
|
|
{
|
|
if(reply)
|
|
{
|
|
if(!xcb_get_wm_size_hints_from_reply(&c->size_hints, reply))
|
|
return;
|
|
}
|
|
else
|
|
{
|
|
if(!xcb_get_wm_normal_hints_reply(globalconf.connection,
|
|
xcb_get_wm_normal_hints_unchecked(globalconf.connection,
|
|
c->window),
|
|
&c->size_hints, NULL))
|
|
return;
|
|
}
|
|
}
|
|
|
|
/** Update the WM hints of a client.
|
|
* \param c The client.
|
|
* \param reply (Optional) An existing reply.
|
|
*/
|
|
void
|
|
property_update_wm_hints(client_t *c, xcb_get_property_reply_t *reply)
|
|
{
|
|
xcb_wm_hints_t wmh;
|
|
|
|
if(reply)
|
|
{
|
|
if(!xcb_get_wm_hints_from_reply(&wmh, reply))
|
|
return;
|
|
}
|
|
else
|
|
{
|
|
if(!xcb_get_wm_hints_reply(globalconf.connection,
|
|
xcb_get_wm_hints_unchecked(globalconf.connection, c->window),
|
|
&wmh, NULL))
|
|
return;
|
|
}
|
|
|
|
luaA_object_push(globalconf.L, c);
|
|
client_set_urgent(globalconf.L, -1, xcb_wm_hints_get_urgency(&wmh));
|
|
if(wmh.flags & XCB_WM_HINT_STATE &&
|
|
wmh.initial_state == XCB_WM_STATE_WITHDRAWN)
|
|
client_set_border_width(globalconf.L, -1, 0);
|
|
|
|
if(wmh.flags & XCB_WM_HINT_INPUT)
|
|
c->nofocus = !wmh.input;
|
|
|
|
if(wmh.flags & XCB_WM_HINT_WINDOW_GROUP)
|
|
client_set_group_window(globalconf.L, -1, wmh.window_group);
|
|
}
|
|
|
|
/** Update WM_CLASS of a client.
|
|
* \param c The client.
|
|
* \param reply The reply to get property request, or NULL if none.
|
|
*/
|
|
void
|
|
property_update_wm_class(client_t *c, xcb_get_property_reply_t *reply)
|
|
{
|
|
xcb_get_wm_class_reply_t hint;
|
|
|
|
if(reply)
|
|
{
|
|
if(!xcb_get_wm_class_from_reply(&hint, reply))
|
|
return;
|
|
}
|
|
else
|
|
{
|
|
if(!xcb_get_wm_class_reply(globalconf.connection,
|
|
xcb_get_wm_class_unchecked(globalconf.connection, c->window),
|
|
&hint, NULL))
|
|
return;
|
|
}
|
|
|
|
luaA_object_push(globalconf.L, c);
|
|
client_set_class_instance(globalconf.L, -1, hint.class_name, hint.instance_name);
|
|
lua_pop(globalconf.L, 1);
|
|
|
|
/* only delete reply if we get it ourselves */
|
|
if(!reply)
|
|
xcb_get_wm_class_reply_wipe(&hint);
|
|
}
|
|
|
|
static int
|
|
property_handle_net_wm_strut_partial(void *data,
|
|
xcb_connection_t *connection,
|
|
uint8_t state,
|
|
xcb_window_t window,
|
|
xcb_atom_t name,
|
|
xcb_get_property_reply_t *reply)
|
|
{
|
|
client_t *c = client_getbywin(window);
|
|
|
|
if(c)
|
|
ewmh_process_client_strut(c, reply);
|
|
|
|
return 0;
|
|
}
|
|
|
|
void
|
|
property_update_net_wm_icon(client_t *c,
|
|
xcb_get_property_reply_t *reply)
|
|
{
|
|
luaA_object_push(globalconf.L, c);
|
|
|
|
if(reply)
|
|
{
|
|
if(ewmh_window_icon_from_reply(reply))
|
|
client_set_icon(globalconf.L, -2, -1);
|
|
}
|
|
else if(ewmh_window_icon_get_reply(ewmh_window_icon_get_unchecked(c->window)))
|
|
client_set_icon(globalconf.L, -2, -1);
|
|
|
|
/* remove client */
|
|
lua_pop(globalconf.L, 1);
|
|
}
|
|
|
|
void
|
|
property_update_net_wm_pid(client_t *c,
|
|
xcb_get_property_reply_t *reply)
|
|
{
|
|
bool no_reply = !reply;
|
|
|
|
if(no_reply)
|
|
{
|
|
xcb_get_property_cookie_t prop_c =
|
|
xcb_get_property_unchecked(globalconf.connection, false, c->window, _NET_WM_PID, CARDINAL, 0L, 1L);
|
|
reply = xcb_get_property_reply(globalconf.connection, prop_c, NULL);
|
|
}
|
|
|
|
if(reply && reply->value_len)
|
|
{
|
|
uint32_t *rdata = xcb_get_property_value(reply);
|
|
if(rdata)
|
|
{
|
|
luaA_object_push(globalconf.L, c);
|
|
client_set_pid(globalconf.L, -1, *rdata);
|
|
lua_pop(globalconf.L, 1);
|
|
}
|
|
}
|
|
|
|
if(no_reply)
|
|
p_delete(&reply);
|
|
}
|
|
|
|
/** Update the list of supported protocols for a client.
|
|
* \param c The client.
|
|
* \param reply The xcb property reply.
|
|
*/
|
|
void
|
|
property_update_wm_protocols(client_t *c, xcb_get_property_reply_t *reply)
|
|
{
|
|
xcb_get_wm_protocols_reply_t protocols;
|
|
|
|
if(reply)
|
|
{
|
|
if(!xcb_get_wm_protocols_from_reply(reply, &protocols))
|
|
return;
|
|
}
|
|
else
|
|
{
|
|
/* If this fails for any reason, we still got the old value */
|
|
if(!xcb_get_wm_protocols_reply(globalconf.connection,
|
|
xcb_get_wm_protocols_unchecked(globalconf.connection,
|
|
c->window, WM_PROTOCOLS),
|
|
&protocols, NULL))
|
|
return;
|
|
}
|
|
|
|
xcb_get_wm_protocols_reply_wipe(&c->protocols);
|
|
memcpy(&c->protocols, &protocols, sizeof(protocols));
|
|
}
|
|
|
|
/** The property notify event handler.
|
|
* \param data currently unused.
|
|
* \param connection The connection to the X server.
|
|
* \param state currently unused
|
|
* \param window The window to obtain update the property with.
|
|
* \param name The protocol atom, currently unused.
|
|
* \param reply (Optional) An existing reply.
|
|
*/
|
|
static int
|
|
property_handle_xembed_info(void *data __attribute__ ((unused)),
|
|
xcb_connection_t *connection,
|
|
uint8_t state,
|
|
xcb_window_t window,
|
|
xcb_atom_t name,
|
|
xcb_get_property_reply_t *reply)
|
|
{
|
|
xembed_window_t *emwin = xembed_getbywin(&globalconf.embedded, window);
|
|
|
|
if(emwin)
|
|
xembed_property_update(connection, emwin, reply);
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int
|
|
property_handle_xrootpmap_id(void *data __attribute__ ((unused)),
|
|
xcb_connection_t *connection,
|
|
uint8_t state,
|
|
xcb_window_t window,
|
|
xcb_atom_t name,
|
|
xcb_get_property_reply_t *reply)
|
|
{
|
|
if(globalconf.xinerama_is_active)
|
|
foreach(w, globalconf.wiboxes)
|
|
(*w)->need_update = true;
|
|
else
|
|
{
|
|
int screen = xutil_root2screen(connection, window);
|
|
foreach(w, globalconf.wiboxes)
|
|
if(screen == screen_array_indexof(&globalconf.screens, (*w)->screen))
|
|
(*w)->need_update = true;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int
|
|
property_handle_net_wm_opacity(void *data __attribute__ ((unused)),
|
|
xcb_connection_t *connection,
|
|
uint8_t state,
|
|
xcb_window_t window,
|
|
xcb_atom_t name,
|
|
xcb_get_property_reply_t *reply)
|
|
{
|
|
wibox_t *wibox = wibox_getbywin(window);
|
|
|
|
if(wibox)
|
|
{
|
|
luaA_object_push(globalconf.L, wibox);
|
|
wibox_set_opacity(globalconf.L, -1, xwindow_get_opacity_from_reply(reply));
|
|
lua_pop(globalconf.L, -1);
|
|
}
|
|
else
|
|
{
|
|
client_t *c = client_getbywin(window);
|
|
if(c)
|
|
{
|
|
luaA_object_push(globalconf.L, c);
|
|
client_set_opacity(globalconf.L, -1, xwindow_get_opacity_from_reply(reply));
|
|
lua_pop(globalconf.L, 1);
|
|
}
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
void a_xcb_set_property_handlers(void)
|
|
{
|
|
/* init */
|
|
xcb_property_handlers_init(&globalconf.prophs, &globalconf.evenths);
|
|
|
|
/* Xembed stuff */
|
|
xcb_property_set_handler(&globalconf.prophs, _XEMBED_INFO, UINT_MAX,
|
|
property_handle_xembed_info, NULL);
|
|
|
|
/* ICCCM stuff */
|
|
xcb_property_set_handler(&globalconf.prophs, WM_TRANSIENT_FOR, UINT_MAX,
|
|
property_handle_wm_transient_for, NULL);
|
|
xcb_property_set_handler(&globalconf.prophs, WM_CLIENT_LEADER, UINT_MAX,
|
|
property_handle_wm_client_leader, NULL);
|
|
xcb_property_set_handler(&globalconf.prophs, WM_NORMAL_HINTS, UINT_MAX,
|
|
property_handle_wm_normal_hints, NULL);
|
|
xcb_property_set_handler(&globalconf.prophs, WM_HINTS, UINT_MAX,
|
|
property_handle_wm_hints, NULL);
|
|
xcb_property_set_handler(&globalconf.prophs, WM_NAME, UINT_MAX,
|
|
property_handle_wm_name, NULL);
|
|
xcb_property_set_handler(&globalconf.prophs, WM_ICON_NAME, UINT_MAX,
|
|
property_handle_wm_icon_name, NULL);
|
|
xcb_property_set_handler(&globalconf.prophs, WM_CLASS, UINT_MAX,
|
|
property_handle_wm_class, NULL);
|
|
xcb_property_set_handler(&globalconf.prophs, WM_PROTOCOLS, UINT_MAX,
|
|
property_handle_wm_protocols, NULL);
|
|
xcb_property_set_handler(&globalconf.prophs, WM_CLIENT_MACHINE, UINT_MAX,
|
|
property_handle_wm_client_machine, NULL);
|
|
xcb_property_set_handler(&globalconf.prophs, WM_WINDOW_ROLE, UINT_MAX,
|
|
property_handle_wm_window_role, NULL);
|
|
|
|
/* EWMH stuff */
|
|
xcb_property_set_handler(&globalconf.prophs, _NET_WM_NAME, UINT_MAX,
|
|
property_handle_net_wm_name, NULL);
|
|
xcb_property_set_handler(&globalconf.prophs, _NET_WM_ICON_NAME, UINT_MAX,
|
|
property_handle_net_wm_icon_name, NULL);
|
|
xcb_property_set_handler(&globalconf.prophs, _NET_WM_STRUT_PARTIAL, UINT_MAX,
|
|
property_handle_net_wm_strut_partial, NULL);
|
|
xcb_property_set_handler(&globalconf.prophs, _NET_WM_ICON, UINT_MAX,
|
|
property_handle_net_wm_icon, NULL);
|
|
xcb_property_set_handler(&globalconf.prophs, _NET_WM_PID, UINT_MAX,
|
|
property_handle_net_wm_pid, NULL);
|
|
xcb_property_set_handler(&globalconf.prophs, _NET_WM_WINDOW_OPACITY, 1,
|
|
property_handle_net_wm_opacity, NULL);
|
|
|
|
/* background change */
|
|
xcb_property_set_handler(&globalconf.prophs, _XROOTPMAP_ID, 1,
|
|
property_handle_xrootpmap_id, NULL);
|
|
}
|
|
|
|
// vim: filetype=c:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:encoding=utf-8:textwidth=80
|