main.lua

function ProcessAppOverrides(app)
local name, config, item

config=overrides_config[app.name]
if config == nil then config=overrides_config[app.exec] end
if config == nil
then 
  for name,item in pairs(overrides_config)
  do
		if strutil.pmatch(name, app.name) == true
		then
			config=item
		end
  end
end


if config ~= nil 
then
	if strutil.strlen(config.group) > 0 then app.group=config.group end
	if strutil.strlen(config.icon) > 0 then app.icon=config.icon end
	if config.termapp == true then app.termapp=true end
	if config.ignore == true then app.ignore=true end
	if config.query == true then app.query=true end
end

end







function MenuAddGroup(group_name)
-- this function calls itself recursively, so
-- make sure everything is declared as local 
local conf, parent, new_group, id

if strutil.strlen(group_name) ==0 then return nil end

id=string.lower(group_name)
conf=FindGroup(id)

if conf ~=nil and conf.parent ~=nil
then
	parent=MenuAddGroup(conf.parent.name)
else
	parent=menu_config
end

if parent.items[id] == nil 
then 
new_group=NewGroup(group_name) 
--new_group.parent=parent
parent.items[id]=new_group
end

return parent.items[id]
end


function MenuAddItem(menu_name, item)
local group, existing

group=MenuAddGroup(menu_name)
if group ~= nil 
then 
  item.parent=group
	existing = group.items[item.name]
  if existing == nil then group.items[item.name]=item end
end

end


function ProcessImpliedApps(implied_apps)
local toks, item, config


toks=strutil.TOKENIZER(implied_apps, ",")
item=toks:next()
while item ~= nil
do
	config=AppConfigFind(item)
	if config ~= nil and config.group ~=nil then MenuAddItem(config.group, config) end
	item=toks:next()
end

end






function GroupInfoFind(group)
local conf, name 
local icon=nil

conf=FindGroup(group.name)
if conf ~= nil 
then
	if strutil.strlen(conf.name) > 0 then name=conf.name end
	if settings.find_icons == true
	then
		if strutil.strlen(conf.icons) > 0 then conf.icon=IconFindFromList(conf.icons) end
		if conf.icon ~= nil then icon=conf.icon end
	end
end

if name == nil then name=group.name end
if icon == nil
then
	if settings.find_icons == true 
	then 
		icon=IconFindFromList("folder") 
	else
		icon=""
	end
end

return name, icon
end















function OpenOutputFile(Path)
local S

-- don't try to create or rename stdout!
if Path ~= "-" 
then 
	filesys.mkdirPath(Path)
	filesys.rename(Path, Path.."-")
end

S=stream.STREAM(Path, "w")
if S==nil
then
	io.stderr:write( "ERROR: Failed to open output '"..Path.."'\n")
else
	io.stderr:write( "writing to: "..Path.."\n")
end

return(S)
end








function OutputWindowManagerFiles(sorted)
local toks, item

toks=strutil.TOKENIZER(settings.output, ",")
item=toks:next()
while item ~= nil
do
if strutil.strlen(item) > 0
then
		io.stderr:write( "output: " .. item.."\n")
		if item=="blackbox" 
		then
			Blackbox_MenuWrite(sorted, process.getenv("HOME") .. "/.blackbox/menu")
		elseif item=="fluxbox" 
		then
			Blackbox_MenuWrite(sorted, process.getenv("HOME") .. "/.fluxbox/menu")
		elseif item=="openbox"
		then
			Openbox_MenuWrite(sorted, process.getenv("HOME") .. "/.config/openbox/menu.xml")
		elseif item=="icewm" 
		then
			IceWM_MenuWrite(sorted, process.getenv("HOME").."/.icewm/menu")
		elseif item=="jwm" 
		then
			JWM_MenuWrite(sorted, process.getenv("HOME").."/.menu.jwm")
		elseif item=="fvwm" 
		then
			FVWM_MenuWrite(sorted, process.getenv("HOME").."/.fvwm/fvwm.menu")
		elseif item=="pekwm" 
		then
			PekWM_MenuWrite(sorted, process.getenv("HOME").."/.pekwm/menu")
		elseif item=="pwm" 
		then
			PWM_MenuWrite(sorted, process.getenv("HOME").."/.pwm/rootmenu.conf")
		elseif item=="mlvwm" 
		then
			MLVWM_MenuWrite(sorted, process.getenv("HOME").."/.menu.mlvwm")
		elseif item=="twm" or item=="vtwm" or item=="ctwm" or item=="mwm"
		then
			TWM_MenuWrite(sorted, process.getenv("HOME").."/.menu."..item)
		elseif item=="moonwm" 
		then
			XMenu_MenuWrite(sorted, process.getenv("HOME").."/.config/moonwm/favorites.xmenu")
		elseif item=="xmenu" 
		then
			XMenu_MenuWrite(sorted, process.getenv("HOME").."/.xmenu.menu")
		elseif item=="ctrlmenu" 
		then
			CtrlMenu_MenuWrite(sorted, process.getenv("HOME").."/.ctrlmenu.menu")
		elseif item=="stdout:blackbox" or item=="stdout:fluxbox" then Blackbox_MenuWrite(sorted, "-")
		elseif item=="stdout:icewm" then IceWM_MenuWrite(sorted, "-")
		elseif item=="stdout:pekwm" then PekWM_MenuWrite(sorted, "-")
		elseif item=="stdout:jwm" then JWM_MenuWrite(sorted, "-")
		elseif item=="stdout:fvwm" then FVWM_MenuWrite(sorted, "-")
		elseif item=="stdout:twm" then TWM_MenuWrite(sorted, "-")
		elseif item=="stdout:vtwm" then TWM_MenuWrite(sorted, "-")
		elseif item=="stdout:ctwm" then TWM_MenuWrite(sorted, "-")
		elseif item=="stdout:moonwm" then XMenu_MenuWrite(sorted, "-")
		elseif item=="stdout:xmenu" then XMenu_MenuWrite(sorted, "-")
		elseif item=="stdout:ctrlmenu" then CtrlMenu_MenuWrite(sorted, "-")
		end
