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
|
#include "LuaGroup.hpp"
#include "LuaWindow.hpp"
#include "LuaObjectHelpers.hpp"
#include "../../../desktop/view/Group.hpp"
#include <string_view>
using namespace Config::Lua;
static constexpr const char* MT = "HL.Group";
static int groupEq(lua_State* L) {
const auto* lhs = sc<WP<Desktop::View::CGroup>*>(luaL_checkudata(L, 1, MT));
const auto* rhs = sc<WP<Desktop::View::CGroup>*>(luaL_checkudata(L, 2, MT));
lua_pushboolean(L, lhs->lock() == rhs->lock());
return 1;
}
static int groupToString(lua_State* L) {
const auto* ref = sc<WP<Desktop::View::CGroup>*>(luaL_checkudata(L, 1, MT));
const auto group = ref->lock();
if (!group)
lua_pushstring(L, "HL.Group(expired)");
else
lua_pushfstring(L, "HL.Group(%p)", group.get());
return 1;
}
static int groupIndex(lua_State* L) {
auto* ref = sc<WP<Desktop::View::CGroup>*>(luaL_checkudata(L, 1, MT));
const auto group = ref->lock();
if (!group) {
Log::logger->log(Log::DEBUG, "[lua] Tried to access an expired object");
lua_pushnil(L);
return 1;
}
const std::string_view key = luaL_checkstring(L, 2);
if (key == "locked")
lua_pushboolean(L, group->locked());
else if (key == "denied")
lua_pushboolean(L, group->denied());
else if (key == "size")
lua_pushinteger(L, sc<lua_Integer>(group->size()));
else if (key == "current_index")
lua_pushinteger(L, sc<lua_Integer>(group->getCurrentIdx()) + 1);
else if (key == "current") {
const auto current = group->current();
if (current)
Objects::CLuaWindow::push(L, current);
else
lua_pushnil(L);
} else if (key == "members") {
lua_newtable(L);
int i = 1;
for (const auto& grouped : group->windows()) {
const auto groupedWindow = grouped.lock();
if (!groupedWindow)
continue;
Objects::CLuaWindow::push(L, groupedWindow);
lua_rawseti(L, -2, i++);
}
} else
lua_pushnil(L);
return 1;
}
void Objects::CLuaGroup::setup(lua_State* L) {
registerMetatable(L, MT, groupIndex, gcRef<WP<Desktop::View::CGroup>>, groupEq, groupToString);
}
void Objects::CLuaGroup::push(lua_State* L, SP<Desktop::View::CGroup> group) {
new (lua_newuserdata(L, sizeof(WP<Desktop::View::CGroup>))) WP<Desktop::View::CGroup>(group);
luaL_getmetatable(L, MT);
lua_setmetatable(L, -2);
}
|
