desktop_files.lua

--[[
--  DESKTOP FILES  ***************************************
]]--

function AppChooseGroup(name, groups)
local str, group, first, config
local toks

config=AppConfigFind(name)
if config ~= nil 
then
	if strutil.strlen(config.group) > 0 then return config.group end
end

if groups==nil then return nil end

toks=strutil.TOKENIZER(groups, ";")
str=toks:next()
while str ~= nil
do
  group=FindGroup(str)
	if group ~= nil 
  then 
    if group.ignore == false then return str end
  else
		if first ~= nil then first = str end
  end

str=toks:next()
end

if first ~= nil
then
group=NewGroup(first)
return group.name
end

return nil
end





function LoadDesktopFile(path)
local S, str, toks, invoke, exec, run_dir, config, app, categories

S=stream.STREAM(path, "r")
if S ~= nil
then
	app=NewApp("desktop", "", "", "")
	str=S:readln()

	while str ~= nil
	do
	toks=strutil.TOKENIZER(strutil.stripTrailingWhitespace(str), "=")
	key=toks:next()
	value=strutil.stripQuotes(toks:remaining())

	strutil.trim(key)
	strutil.trim(value)
	if key=="Name" 
	then
	app.name=value
	app.title=value
	elseif key=="Icon" then app.icons=value
	elseif key=="Path" then run_dir=value
	elseif key=="Exec" then exec=value
	elseif key=="Categories" then categories=value
	end

	str=S:readln()
	end
	S:close()


	if strutil.strlen(exec) < 1 then return end


	--desktop files can specify a 'filename' argument using %f. As we are building menus for window managers
	--that don't understand this, we pass an empty string for this value to get rid of it
	app.exec=string.gsub(exec, "%%f","")
	
	app.group=AppChooseGroup(app.name, categories)

	--once both app.name, app.group and app.exec are sorted, we can check overrides	
	ProcessAppOverrides(app)

	--if app has ignore set, then do nothing
  app=AppConfigAdd(app)
	if app.ignore == true then return end

	if strutil.strlen(run_dir) > 0
	then
		app.invoke="cd '" .. run_dir .. "'; " .. app.exec
	else
		app.invoke=app.exec
	end

	MenuAddItem(app.group, app)

end

end



function LoadDesktopFiles(path)
local files, item, str

str=path.."/share/applications/*.desktop"
files=filesys.GLOB(str)
item=files:next()
while item ~= nil
do
LoadDesktopFile(item)
item=files:next()
end

end