end

item=toks:next()
end

end




function SortMenuCompare(m1, m2)
if m1.type=="group" and m2.type=="app" then return true end
if m1.type=="app" and m2.type=="group" then return false end

return m1.name < m2.name
end




function SortMenu(menu_item)
local sorted={}
local name, item

if menu_item.type==nil then return menu_item end

sorted={}
for name,item in pairs(menu_item.items)
do
	if item.type ~= nil
	then
		if item.type=="group" 
		then 
			SortMenu(item) 
		end
		table.insert(sorted, item)
	end
end

table.sort(sorted, SortMenuCompare)
menu_item.items=sorted

end







function CollapseGroups(parent)
local name, item, count
local collapsed=false


for name,item in pairs(parent.items)
do
  if item.parent==nil then item.parent=parent end

	if item.type == "group"  
	then
		-- we must postprocess subitems first, because subgroups might be collapsed, adding
		-- items to this group
			count=GroupCountItems(item)
     	if item.parent ~= nil and parent.name ~= "rootmenu" and count < settings.min_size
     	then
   			CopyGroupItems(item, item.parent)
   			item.parent.items[item.name]=nil
   			parent.items[item.name]=nil
				collapsed=true
      end
	end
end

return collapsed
end



function PostProcessItems(parent)
local name, item, misc, more

-- create misc group if needed, else leave as nil
if settings.misc_group > 0 then misc=NewGroup("Misc") end

	more=true
	while more == true do more=CollapseGroups(parent) end

-- we must post process subgroups first, in case they collpase into
-- our group and thus mess up our list of items, causing us to miss some
for name,item in pairs(parent.items)
do
  if item.parent==nil then item.parent=parent end
  item.icon=AppIconFind(item, settings.icon_path)
	if strutil.strlen(item.title) == 0 then item.title=item.name end
	if item.type == "group" then  PostProcessItems(item) end
end

--if we created a misc group, and it has items in it, then add it to the menu
if GroupCountItems(misc) > 0 then menu_config[misc.name]=misc end

end










--[[

'main' starts here ***********************************

]]--


settings.config = process.getenv("HOME") .. "/.config/menubuilder.conf"
settings.config = settings.config .. ":" .. process.getenv("HOME") .. "/.config/menubuilder/*.conf"
settings.config = settings.config .. ":" .. process.getenv("HOME") .. "/.menubuilder.conf"
settings.config = settings.config .. ":/etc/menubuilder.conf"
settings.term="xterm"
settings.output=""
settings.find_icons=true
settings.icon_path=process.getenv("ICON_PATH")
settings.submenu_size=0
settings.misc_group=0
settings.min_size=2

if settings.icon_path==nil 
then 
	settings.icon_path="" 
else
	settings.icon_path=settings.icon_path .. ":"
end

-- don't allow this to be nil, or we can't append to it
if settings.icon_path == nil then settings.icon_path="" end

menu_config=NewGroup("RootMenu")
faves_config=NewGroup("Favorites")
ParseCommandLine(arg)

LoadConfig()
LoadDesktopFiles(process.getenv("HOME") .. "/.local/")
ScanDirectoriesInPath()
IconsLoad(settings.icon_path)
PostProcessItems(menu_config)
SelectFaves(settings.faves)

if settings.output=="" 
then 
	io.stderr:write( "ERROR: no output specified.\n")
else
  SortMenu(menu_config)
	OutputWindowManagerFiles(menu_config)
end