1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
-- Authors: Etan Reisner <deryni@gmail.com>
-- License: MIT, see http://opensource.org/licenses/mit-license.php
-- Last Changed: 2007-07-22
--
--[[
Author: Etan Reisner
Email: deryni@unreliablesource.net
Summary: Maintains the _NET_CLIENT_LIST property (and the _NET_CLIENT_LIST_STACKING property incorrectly) on the root window.
Last Updated: 2007-07-22
Copyright (c) Etan Reisner 2007
This software is released under the terms of the MIT license. For more
information, see http://opensource.org/licenses/mit-license.php .
--]]
local atom_window = ioncore.x_intern_atom("WINDOW", false)
local atom_client_list = ioncore.x_intern_atom("_NET_CLIENT_LIST", false)
local atom_client_list_stacking = ioncore.x_intern_atom("_NET_CLIENT_LIST_STACKING", false)
local function add_client(cwin)
if not cwin then
return
end
local rootwin = cwin:rootwin_of()
local list = {n=0}
ioncore.clientwin_i(function (cwin)
list.n = list.n + 1
list[list.n] = cwin:xid()
return true
end)
list.n = nil
ioncore.x_change_property(rootwin:xid(), atom_client_list, atom_window,
32, "replace", list)
ioncore.x_change_property(rootwin:xid(), atom_client_list_stacking,
atom_window, 32, "replace", list)
end
local function remove_client(xid)
local rootwin = ioncore.current():rootwin_of()
local list = {n=0}
ioncore.clientwin_i(function (cwin)
list.n = list.n + 1
list[list.n] = cwin:xid()
return true
end)
list.n = nil
ioncore.x_change_property(rootwin:xid(), atom_client_list, atom_window,
32, "replace", list)
ioncore.x_change_property(rootwin:xid(), atom_client_list_stacking,
atom_window, 32, "replace", list)
end
local function net_mark_supported(atom)
if (ioncore.rootwin) then
local rootwin = ioncore.rootwin()
local atom_atom = ioncore.x_intern_atom("ATOM", false)
local atom_net_supported = ioncore.x_intern_atom("_NET_SUPPORTED", false)
ioncore.x_change_property(rootwin:xid(), atom_net_supported, atom_atom,
32, "append", {atom})
end
end
add_client(ioncore.current())
do
local hook
hook = ioncore.get_hook("clientwin_mapped_hook")
if hook then
hook:add(add_client)
end
hook = nil
hook = ioncore.get_hook("clientwin_unmapped_hook")
if hook then
hook:add(remove_client)
end
net_mark_supported(atom_client_list);
end
|
