/* luakit global table.
* \param L The Lua VM state.
* \return The number of elements pushed on stack.
* \luastack
* \lfield font The default font.
* \lfield font_height The default font height.
* \lfield conffile The configuration file which has been loaded.
*/
static gint
luaH_luakit_index(lua_State *L)
{
if(luaH_usemetatable(L, 1, 2))
return 1;
widget_t *w;
const gchar *prop = luaL_checkstring(L, 2);
luakit_token_t token = l_tokenize(prop);
switch(token) {
/* push class methods */
PF_CASE(GET_SPECIAL_DIR, luaH_luakit_get_special_dir)
PF_CASE(SPAWN, luaH_luakit_spawn)
PF_CASE(SPAWN_SYNC, luaH_luakit_spawn_sync)
PF_CASE(GET_SELECTION, luaH_luakit_get_selection)
PF_CASE(SET_SELECTION, luaH_luakit_set_selection)
PF_CASE(EXEC, luaH_exec)
/* push string properties */
PS_CASE(CACHE_DIR, globalconf.cache_dir)
PS_CASE(CONFIG_DIR, globalconf.config_dir)
PS_CASE(DATA_DIR, globalconf.data_dir)
PS_CASE(EXECPATH, globalconf.execpath)
PS_CASE(CONFPATH, globalconf.confpath)
/* push boolean properties */
PB_CASE(VERBOSE, globalconf.verbose)
/* push integer properties */
PI_CASE(WEBKIT_MAJOR_VERSION, webkit_major_version())
PI_CASE(WEBKIT_MINOR_VERSION, webkit_minor_version())
PI_CASE(WEBKIT_MICRO_VERSION, webkit_micro_version())
PI_CASE(WEBKIT_USER_AGENT_MAJOR_VERSION, WEBKIT_USER_AGENT_MAJOR_VERSION)
PI_CASE(WEBKIT_USER_AGENT_MINOR_VERSION, WEBKIT_USER_AGENT_MINOR_VERSION)
case L_TK_WINDOWS:
lua_newtable(L);
for (guint i = 0; i < globalconf.windows->len; i++) {
w = globalconf.windows->pdata[i];
luaH_object_push(L, w->ref);
lua_rawseti(L, -2, i+1);
}
return 1;
case L_TK_INSTALL_PATH:
lua_pushliteral(L, LUAKIT_INSTALL_PATH);
return 1;
case L_TK_VERSION:
lua_pushliteral(L, VERSION);
return 1;
default:
break;
}
return 0;
}
static gint
luaH_entry_index(lua_State *L, luakit_token_t token)
{
widget_t *w = luaH_checkwidget(L, 1);
switch(token)
{
LUAKIT_WIDGET_INDEX_COMMON
/* push class methods */
PF_CASE(APPEND, luaH_entry_append)
PF_CASE(INSERT, luaH_entry_insert)
PF_CASE(SELECT_REGION, luaH_entry_select_region)
/* push integer properties */
PI_CASE(POSITION, gtk_editable_get_position(GTK_EDITABLE(w->widget)))
/* push string properties */
PS_CASE(TEXT, gtk_entry_get_text(GTK_ENTRY(w->widget)))
PS_CASE(FG, g_object_get_data(G_OBJECT(w->widget), "fg"))
PS_CASE(BG, g_object_get_data(G_OBJECT(w->widget), "bg"))
PS_CASE(FONT, g_object_get_data(G_OBJECT(w->widget), "font"))
/* push boolean properties */
PB_CASE(SHOW_FRAME, gtk_entry_get_has_frame(GTK_ENTRY(w->widget)))
default:
break;
}
return 0;
}
static gint
luaH_label_index(lua_State *L, widget_t *w, luakit_token_t token)
{
switch(token) {
LUAKIT_WIDGET_INDEX_COMMON(w)
case L_TK_PADDING:
return luaH_label_get_padding(L, w);
case L_TK_ALIGN:
return luaH_label_get_align(L, w);
/* push string properties */
PS_CASE(FG, g_object_get_data(G_OBJECT(w->widget), "fg"))
PS_CASE(FONT, g_object_get_data(G_OBJECT(w->widget), "font"))
PS_CASE(TEXT, gtk_label_get_label(GTK_LABEL(w->widget)))
/* push boolean properties */
PB_CASE(SELECTABLE, gtk_label_get_selectable(GTK_LABEL(w->widget)))
/* push integer properties */
PI_CASE(WIDTH, gtk_label_get_width_chars(GTK_LABEL(w->widget)))
default:
break;
}
return 0;
}
static gint
luaH_socket_index(lua_State *L, luapdf_token_t token)
{
widget_t *w = luaH_checkwidget(L, 1);
switch(token)
{
LUAPDF_WIDGET_INDEX_COMMON
/* push integer methods */
PI_CASE(ID, (int) gtk_socket_get_id(GTK_SOCKET(w->widget)))
/* push boolean methods */
PB_CASE(PLUGGED, gtk_socket_get_plug_window(GTK_SOCKET(w->widget))!=NULL)
default:
break;
}
return 0;
}
