2 * lua.c - Lua configuration management
4 * Copyright © 2008-2009 Julien Danjou <julien@danjou.info>
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.
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.
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.
22 #include "common/util.h"
25 #include <sys/socket.h>
28 #include <sys/types.h>
42 #include "awesome-version-internal.h"
51 #include "selection.h"
52 #include "common/socket.h"
53 #include "common/buffer.h"
55 extern awesome_t globalconf
;
57 extern const struct luaL_reg awesome_hooks_lib
[];
58 extern const struct luaL_reg awesome_dbus_lib
[];
59 extern const struct luaL_reg awesome_keygrabber_lib
[];
60 extern const struct luaL_reg awesome_mousegrabber_lib
[];
61 extern const struct luaL_reg awesome_button_methods
[];
62 extern const struct luaL_reg awesome_button_meta
[];
63 extern const struct luaL_reg awesome_image_methods
[];
64 extern const struct luaL_reg awesome_image_meta
[];
65 extern const struct luaL_reg awesome_mouse_methods
[];
66 extern const struct luaL_reg awesome_mouse_meta
[];
67 extern const struct luaL_reg awesome_screen_methods
[];
68 extern const struct luaL_reg awesome_screen_meta
[];
69 extern const struct luaL_reg awesome_client_methods
[];
70 extern const struct luaL_reg awesome_client_meta
[];
71 extern const struct luaL_reg awesome_tag_methods
[];
72 extern const struct luaL_reg awesome_tag_meta
[];
73 extern const struct luaL_reg awesome_widget_methods
[];
74 extern const struct luaL_reg awesome_widget_meta
[];
75 extern const struct luaL_reg awesome_wibox_methods
[];
76 extern const struct luaL_reg awesome_wibox_meta
[];
77 extern const struct luaL_reg awesome_key_methods
[];
78 extern const struct luaL_reg awesome_key_meta
[];
79 extern const struct luaL_reg awesome_keybinding_methods
[];
81 static struct sockaddr_un
*addr
;
82 static ev_io csio
= { .fd
= -1 };
84 #define XDG_CONFIG_HOME_DEFAULT "/.config"
86 /** Get or set global key bindings.
87 * This binding will be available when you'll press keys on root window.
88 * \param L The Lua VM state.
89 * \return The number of element pushed on stack.
92 * \lparam An array of key bindings objects, or nothing.
93 * \return The array of key bindings objects of this client.
96 luaA_root_keys(lua_State
*L
)
98 if(lua_gettop(L
) == 1)
100 luaA_key_array_set(L
, 1, &globalconf
.keys
);
102 int nscreen
= xcb_setup_roots_length(xcb_get_setup(globalconf
.connection
));
104 for(int phys_screen
= 0; phys_screen
< nscreen
; phys_screen
++)
106 xcb_screen_t
*s
= xutil_screen_get(globalconf
.connection
, phys_screen
);
107 xcb_ungrab_key(globalconf
.connection
, XCB_GRAB_ANY
, s
->root
, XCB_BUTTON_MASK_ANY
);
108 window_grabkeys(s
->root
, &globalconf
.keys
);
112 return luaA_key_array_get(L
, &globalconf
.keys
);
115 /** Get or set global mouse bindings.
116 * This binding will be available when you'll click on root window.
117 * \param L The Lua VM state.
118 * \return The number of element pushed on stack.
121 * \lparam An array of mouse button bindings objects, or nothing.
122 * \return The array of mouse button bindings objects.
125 luaA_root_buttons(lua_State
*L
)
127 if(lua_gettop(L
) == 1)
128 luaA_button_array_set(L
, 1, &globalconf
.buttons
);
130 return luaA_button_array_get(L
, &globalconf
.buttons
);
133 /** Get or set global mouse bindings (DEPRECATED).
134 * This binding will be available when you'll click on root window.
135 * \param L The Lua VM state.
136 * \return The number of element pushed on stack.
139 * \lparam An array of mouse button bindings objects, or nothing.
140 * \return The array of mouse button bindings objects.
143 luaA_buttons(lua_State
*L
)
145 luaA_deprecate(L
, "root.buttons");
146 return luaA_root_buttons(L
);
150 * \param L The Lua VM state.
151 * \return The number of elements pushed on stack.
154 luaA_quit(lua_State
*L
__attribute__ ((unused
)))
156 ev_unloop(globalconf
.loop
, 1);
160 /** Execute another application, probably a window manager, to replace
162 * \param L The Lua VM state.
163 * \return The number of elements pushed on stack.
165 * \lparam The command line to execute.
168 luaA_exec(lua_State
*L
)
170 const char *cmd
= luaL_checkstring(L
, 1);
181 luaA_restart(lua_State
*L
__attribute__ ((unused
)))
188 luaA_openlib(lua_State
*L
, const char *name
,
189 const struct luaL_reg methods
[],
190 const struct luaL_reg meta
[])
192 luaL_newmetatable(L
, name
); /* 1 */
193 lua_pushvalue(L
, -1); /* dup metatable 2 */
194 lua_setfield(L
, -2, "__index"); /* metatable.__index = metatable 1 */
196 luaL_register(L
, NULL
, meta
); /* 1 */
197 luaL_register(L
, name
, methods
); /* 2 */
198 lua_pushvalue(L
, -1); /* dup self as metatable 3 */
199 lua_setmetatable(L
, -2); /* set self as metatable 2 */
203 /** UTF-8 aware string length computing.
204 * \param L The Lua VM state.
205 * \return The number of elements pushed on stack.
208 luaA_mbstrlen(lua_State
*L
)
210 const char *cmd
= luaL_checkstring(L
, 1);
211 lua_pushnumber(L
, mbstowcs(NULL
, NONULL(cmd
), 0));
215 /** Overload standard Lua next function to use __next key on metatable.
216 * \param L The Lua VM state.
217 * \param The number of elements pushed on stack.
220 luaAe_next(lua_State
*L
)
222 if(luaL_getmetafield(L
, 1, "__next"))
225 lua_call(L
, lua_gettop(L
) - 1, LUA_MULTRET
);
226 return lua_gettop(L
);
229 luaL_checktype(L
, 1, LUA_TTABLE
);
237 /** Overload lua_next() function by using __next metatable field
238 * to get next elements.
239 * \param L The Lua VM stack.
240 * \param idx The index number of elements in stack.
241 * \return 1 if more elements to come, 0 otherwise.
244 luaA_next(lua_State
*L
, int idx
)
246 if(luaL_getmetafield(L
, idx
, "__next"))
248 /* if idx is relative, reduce it since we got __next */
250 /* copy table and then move key */
251 lua_pushvalue(L
, idx
);
252 lua_pushvalue(L
, -3);
254 lua_pcall(L
, 2, 2, 0);
255 /* next returned nil, it's the end */
264 else if(lua_istable(L
, idx
))
265 return lua_next(L
, idx
);
271 /** Generic pairs function.
272 * \param L The Lua VM state.
273 * \return The number of elements pushed on stack.
276 luaA_generic_pairs(lua_State
*L
)
278 lua_pushvalue(L
, lua_upvalueindex(1)); /* return generator, */
279 lua_pushvalue(L
, 1); /* state, */
280 lua_pushnil(L
); /* and initial value */
284 /** Overload standard pairs function to use __pairs field of metatables.
285 * \param L The Lua VM state.
286 * \return The number of elements pushed on stack.
289 luaAe_pairs(lua_State
*L
)
291 if(luaL_getmetafield(L
, 1, "__pairs"))
294 lua_call(L
, lua_gettop(L
) - 1, LUA_MULTRET
);
295 return lua_gettop(L
);
298 luaL_checktype(L
, 1, LUA_TTABLE
);
299 return luaA_generic_pairs(L
);
303 luaA_ipairs_aux(lua_State
*L
)
305 int i
= luaL_checkint(L
, 2) + 1;
306 luaL_checktype(L
, 1, LUA_TTABLE
);
307 lua_pushinteger(L
, i
);
308 lua_rawgeti(L
, 1, i
);
309 return (lua_isnil(L
, -1)) ? 0 : 2;
312 /** Overload standard ipairs function to use __ipairs field of metatables.
313 * \param L The Lua VM state.
314 * \return The number of elements pushed on stack.
317 luaAe_ipairs(lua_State
*L
)
319 if(luaL_getmetafield(L
, 1, "__ipairs"))
322 lua_call(L
, lua_gettop(L
) - 1, LUA_MULTRET
);
323 return lua_gettop(L
);
326 luaL_checktype(L
, 1, LUA_TTABLE
);
327 lua_pushvalue(L
, lua_upvalueindex(1));
329 lua_pushinteger(L
, 0); /* and initial value */
333 /** Enhanced type() function which recognize awesome objects.
334 * \param L The Lua VM state.
335 * \return The number of arguments pushed on the stack.
338 luaAe_type(lua_State
*L
)
341 #define CHECK_TYPE(type) \
343 if(luaA_toudata(L, 1, #type)) \
345 lua_pushliteral(L, #type); \
357 lua_pushstring(L
, luaL_typename(L
, 1));
361 /** Replace various standards Lua functions with our own.
362 * \param L The Lua VM state.
365 luaA_fixups(lua_State
*L
)
367 /* export string.wlen */
368 lua_getglobal(L
, "string");
369 lua_pushcfunction(L
, luaA_mbstrlen
);
370 lua_setfield(L
, -2, "wlen");
373 lua_pushliteral(L
, "next");
374 lua_pushcfunction(L
, luaAe_next
);
375 lua_settable(L
, LUA_GLOBALSINDEX
);
377 lua_pushliteral(L
, "pairs");
378 lua_pushcfunction(L
, luaAe_next
);
379 lua_pushcclosure(L
, luaAe_pairs
, 1); /* pairs get next as upvalue */
380 lua_settable(L
, LUA_GLOBALSINDEX
);
382 lua_pushliteral(L
, "ipairs");
383 lua_pushcfunction(L
, luaA_ipairs_aux
);
384 lua_pushcclosure(L
, luaAe_ipairs
, 1);
385 lua_settable(L
, LUA_GLOBALSINDEX
);
387 lua_pushliteral(L
, "type");
388 lua_pushcfunction(L
, luaAe_type
);
389 lua_settable(L
, LUA_GLOBALSINDEX
);
391 lua_pushliteral(L
, "selection");
392 lua_pushcfunction(L
, luaA_selection_get
);
393 lua_settable(L
, LUA_GLOBALSINDEX
);
396 /** __next function for wtable objects.
397 * \param L The Lua VM state.
398 * \return The number of elements pushed on stack.
401 luaA_wtable_next(lua_State
*L
)
403 /* upvalue 1 is content table */
404 if(lua_next(L
, lua_upvalueindex(1)))
410 /** __ipairs function for wtable objects.
411 * \param L The Lua VM state.
412 * \return The number of elements pushed on stack.
415 luaA_wtable_ipairs(lua_State
*L
)
417 /* push ipairs_aux */
418 lua_pushvalue(L
, lua_upvalueindex(2));
419 /* push content table */
420 lua_pushvalue(L
, lua_upvalueindex(1));
421 lua_pushinteger(L
, 0); /* and initial value */
425 /** Index function of wtable objects.
426 * \param L The Lua VM state.
427 * \return The number of elements pushed on stack.
430 luaA_wtable_index(lua_State
*L
)
436 /* check for size, waiting lua 5.2 and __len on tables */
437 if((buf
= lua_tolstring(L
, -1, &len
)))
438 if(a_tokenize(buf
, len
) == A_TK_LEN
)
440 lua_pushnumber(L
, lua_objlen(L
, lua_upvalueindex(1)));
445 /* upvalue 1 is content table */
446 lua_rawget(L
, lua_upvalueindex(1));
450 /** Newndex function of wtable objects.
451 * \param L The Lua VM state.
452 * \return The number of elements pushed on stack.
455 luaA_wtable_newindex(lua_State
*L
)
457 bool invalid
= false;
459 /* push key on top */
461 /* get current key value in content table */
462 lua_rawget(L
, lua_upvalueindex(1));
463 /* if value is a widget, notify change */
464 if(lua_istable(L
, -1) || luaA_toudata(L
, -1, "widget"))
467 lua_pop(L
, 1); /* remove value */
469 /* if new value is a widget or a table */
470 if(lua_istable(L
, 3))
472 luaA_table2wtable(L
);
475 else if(!invalid
&& luaA_toudata(L
, 3, "widget"))
478 /* upvalue 1 is content table */
479 lua_rawset(L
, lua_upvalueindex(1));
482 luaA_wibox_invalidate_byitem(L
, lua_topointer(L
, 1));
487 /** Convert the top element of the stack to a proxied wtable.
488 * \param L The Lua VM state.
491 luaA_table2wtable(lua_State
*L
)
493 if(!lua_istable(L
, -1))
496 lua_newtable(L
); /* create *real* content table */
497 lua_newtable(L
); /* metatable */
498 lua_pushvalue(L
, -2); /* copy content table */
499 lua_pushcfunction(L
, luaA_ipairs_aux
); /* push ipairs aux */
500 lua_pushcclosure(L
, luaA_wtable_ipairs
, 2);
501 lua_pushvalue(L
, -3); /* copy content table */
502 lua_pushcclosure(L
, luaA_wtable_next
, 1); /* __next has the content table as upvalue */
503 lua_pushvalue(L
, -4); /* copy content table */
504 lua_pushcclosure(L
, luaA_wtable_index
, 1); /* __index has the content table as upvalue */
505 lua_pushvalue(L
, -5); /* copy content table */
506 lua_pushcclosure(L
, luaA_wtable_newindex
, 1); /* __newindex has the content table as upvalue */
507 /* set metatable field with just pushed closure */
508 lua_setfield(L
, -5, "__newindex");
509 lua_setfield(L
, -4, "__index");
510 lua_setfield(L
, -3, "__next");
511 lua_setfield(L
, -2, "__ipairs");
512 /* set metatable impossible to touch */
513 lua_pushliteral(L
, "wtable");
514 lua_setfield(L
, -2, "__metatable");
515 /* set new metatable on original table */
516 lua_setmetatable(L
, -3);
520 /* go through original table */
521 while(lua_next(L
, -3))
523 /* if convert value to wtable */
524 luaA_table2wtable(L
);
526 lua_pushvalue(L
, -2);
527 /* move key before value */
529 /* set same value in content table */
532 lua_pushvalue(L
, -1);
533 /* push the new value :-> */
535 /* set orig[k] = nil */
538 /* remove content table */
542 /** Look for an item: table, function, etc.
543 * \param L The Lua VM state.
544 * \param item The pointer item.
547 luaA_hasitem(lua_State
*L
, const void *item
)
550 while(luaA_next(L
, -2))
552 if(lua_topointer(L
, -1) == item
)
554 /* remove value and key */
558 if(lua_istable(L
, -1))
559 if(luaA_hasitem(L
, item
))
561 /* remove key and value */
571 /** Check if a table is a loop. When using table as direct acyclic digram,
573 * \param L The Lua VM state.
574 * \param idx The index of the table in the stack
575 * \return True if the table loops.
578 luaA_isloop(lua_State
*L
, int idx
)
580 if(lua_istable(L
, idx
))
582 lua_pushvalue(L
, idx
); /* push table on top */
583 if(luaA_hasitem(L
, lua_topointer(L
, -1)))
585 lua_pop(L
, 1); /* remove pushed table */
589 while(luaA_next(L
, -2))
591 /* check for recursivity */
592 if(luaA_isloop(L
, -1))
594 lua_pop(L
, 2); /* remove key and value */
597 lua_pop(L
, 1); /* remove value */
599 lua_pop(L
, 1); /* remove pushed table */
605 * This table can use safely object as key.
606 * \param L The Lua VM state.
607 * \return The number of elements pushed on stack.
610 luaA_otable_index(lua_State
*L
)
614 if((obj
= lua_touserdata(L
, 2)))
618 while(lua_next(L
, 1))
620 /* check the key against the key if the key is a userdata,
621 * otherwise check it again the value. */
622 if((v
= lua_touserdata(L
, -2))
626 else if((v
= lua_touserdata(L
, -1))
633 /* removes 'value'; keeps 'key' for next iteration */
644 * This table can use safely object as key.
645 * \param L The Lua VM state.
646 * \return The number of elements pushed on stack.
649 luaA_otable_newindex(lua_State
*L
)
653 if((obj
= lua_touserdata(L
, 2)))
657 while(lua_next(L
, 1))
659 if((v
= lua_touserdata(L
, -2))
664 /* push new value on top */
666 /* set in table key = value */
670 /* removes 'value'; keeps 'key' for next iteration */
681 * This function is multi-head (Zaphod) aware and will set display to
682 * the right screen according to mouse position.
683 * \param L The Lua VM state.
684 * \return The number of elements pushed on stack
686 * \lparam The command to launch.
687 * \lparam The optional screen number to spawn the command on.
690 luaA_spawn(lua_State
*L
)
692 char *host
, newdisplay
[128];
694 int screen
= 0, screenp
, displayp
;
696 if(lua_gettop(L
) == 2)
698 screen
= luaL_checknumber(L
, 2) - 1;
699 luaA_checkscreen(screen
);
702 cmd
= luaL_checkstring(L
, 1);
704 if(!globalconf
.xinerama_is_active
)
706 xcb_parse_display(NULL
, &host
, &displayp
, &screenp
);
707 snprintf(newdisplay
, sizeof(newdisplay
), "%s:%d.%d", host
, displayp
, screen
);
708 setenv("DISPLAY", newdisplay
, 1);
712 /* The double-fork construct avoids zombie processes and keeps the code
713 * clean from stupid signal handlers. */
718 if(globalconf
.connection
)
719 xcb_disconnect(globalconf
.connection
);
722 warn("execl '%s' failed: %s\n", cmd
, strerror(errno
));
731 /** awesome global table.
732 * \param L The Lua VM state.
733 * \return The number of elements pushed on stack.
735 * \lfield font The default font.
736 * \lfield conffile The configuration file which has been loaded.
739 luaA_awesome_index(lua_State
*L
)
741 if(luaA_usemetatable(L
, 1, 2))
745 const char *buf
= luaL_checklstring(L
, 2, &len
);
747 switch(a_tokenize(buf
, len
))
751 char *font
= pango_font_description_to_string(globalconf
.font
->desc
);
752 lua_pushstring(L
, font
);
757 lua_pushstring(L
, globalconf
.conffile
);
760 luaA_pushcolor(L
, &globalconf
.colors
.fg
);
763 luaA_pushcolor(L
, &globalconf
.colors
.bg
);
772 /** Newindex function for the awesome global table.
773 * \param L The Lua VM state.
774 * \return The number of elements pushed on stack.
777 luaA_awesome_newindex(lua_State
*L
)
779 if(luaA_usemetatable(L
, 1, 2))
783 const char *buf
= luaL_checklstring(L
, 2, &len
);
785 switch(a_tokenize(buf
, len
))
789 const char *newfont
= luaL_checkstring(L
, 3);
790 draw_font_delete(&globalconf
.font
);
791 globalconf
.font
= draw_font_new(newfont
);
795 if((buf
= luaL_checklstring(L
, 3, &len
)))
796 xcolor_init_reply(xcolor_init_unchecked(&globalconf
.colors
.fg
, buf
, len
));
799 if((buf
= luaL_checklstring(L
, 3, &len
)))
800 xcolor_init_reply(xcolor_init_unchecked(&globalconf
.colors
.bg
, buf
, len
));
809 /** Initialize the Lua VM
816 static const struct luaL_reg otable_methods
[] =
818 { "__call", luaA_otable_new
},
821 static const struct luaL_reg otable_meta
[] =
823 { "__index", luaA_otable_index
},
824 { "__newindex", luaA_otable_newindex
},
827 static const struct luaL_reg awesome_lib
[] =
829 { "quit", luaA_quit
},
830 { "exec", luaA_exec
},
831 { "spawn", luaA_spawn
},
832 { "restart", luaA_restart
},
833 { "buttons", luaA_buttons
},
834 { "__index", luaA_awesome_index
},
835 { "__newindex", luaA_awesome_newindex
},
838 static const struct luaL_reg root_lib
[] =
840 { "buttons", luaA_root_buttons
},
841 { "keys", luaA_root_keys
},
845 L
= globalconf
.L
= luaL_newstate();
851 /* Export awesome lib */
852 luaA_openlib(L
, "awesome", awesome_lib
, awesome_lib
);
854 /* Export root lib */
855 luaA_openlib(L
, "root", root_lib
, root_lib
);
857 /* Export hooks lib */
858 luaL_register(L
, "hooks", awesome_hooks_lib
);
860 /* Export D-Bus lib */
861 luaL_register(L
, "dbus", awesome_dbus_lib
);
863 /* Export keygrabber lib */
864 luaL_register(L
, "keygrabber", awesome_keygrabber_lib
);
866 /* Export mousegrabber lib */
867 luaL_register(L
, "mousegrabber", awesome_mousegrabber_lib
);
869 /* Export otable lib */
870 luaA_openlib(L
, "otable", otable_methods
, otable_meta
);
873 luaA_openlib(L
, "screen", awesome_screen_methods
, awesome_screen_meta
);
876 luaA_openlib(L
, "mouse", awesome_mouse_methods
, awesome_mouse_meta
);
879 luaA_openlib(L
, "button", awesome_button_methods
, awesome_button_meta
);
882 luaA_openlib(L
, "image", awesome_image_methods
, awesome_image_meta
);
885 luaA_openlib(L
, "tag", awesome_tag_methods
, awesome_tag_meta
);
888 luaA_openlib(L
, "wibox", awesome_wibox_methods
, awesome_wibox_meta
);
891 luaA_openlib(L
, "widget", awesome_widget_methods
, awesome_widget_meta
);
894 luaA_openlib(L
, "client", awesome_client_methods
, awesome_client_meta
);
897 luaA_openlib(L
, "key", awesome_key_methods
, awesome_key_meta
);
898 luaA_openlib(L
, "keybinding", awesome_keybinding_methods
, awesome_key_meta
);
900 lua_pushliteral(L
, "AWESOME_VERSION");
901 lua_pushstring(L
, AWESOME_VERSION
);
902 lua_settable(L
, LUA_GLOBALSINDEX
);
904 lua_pushliteral(L
, "AWESOME_RELEASE");
905 lua_pushstring(L
, AWESOME_RELEASE
);
906 lua_settable(L
, LUA_GLOBALSINDEX
);
909 globalconf
.hooks
.manage
= LUA_REFNIL
;
910 globalconf
.hooks
.unmanage
= LUA_REFNIL
;
911 globalconf
.hooks
.focus
= LUA_REFNIL
;
912 globalconf
.hooks
.unfocus
= LUA_REFNIL
;
913 globalconf
.hooks
.mouse_enter
= LUA_REFNIL
;
914 globalconf
.hooks
.mouse_leave
= LUA_REFNIL
;
915 globalconf
.hooks
.arrange
= LUA_REFNIL
;
916 globalconf
.hooks
.clients
= LUA_REFNIL
;
917 globalconf
.hooks
.tags
= LUA_REFNIL
;
918 globalconf
.hooks
.tagged
= LUA_REFNIL
;
919 globalconf
.hooks
.property
= LUA_REFNIL
;
920 globalconf
.hooks
.timer
= LUA_REFNIL
;
922 globalconf
.hooks
.dbus
= LUA_REFNIL
;
925 /* add Lua lib path (/usr/share/awesome/lib by default) */
926 luaA_dostring(L
, "package.path = package.path .. \";" AWESOME_LUA_LIB_PATH
"/?.lua\"");
927 luaA_dostring(L
, "package.path = package.path .. \";" AWESOME_LUA_LIB_PATH
"/?/init.lua\"");
929 /* add XDG_CONFIG_DIR (/etc/xdg/awesome by default) as include path */
930 luaA_dostring(L
, "package.path = package.path .. \";" XDG_CONFIG_DIR
"/awesome/?.lua\"");
931 luaA_dostring(L
, "package.path = package.path .. \";" XDG_CONFIG_DIR
"/awesome/?/init.lua\"");
933 /* add either XDG_CONFIG_HOME/awesome or HOME/.config/awesome to path */
935 if((dir
= getenv("XDG_CONFIG_HOME")))
938 a_asprintf(&path
, "package.path = package.path .. \";%s/awesome/?.lua;%s/awesome/?/init.lua\"", dir
, dir
);
939 luaA_dostring(globalconf
.L
, path
);
944 char *path
, *homedir
= getenv("HOME");
946 "package.path = package.path .. \";%s" XDG_CONFIG_HOME_DEFAULT
"/awesome/?.lua;%s" XDG_CONFIG_HOME_DEFAULT
"/awesome/?/init.lua\"",
948 luaA_dostring(globalconf
.L
, path
);
952 /* add XDG_CONFIG_DIRS to include paths */
953 char *xdg_config_dirs
= getenv("XDG_CONFIG_DIRS");
956 if((len
= a_strlen(xdg_config_dirs
)))
958 char **buf
, **xdg_files
= a_strsplit(xdg_config_dirs
, len
, ':');
960 for(buf
= xdg_files
; *buf
; buf
++)
963 a_asprintf(&confpath
, "package.path = package.path .. \";%s/awesome/?.lua;%s/awesome/?/init.lua\"",
965 luaA_dostring(globalconf
.L
, confpath
);
969 for(buf
= xdg_files
; *buf
; buf
++)
971 p_delete(&xdg_files
);
975 #define AWESOME_CONFIG_FILE "/awesome/rc.lua"
978 luaA_loadrc(const char *confpath
, bool run
)
982 if(!luaL_loadfile(globalconf
.L
, confpath
))
986 if(lua_pcall(globalconf
.L
, 0, LUA_MULTRET
, 0))
987 fprintf(stderr
, "%s\n", lua_tostring(globalconf
.L
, -1));
990 globalconf
.conffile
= a_strdup(confpath
);
995 lua_pop(globalconf
.L
, 1);
999 fprintf(stderr
, "%s\n", lua_tostring(globalconf
.L
, -1));
1004 /** Load a configuration file.
1005 * \param confpatharg The configuration file to load.
1006 * \param run Run the configuration file.
1009 luaA_parserc(const char *confpatharg
, bool run
)
1012 const char *confdir
, *xdg_config_dirs
;
1013 char *confpath
= NULL
, **xdg_files
= NULL
, **buf
;
1017 /* try to load, return if it's ok */
1018 if(luaA_loadrc(confpatharg
, run
))
1024 if((confdir
= getenv("XDG_CONFIG_HOME")))
1025 a_asprintf(&confpath
, "%s" AWESOME_CONFIG_FILE
, confdir
);
1027 a_asprintf(&confpath
, "%s" XDG_CONFIG_HOME_DEFAULT AWESOME_CONFIG_FILE
, getenv("HOME"));
1029 /* try to run XDG_CONFIG_HOME/awesome/rc.lua */
1030 if(luaA_loadrc(confpath
, run
))
1036 p_delete(&confpath
);
1038 xdg_config_dirs
= getenv("XDG_CONFIG_DIRS");
1040 if(!(len
= a_strlen(xdg_config_dirs
)))
1042 xdg_config_dirs
= XDG_CONFIG_DIR
;
1043 len
= sizeof(XDG_CONFIG_DIR
) - 1;
1046 xdg_files
= a_strsplit(xdg_config_dirs
, len
, ':');
1048 for(buf
= xdg_files
; *buf
&& !ret
; buf
++)
1050 a_asprintf(&confpath
, "%s" AWESOME_CONFIG_FILE
, *buf
);
1051 if(luaA_loadrc(confpath
, run
))
1056 p_delete(&confpath
);
1061 p_delete(&confpath
);
1065 for(buf
= xdg_files
; *buf
; buf
++)
1067 p_delete(&xdg_files
);
1070 /* Assure there's at least one tag */
1071 for(screen
= 0; screen
< globalconf
.nscreen
; screen
++)
1072 if(!globalconf
.screens
[screen
].tags
.len
)
1073 tag_append_to_screen(tag_new("default", sizeof("default") - 1),
1074 &globalconf
.screens
[screen
]);
1078 /** Parse a command.
1079 * \param cmd The buffer to parse.
1080 * \return the number of elements pushed on the stack by the last statement in cmd.
1081 * If there's an error, the message is pushed onto the stack and this returns 1.
1084 luaA_docmd(const char *cmd
)
1087 int newtop
, oldtop
= lua_gettop(globalconf
.L
);
1089 while((p
= strchr(cmd
, '\n')))
1091 newtop
= lua_gettop(globalconf
.L
);
1092 lua_pop(globalconf
.L
, newtop
- oldtop
);
1096 if (luaL_dostring(globalconf
.L
, cmd
))
1098 warn("error executing Lua code: %s", lua_tostring(globalconf
.L
, -1));
1103 return lua_gettop(globalconf
.L
) - oldtop
;
1106 /** Pushes a Lua array containing the top n elements of the stack.
1107 * \param n The number of elements to put in the array.
1113 lua_createtable(globalconf
.L
, n
, 0);
1114 lua_insert(globalconf
.L
, -n
- 1);
1116 for (i
= n
; i
> 0; i
--)
1117 lua_rawseti(globalconf
.L
, -i
- 1, i
);
1120 /** Maps the top n elements of the stack to the result of
1121 * applying a function to that element.
1122 * \param n The number of elements to map.
1124 * \lparam The function to map the elements by. This should be
1125 * at position -(n + 1).
1131 for (i
= 0; i
< n
; i
++)
1133 lua_pushvalue(globalconf
.L
, -n
- 1); /* copy of the function */
1134 lua_pushvalue(globalconf
.L
, -n
- 1); /* value to map */
1135 lua_pcall(globalconf
.L
, 1, 1, 0); /* call function */
1136 lua_remove(globalconf
.L
, -n
- 1); /* remove old value */
1138 lua_remove(globalconf
.L
, -n
- 1); /* remove function */
1141 static void luaA_conn_cleanup(EV_P_ ev_io
*w
)
1143 ev_ref(EV_DEFAULT_UC
);
1144 ev_io_stop(EV_DEFAULT_UC_ w
);
1146 warn("error closing UNIX domain socket: %s", strerror(errno
));
1151 luaA_cb(EV_P_ ev_io
*w
, int revents
)
1158 switch(r
= recv(w
->fd
, buf
, sizeof(buf
)-1, MSG_TRUNC
))
1161 warn("error reading UNIX domain socket: %s", strerror(errno
));
1162 case 0: /* 0 bytes are only transferred when the connection is closed */
1163 luaA_conn_cleanup(EV_DEFAULT_UC_ w
);
1166 if(r
>= ssizeof(buf
))
1169 lua_getglobal(globalconf
.L
, "table");
1170 lua_getfield(globalconf
.L
, -1, "concat");
1171 lua_remove(globalconf
.L
, -2); /* remove table */
1173 lua_getglobal(globalconf
.L
, "tostring");
1174 els
= luaA_docmd(buf
);
1175 luaA_map(els
); /* map results to strings */
1176 luaA_array(els
); /* put strings in an array */
1178 lua_pushstring(globalconf
.L
, "\t");
1179 lua_pcall(globalconf
.L
, 2, 1, 0); /* concatenate results with tabs */
1181 s
= lua_tolstring(globalconf
.L
, -1, &len
);
1183 /* ignore ENOENT because the client may not read */
1184 if (send(w
->fd
, s
, len
, MSG_DONTWAIT
) == -1)
1191 warn("can't send back to client via domain socket: %s", strerror(errno
));
1195 lua_pop(globalconf
.L
, 1); /* pop the string */
1197 awesome_refresh(globalconf
.connection
);
1202 luaA_conn_cb(EV_P_ ev_io
*w
, int revents
)
1204 ev_io
*csio_conn
= p_new(ev_io
, 1);
1205 int csfd
= accept(w
->fd
, NULL
, NULL
);
1207 ev_io_init(csio_conn
, &luaA_cb
, csfd
, EV_READ
);
1208 ev_io_start(EV_DEFAULT_UC_ csio_conn
);
1209 ev_unref(EV_DEFAULT_UC
);
1215 int csfd
= socket_getclient();
1217 if (csfd
< 0 || fcntl(csfd
, F_SETFD
, FD_CLOEXEC
) == -1)
1220 addr
= socket_getaddr(getenv("DISPLAY"));
1222 /* Needed for some OSes like Solaris */
1224 #define SUN_LEN(ptr) ((size_t) (((struct sockaddr_un *) 0)->sun_path) + strlen ((ptr)->sun_path))
1227 if(bind(csfd
, (const struct sockaddr
*) addr
, SUN_LEN(addr
)))
1229 if(errno
== EADDRINUSE
)
1231 if(unlink(addr
->sun_path
))
1232 warn("error unlinking existing file: %s", strerror(errno
));
1233 if(bind(csfd
, (const struct sockaddr
*) addr
, SUN_LEN(addr
)))
1234 return warn("error binding UNIX domain socket: %s", strerror(errno
));
1237 return warn("error binding UNIX domain socket: %s", strerror(errno
));
1241 ev_io_init(&csio
, &luaA_conn_cb
, csfd
, EV_READ
);
1242 ev_io_start(EV_DEFAULT_UC_
&csio
);
1243 ev_unref(EV_DEFAULT_UC
);
1247 luaA_cs_cleanup(void)
1251 ev_ref(EV_DEFAULT_UC
);
1252 ev_io_stop(EV_DEFAULT_UC_
&csio
);
1254 warn("error closing UNIX domain socket: %s", strerror(errno
));
1255 if(unlink(addr
->sun_path
))
1256 warn("error unlinking UNIX domain socket: %s", strerror(errno
));
1262 luaA_on_timer(EV_P_ ev_timer
*w
, int revents
)
1264 if(globalconf
.hooks
.timer
!= LUA_REFNIL
)
1265 luaA_dofunction(globalconf
.L
, globalconf
.hooks
.timer
, 0, 0);
1266 awesome_refresh(globalconf
.connection
);
1269 /** Push a color as a string onto the stack
1270 * \param L The Lua VM state.
1271 * \param c The color to push.
1272 * \return The number of elements pushed on stack.
1275 luaA_pushcolor(lua_State
*L
, const xcolor_t
*c
)
1277 uint8_t r
= (unsigned)c
->red
* 0xff / 0xffff;
1278 uint8_t g
= (unsigned)c
->green
* 0xff / 0xffff;
1279 uint8_t b
= (unsigned)c
->blue
* 0xff / 0xffff;
1280 uint8_t a
= (unsigned)c
->alpha
* 0xff / 0xffff;
1283 /* do not print alpha if it's full */
1285 len
= snprintf(s
, sizeof(s
), "#%02x%02x%02x", r
, g
, b
);
1287 len
= snprintf(s
, sizeof(s
), "#%02x%02x%02x%02x", r
, g
, b
, a
);
1288 lua_pushlstring(L
, s
, len
);