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)
22 for _, item in ipairs(list) do
23 if item ~= "base" then
24 retval[#retval + 1] = item
29 table.insert(retval, 1, fgettext("None"))
34 --------------------------------------------------------------------------------
35 local function render_texture_pack_list(list)
38 for i, v in ipairs(list) do
39 if v:sub(1, 1) ~= "." then
41 retval = retval .. ","
44 retval = retval .. core.formspec_escape(v)
51 --------------------------------------------------------------------------------
52 local function get_formspec(tabview, name, tabdata)
54 local retval = "label[4,-0.25;" .. fgettext("Select texture pack:") .. "]" ..
55 "textlist[4,0.25;7.5,5.0;TPs;"
57 local current_texture_path = core.setting_get("texture_path")
58 local list = filter_texture_pack_list(core.get_dir_list(core.get_texturepath(), true))
59 local index = tonumber(core.setting_get("mainmenu_last_selected_TP"))
61 if not index then index = 1 end
63 if current_texture_path == "" then
65 render_texture_pack_list(list) ..
70 local infofile = current_texture_path .. DIR_DELIM .. "description.txt"
71 -- This adds backwards compatibility for old texture pack description files named
72 -- "info.txt", and should be removed once all such texture packs have been updated
73 if not file_exists(infofile) then
74 infofile = current_texture_path .. DIR_DELIM .. "info.txt"
75 if file_exists(infofile) then
76 core.log("info.txt is depreciated. description.txt should be used instead.")
81 local f = io.open(infofile, "r")
83 infotext = fgettext("No information available")
85 infotext = f:read("*all")
89 local screenfile = current_texture_path .. DIR_DELIM .. "screenshot.png"
91 if not file_exists(screenfile) then
93 no_screenshot = defaulttexturedir .. "no_screenshot.png"
97 render_texture_pack_list(list) ..
98 ";" .. index .. "]" ..
99 "image[0.25,0.25;4.05,2.7;" .. core.formspec_escape(screenfile or no_screenshot) .. "]" ..
100 "textarea[0.6,2.85;3.7,1.5;;" .. core.formspec_escape(infotext or "") .. ";]"
103 --------------------------------------------------------------------------------
104 local function main_button_handler(tabview, fields, name, tabdata)
105 if fields["TPs"] then
106 local event = core.explode_textlist_event(fields["TPs"])
107 if event.type == "CHG" or event.type == "DCL" then
108 local index = core.get_textlist_index("TPs")
109 core.setting_set("mainmenu_last_selected_TP", index)
110 local list = filter_texture_pack_list(core.get_dir_list(core.get_texturepath(), true))
111 local current_index = core.get_textlist_index("TPs")
112 if current_index and #list >= current_index then
113 local new_path = core.get_texturepath() .. DIR_DELIM .. list[current_index]
114 if list[current_index] == fgettext("None") then
117 core.setting_set("texture_path", new_path)
125 --------------------------------------------------------------------------------
127 name = "texturepacks",
128 caption = fgettext("Texturepacks"),
129 cbf_formspec = get_formspec,
130 cbf_button_handler = main_button_handler,