From c3984569c06dc3c2890516e95adc38dcab9ec89a Mon Sep 17 00:00:00 2001
From: sapier <Sapier at GMX dot net>
Date: Fri, 18 Apr 2014 15:39:15 +0200
Subject: Add formspec toolkit and refactor mainmenu to use it Fix crash on
 using cursor keys in client menu without selected server Add support for non
 fixed size tabviews

---
 builtin/mainmenu/modstore.lua | 615 ------------------------------------------
 1 file changed, 615 deletions(-)
 delete mode 100644 builtin/mainmenu/modstore.lua

(limited to 'builtin/mainmenu/modstore.lua')

diff --git a/builtin/mainmenu/modstore.lua b/builtin/mainmenu/modstore.lua
deleted file mode 100644
index ef7fd0165..000000000
--- a/builtin/mainmenu/modstore.lua
+++ /dev/null
@@ -1,615 +0,0 @@
---Minetest
---Copyright (C) 2013 sapier
---
---This program is free software; you can redistribute it and/or modify
---it under the terms of the GNU Lesser General Public License as published by
---the Free Software Foundation; either version 2.1 of the License, or
---(at your option) any later version.
---
---This program is distributed in the hope that it will be useful,
---but WITHOUT ANY WARRANTY; without even the implied warranty of
---MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
---GNU Lesser General Public License for more details.
---
---You should have received a copy of the GNU Lesser General Public License along
---with this program; if not, write to the Free Software Foundation, Inc.,
---51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-
---------------------------------------------------------------------------------
-
---modstore implementation
-modstore = {}
-
---------------------------------------------------------------------------------
--- @function [parent=#modstore] init
-function modstore.init()
-	modstore.tabnames = {}
-
-	table.insert(modstore.tabnames,"dialog_modstore_unsorted")
-	table.insert(modstore.tabnames,"dialog_modstore_search")
-
-	modstore.modsperpage = 5
-
-	modstore.basetexturedir = engine.get_texturepath() .. DIR_DELIM .. "base" ..
-						DIR_DELIM .. "pack" .. DIR_DELIM
-
-	modstore.lastmodtitle = ""
-	modstore.last_search = ""
-	
-	modstore.searchlist = filterlist.create(
-		function()
-			if modstore.modlist_unsorted ~= nil and
-				modstore.modlist_unsorted.data ~= nil then
-				return modstore.modlist_unsorted.data
-			end
-			return {}
-		end,
-		function(element,modid)
-			if element.id == modid then
-				return true
-			end
-			return false
-		end, --compare fct
-		nil, --uid match fct
-		function(element,substring)
-			if substring == nil or
-				substring == "" then
-				return false
-			end
-			substring = substring:upper()
-			
-			if element.title ~= nil and
-				element.title:upper():find(substring) ~= nil then
-				return true
-			end
-			
-			if element.details ~= nil and
-				element.details.author ~= nil and
-				element.details.author:upper():find(substring) ~= nil then
-				return true
-			end
-			
-			if element.details ~= nil and
-				element.details.description ~= nil and
-				element.details.description:upper():find(substring) ~= nil then
-				return true
-			end
-			return false
-		end --filter fct
-		)
-
-	modstore.current_list = nil
-end
-
---------------------------------------------------------------------------------
--- @function [parent=#modstore] nametoindex
-function modstore.nametoindex(name)
-
-	for i=1,#modstore.tabnames,1 do
-		if modstore.tabnames[i] == name then
-			return i
-		end
-	end
-
-	return 1
-end
-
---------------------------------------------------------------------------------
--- @function [parent=#modstore] getsuccessfuldialog
-function modstore.getsuccessfuldialog()
-	local retval = ""
-	retval = retval .. "size[6,2,true]"
-	if modstore.lastmodentry ~= nil then
-		retval = retval .. "label[0,0.25;" .. fgettext("Successfully installed:") .. "]"
-		retval = retval .. "label[3,0.25;" .. modstore.lastmodentry.moddetails.title .. "]"
-	
-		
-		retval = retval .. "label[0,0.75;" .. fgettext("Shortname:") .. "]"
-		retval = retval .. "label[3,0.75;" .. engine.formspec_escape(modstore.lastmodentry.moddetails.basename) .. "]"
-
-	end
-	retval = retval .. "button[2.5,1.5;1,0.5;btn_confirm_mod_successfull;" .. fgettext("ok") .. "]"
-				
-				
-	return retval
-end
-
---------------------------------------------------------------------------------
--- @function [parent=#modstore] gettab
-function modstore.gettab(tabname)
-	local retval = ""
-
-	local is_modstore_tab = false
-
-	if tabname == "dialog_modstore_unsorted" then
-		modstore.modsperpage = 5
-		retval = modstore.getmodlist(modstore.modlist_unsorted)
-		is_modstore_tab = true
-	end
-
-	if tabname == "dialog_modstore_search" then
-		retval = modstore.getsearchpage()
-		is_modstore_tab = true
-	end
-
-	if is_modstore_tab then
-		return modstore.tabheader(tabname) .. retval
-	end
-
-	if tabname == "modstore_mod_installed" then
-		return modstore.getsuccessfuldialog()
-	end
-
-	if tabname == "modstore_downloading" then
-		return "size[6,2]label[0.25,0.75;" .. fgettext("Downloading") ..
-				" " .. modstore.lastmodtitle .. " " ..
-				fgettext("please wait...") .. "]"
-	end
-
-	return ""
-end
-
---------------------------------------------------------------------------------
--- @function [parent=#modstore] tabheader
-function modstore.tabheader(tabname)
-	local retval  = "size[12,10.25,true]"
-	retval = retval .. "tabheader[-0.3,-0.99;modstore_tab;" ..
-				"Unsorted,Search;" ..
-				modstore.nametoindex(tabname) .. ";true;false]" ..
-				"button[4,9.9;4,0.5;btn_modstore_close;" ..
-				fgettext("Close modstore") .. "]"
-
-	return retval
-end
-
---------------------------------------------------------------------------------
--- @function [parent=#modstore] handle_buttons
-function modstore.handle_buttons(current_tab,fields)
-
-	if fields["modstore_tab"] then
-		local index = tonumber(fields["modstore_tab"])
-
-		if index > 0 and
-			index <= #modstore.tabnames then
-			if modstore.tabnames[index] == "dialog_modstore_search" then
-				filterlist.set_filtercriteria(modstore.searchlist,modstore.last_search)
-				filterlist.refresh(modstore.searchlist)
-				modstore.modsperpage = 4
-				modstore.currentlist = {
-					page = 0,
-					pagecount =
-						math.ceil(filterlist.size(modstore.searchlist) / modstore.modsperpage),
-					data = filterlist.get_list(modstore.searchlist),
-				}
-			end
-			
-			return {
-					current_tab = modstore.tabnames[index],
-					is_dialog = true,
-					show_buttons = false
-			}
-		end
-		
-	end
-
-	if fields["btn_modstore_page_up"] then
-		if modstore.current_list ~= nil and modstore.current_list.page > 0 then
-			modstore.current_list.page = modstore.current_list.page - 1
-		end
-	end
-
-	if fields["btn_modstore_page_down"] then
-		if modstore.current_list ~= nil and
-			modstore.current_list.page <modstore.current_list.pagecount-1 then
-			modstore.current_list.page = modstore.current_list.page +1
-		end
-	end
-
-	if fields["btn_hidden_close_download"] ~= nil then
-		if fields["btn_hidden_close_download"].successfull then
-			modstore.lastmodentry = fields["btn_hidden_close_download"]
-			return {
-					current_tab = "modstore_mod_installed",
-					is_dialog = true,
-					show_buttons = false
-			}
-		else
-			modstore.lastmodtitle = ""
-			return {
-						current_tab = modstore.tabnames[1],
-						is_dialog = true,
-						show_buttons = false
-				}
-		end
-	end
-
-	if fields["btn_confirm_mod_successfull"] then
-		modstore.lastmodentry = nil
-		modstore.lastmodtitle = ""
-		return {
-					current_tab = modstore.tabnames[1],
-					is_dialog = true,
-					show_buttons = false
-			}
-	end
-
-	if fields["btn_modstore_search"] or
-		(fields["key_enter"] and fields["te_modstore_search"] ~= nil) then
-		modstore.last_search = fields["te_modstore_search"]
-		filterlist.set_filtercriteria(modstore.searchlist,fields["te_modstore_search"])
-		filterlist.refresh(modstore.searchlist)
-		modstore.currentlist = {
-			page = 0,
-			pagecount =  math.ceil(filterlist.size(modstore.searchlist) / modstore.modsperpage),
-			data = filterlist.get_list(modstore.searchlist),
-		}
-	end
-	
-	
-	if fields["btn_modstore_close"] then
-		return {
-			is_dialog = false,
-			show_buttons = true,
-			current_tab = engine.setting_get("main_menu_tab")
-		}
-	end
-	
-	for key,value in pairs(fields) do
-		local foundat = key:find("btn_install_mod_")
-		if ( foundat == 1) then
-			local modid = tonumber(key:sub(17))
-			for i=1,#modstore.modlist_unsorted.data,1 do
-				if modstore.modlist_unsorted.data[i].id == modid then
-					local moddetails = modstore.modlist_unsorted.data[i].details
-
-					if modstore.lastmodtitle ~= "" then
-						modstore.lastmodtitle = modstore.lastmodtitle .. ", "
-					end
-	
-					modstore.lastmodtitle = modstore.lastmodtitle .. moddetails.title
-	
-					engine.handle_async(
-						function(param)
-						
-							local fullurl = engine.setting_get("modstore_download_url") ..
-											param.moddetails.download_url
-											
-							if param.version ~= nil then
-								local found = false
-								for i=1,#param.moddetails.versions, 1 do
-									if param.moddetails.versions[i].date:sub(1,10) == param.version then
-										fullurl = engine.setting_get("modstore_download_url") ..
-														param.moddetails.versions[i].download_url
-										found = true
-									end
-								end
-								
-								if not found then
-									return {
-										moddetails = param.moddetails,
-										successfull = false
-									}
-								end
-							end
-	
-							if engine.download_file(fullurl,param.filename) then
-								return {
-									texturename = param.texturename,
-									moddetails = param.moddetails,
-									filename = param.filename,
-									successfull = true
-								}
-							else
-								return {
-									moddetails = param.moddetails,
-									successfull = false
-								}
-							end
-						end,
-						{
-							moddetails = moddetails,
-							version = fields["dd_version" .. modid],
-							filename = os.tempfolder() .. "_MODNAME_" .. moddetails.basename .. ".zip",
-							texturename = modstore.modlist_unsorted.data[i].texturename
-						},
-						function(result)
-							if result.successfull then
-								modmgr.installmod(result.filename,result.moddetails.basename)
-								os.remove(result.filename)
-							else
-								gamedata.errormessage = "Failed to download " .. result.moddetails.title
-							end
-	
-							if gamedata.errormessage == nil then
-								engine.button_handler({btn_hidden_close_download=result})
-							else
-								engine.button_handler({btn_hidden_close_download={successfull=false}})
-							end
-						end
-					)
-	
-					return {
-						current_tab = "modstore_downloading",
-						is_dialog = true,
-						show_buttons = false,
-						ignore_menu_quit = true
-					}
-				end
-			end
-			break
-		end
-	end
-end
-
---------------------------------------------------------------------------------
--- @function [parent=#modstore] update_modlist
-function modstore.update_modlist()
-	modstore.modlist_unsorted = {}
-	modstore.modlist_unsorted.data = {}
-	modstore.modlist_unsorted.pagecount = 1
-	modstore.modlist_unsorted.page = 0
-
-	engine.handle_async(
-		function(param)
-			return engine.get_modstore_list()
-		end,
-		nil,
-		function(result)
-			if result ~= nil then
-				modstore.modlist_unsorted = {}
-				modstore.modlist_unsorted.data = result
-
-				if modstore.modlist_unsorted.data ~= nil then
-					modstore.modlist_unsorted.pagecount =
-						math.ceil((#modstore.modlist_unsorted.data / modstore.modsperpage))
-				else
-					modstore.modlist_unsorted.data = {}
-					modstore.modlist_unsorted.pagecount = 1
-				end
-				modstore.modlist_unsorted.page = 0
-				modstore.fetchdetails()
-				engine.event_handler("Refresh")
-			end
-		end
-	)
-end
-
---------------------------------------------------------------------------------
--- @function [parent=#modstore] fetchdetails
-function modstore.fetchdetails()
-
-	for i=1,#modstore.modlist_unsorted.data,1 do
-		engine.handle_async(
-		function(param)
-			param.details = engine.get_modstore_details(tostring(param.modid))
-			return param
-		end,
-		{
-			modid=modstore.modlist_unsorted.data[i].id,
-			listindex=i
-		},
-		function(result)
-			if result ~= nil and
-				modstore.modlist_unsorted ~= nil
-				and modstore.modlist_unsorted.data ~= nil and
-				modstore.modlist_unsorted.data[result.listindex] ~= nil and
-				modstore.modlist_unsorted.data[result.listindex].id ~= nil then
-
-				modstore.modlist_unsorted.data[result.listindex].details = result.details
-				engine.event_handler("Refresh")
-			end
-		end
-		)
-	end
-end
-
---------------------------------------------------------------------------------
--- @function [parent=#modstore] getscreenshot
-function modstore.getscreenshot(ypos,listentry)
-
-	if	listentry.details ~= nil and
-		(listentry.details.screenshot_url == nil or
-		listentry.details.screenshot_url == "") then
-		
-		if listentry.texturename == nil then
-			listentry.texturename = modstore.basetexturedir .. "no_screenshot.png"
-		end
-		
-		return "image[0,".. ypos .. ";3,2;" ..
-			engine.formspec_escape(listentry.texturename) .. "]"
-	end
-	
-	if listentry.details ~= nil and
-		listentry.texturename == nil then
-		--make sure we don't download multiple times
-		listentry.texturename = "in progress"
-	
-		--prepare url and filename
-		local fullurl = engine.setting_get("modstore_download_url") ..
-					listentry.details.screenshot_url
-		local filename = os.tempfolder() .. "_MID_" .. listentry.id
-		
-		--trigger download
-		engine.handle_async(
-			--first param is downloadfct
-			function(param)
-				param.successfull = engine.download_file(param.fullurl,param.filename)
-				return param
-			end,
-			--second parameter is data passed to async job
-			{
-				fullurl = fullurl,
-				filename = filename,
-				modid = listentry.id
-			},
-			--integrate result to raw list
-			function(result)
-				if result.successfull then
-					local found = false
-					for i=1,#modstore.modlist_unsorted.data,1 do
-						if modstore.modlist_unsorted.data[i].id == result.modid then
-							found = true
-							modstore.modlist_unsorted.data[i].texturename = result.filename
-							break
-						end
-					end
-					if found then
-						engine.event_handler("Refresh")
-					else
-						engine.log("error","got screenshot but didn't find matching mod: " .. result.modid)
-					end
-				end
-			end
-		)
-	end
-
-	if listentry.texturename ~= nil and
-		listentry.texturename ~= "in progress" then
-		return "image[0,".. ypos .. ";3,2;" ..
-			engine.formspec_escape(listentry.texturename) .. "]"
-	end
-	
-	return ""
-end
-
---------------------------------------------------------------------------------
---@function [parent=#modstore] getshortmodinfo
-function modstore.getshortmodinfo(ypos,listentry,details)
-	local retval = ""
-	
-	retval = retval .. "box[0," .. ypos .. ";11.4,1.75;#FFFFFF]"
-
-	--screenshot
-	retval = retval .. modstore.getscreenshot(ypos,listentry)
-
-	--title + author
-	retval = retval .."label[2.75," .. ypos .. ";" ..
-		engine.formspec_escape(details.title) .. " (" .. details.author .. ")]"
-
-	--description
-	local descriptiony = ypos + 0.5
-	retval = retval .. "textarea[3," .. descriptiony .. ";6.5,1.55;;" ..
-		engine.formspec_escape(details.description) .. ";]"
-		
-	--rating
-	local ratingy = ypos
-	retval = retval .."label[7," .. ratingy .. ";" ..
-					fgettext("Rating") .. ":]"
-	retval = retval .. "label[8.7," .. ratingy .. ";" .. details.rating .."]"
-	
-	--versions (IMPORTANT has to be defined AFTER rating)
-	if details.versions ~= nil and
-		#details.versions > 1 then
-		local versiony = ypos + 0.05
-		retval = retval .. "dropdown[9.1," .. versiony .. ";2.48,0.25;dd_version" .. details.id .. ";"
-		local versions = ""
-		for i=1,#details.versions , 1 do
-			if versions ~= "" then
-				versions = versions .. ","
-			end
-			
-			versions = versions .. details.versions[i].date:sub(1,10)
-		end
-		retval = retval .. versions .. ";1]"
-	end
-
-	if details.basename then
-		--install button
-		local buttony = ypos + 1.2
-		retval = retval .."button[9.1," .. buttony .. ";2.5,0.5;btn_install_mod_" .. details.id .. ";"
-
-		if modmgr.mod_exists(details.basename) then
-			retval = retval .. fgettext("re-Install") .."]"
-		else
-			retval = retval .. fgettext("Install") .."]"
-		end
-	end
-	
-	return retval
-end
-
---------------------------------------------------------------------------------
---@function [parent=#modstore] getmodlist
-function modstore.getmodlist(list,yoffset)
-
-	modstore.current_list = list
-	
-	if #list.data == 0 then
-		return ""
-	end
-	
-	if yoffset == nil then
-		yoffset = 0
-	end
-
-	local scrollbar = ""
-	scrollbar = scrollbar .. "label[0.1,9.5;"
-				.. fgettext("Page $1 of $2", list.page+1, list.pagecount) .. "]"
-	scrollbar = scrollbar .. "box[11.6," .. (yoffset + 0.35) .. ";0.28,"
-				.. (8.6 - yoffset) .. ";#000000]"
-	local scrollbarpos = (yoffset + 0.75) +
-				((7.7 -yoffset)/(list.pagecount-1)) * list.page
-	scrollbar = scrollbar .. "box[11.6," ..scrollbarpos .. ";0.28,0.5;#32CD32]"
-	scrollbar = scrollbar .. "button[11.6," .. (yoffset + (0.3))
-				.. ";0.5,0.5;btn_modstore_page_up;^]"
-	scrollbar = scrollbar .. "button[11.6," .. 9.0
-				.. ";0.5,0.5;btn_modstore_page_down;v]"
-
-	local retval = ""
-
-	local endmod = (list.page * modstore.modsperpage) + modstore.modsperpage
-
-	if (endmod > #list.data) then
-		endmod = #list.data
-	end
-
-	for i=(list.page * modstore.modsperpage) +1, endmod, 1 do
-		--getmoddetails
-		local details = list.data[i].details
-
-		if details == nil then
-			details = {}
-			details.title = list.data[i].title
-			details.author = ""
-			details.rating = -1
-			details.description = ""
-		end
-
-		if details ~= nil then
-			local screenshot_ypos =
-				yoffset +(i-1 - (list.page * modstore.modsperpage))*1.9 +0.2
-				
-			retval = retval .. modstore.getshortmodinfo(screenshot_ypos,
-														list.data[i],
-														details)
-		end
-	end
-	
-	return retval .. scrollbar
-end
-
---------------------------------------------------------------------------------
---@function [parent=#modstore] getsearchpage
-function modstore.getsearchpage()
-	local retval = ""
-	local search = ""
-	
-	if modstore.last_search ~= nil then
-		search = modstore.last_search
-	end
-
-	retval = retval ..
-		"button[9.5,0.2;2.5,0.5;btn_modstore_search;".. fgettext("Search") .. "]" ..
-		"field[0.5,0.5;9,0.5;te_modstore_search;;" .. search .. "]"
-
-	
-	--show 4 mods only
-	modstore.modsperpage = 4
-	retval = retval ..
-		modstore.getmodlist(
-			modstore.currentlist,
-			1.75)
-
-	return retval;
-end
-
-- 
cgit v1.2.3