2 --Copyright (C) 2014 sapier
4 --This program is free software; you can redistribute it and/or modify
5 --it under the terms of the GNU Lesser General Public License as published by
6 --the Free Software Foundation; either version 2.1 of the License, or
7 --(at your option) any later version.
9 --This program is distributed in the hope that it will be useful,
10 --but WITHOUT ANY WARRANTY; without even the implied warranty of
11 --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 --GNU Lesser General Public License for more details.
14 --You should have received a copy of the GNU Lesser General Public License along
15 --with this program; if not, write to the Free Software Foundation, Inc.,
16 --51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18 --------------------------------------------------------------------------------
19 local function filter_texture_pack_list(list)
20 local retval = {"None"}
21 for _, item in ipairs(list) do
22 if item ~= "base" then
23 table.insert(retval, item)
29 --------------------------------------------------------------------------------
30 local function render_texture_pack_list(list)
33 for i, v in ipairs(list) do
34 if v:sub(1,1) ~= "." then
39 retval = retval .. core.formspec_escape(v)
46 --------------------------------------------------------------------------------
47 local function get_formspec(tabview, name, tabdata)
49 local retval = "label[4,-0.25;".. fgettext("Select texture pack:") .. "]"..
50 "vertlabel[0,-0.25;".. fgettext("TEXTURE PACKS") .. "]" ..
51 "textlist[4,0.25;7.5,5.0;TPs;"
53 local current_texture_path = core.setting_get("texture_path")
54 local list = filter_texture_pack_list(core.get_dirlist(core.get_texturepath(), true))
55 local index = tonumber(core.setting_get("mainmenu_last_selected_TP"))
57 if index == nil then index = 1 end
59 if current_texture_path == "" then
61 render_texture_pack_list(list) ..
66 local infofile = current_texture_path ..DIR_DELIM.."info.txt"
68 local f = io.open(infofile, "r")
70 infotext = fgettext("No information available")
72 infotext = f:read("*all")
76 local screenfile = current_texture_path..DIR_DELIM.."screenshot.png"
77 local no_screenshot = nil
78 if not file_exists(screenfile) then
80 no_screenshot = defaulttexturedir .. "no_screenshot.png"
84 render_texture_pack_list(list) ..
85 ";" .. index .. "]" ..
86 "image[0.65,0.25;4.0,3.7;"..core.formspec_escape(screenfile or no_screenshot).."]"..
87 "textarea[1.0,3.25;3.7,1.5;;"..core.formspec_escape(infotext or "")..";]"
90 --------------------------------------------------------------------------------
91 local function main_button_handler(tabview, fields, name, tabdata)
92 if fields["TPs"] ~= nil then
93 local event = core.explode_textlist_event(fields["TPs"])
94 if event.type == "CHG" or event.type == "DCL" then
95 local index = core.get_textlist_index("TPs")
96 core.setting_set("mainmenu_last_selected_TP",
98 local list = filter_texture_pack_list(core.get_dirlist(core.get_texturepath(), true))
99 local current_index = core.get_textlist_index("TPs")
100 if current_index ~= nil and #list >= current_index then
101 local new_path = core.get_texturepath()..DIR_DELIM..list[current_index]
102 if list[current_index] == "None" then new_path = "" end
104 core.setting_set("texture_path", new_path)
112 --------------------------------------------------------------------------------
114 name = "texturepacks",
115 caption = fgettext("Texturepacks"),
116 cbf_formspec = get_formspec,
117 cbf_button_handler = main_button_handler,