Font chooser form added

6 files changed, 171 insertions, 4 deletions

diff --git a/font_api/fontform.lua b/font_api/fontform.lua
new file mode 100644
index 0000000..e4952ed
--- /dev/null
+++ b/font_api/fontform.lua
@@ -0,0 +1,167 @@
+--[[
+    font_api mod for Minetest - Library to add font display capability
+    to display_api mod.
+    (c) Pierre-Yves Rollo
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation, either version 3 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 General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+--]]
+
+local modname = minetest.get_current_modname()
+
+local contexts = {}
+
+minetest.register_on_leaveplayer(function(player)
+	if minetest.is_player(player) then
+		contexts[player:get_player_name()] = nil
+	end
+end)
+
+local function get_context(playername)
+	if not contexts[playername] then
+		contexts[playername] = { playername = playername }
+	end
+	return contexts[playername]
+end
+
+-- Show node formspec functions
+local function show_node_formspec(playername, pos)
+	local meta = minetest.get_meta(pos)
+
+	-- Decontextualize formspec
+	local fs = meta:get_string('formspec')
+
+	if not fs then
+		return
+	end
+
+	-- Change context and currrent_name references to nodemeta references
+	-- Change context and currrent_name references to nodemeta references
+	local nodemeta = string.format("nodemeta:%i,%i,%i", pos.x, pos.y ,pos.z)
+	fs = fs:gsub("current_name", nodemeta)
+	fs = fs:gsub("context", nodemeta)
+
+	-- Change all ${} to their corresponding metadata values
+	local s, e
+	repeat
+		s, e = fs:find('%${.*}')
+		if s and e then
+			fs = fs:sub(1, s-1)..
+				minetest.formspec_escape(meta:get_string(fs:sub(s+2,e-1)))..
+				fs:sub(e+1)
+		end
+	until s == nil
+
+	local context = get_context(playername)
+	context.node_pos = pos
+
+	-- Find node on_receive_fields
+	local ndef = minetest.registered_nodes[minetest.get_node(pos).name]
+	if ndef and ndef.on_receive_fields then
+		context.on_receive_fields = ndef.on_receive_fields
+	end
+
+	-- Show formspec
+	minetest.show_formspec(playername, modname..':context_formspec', fs)
+end
+
+minetest.register_on_player_receive_fields(function(player, formname, fields)
+	if formname ~= modname..':context_formspec' then
+		return
+	end
+
+	if not minetest.is_player(player) then
+		return true
+	end
+
+	local context = get_context(player:get_player_name())
+	if context.on_receive_fields then
+		context.on_receive_fields(context.pos, '', fields, player)
+	end
+	return true
+end)
+
+-- Specific functions
+
+local function show_font_formspec(playername)
+	local context = get_context(playername)
+	local fonts = {}
+	for name, _ in pairs(font_api.registered_fonts) do
+		fonts[#fonts+1] = name
+	end
+	table.sort(fonts)
+
+	local fs = string.format(
+		"size[4,%s]%s%s%sbutton_exit[0,%s;4,1;cancel;Cancel]",
+		#fonts + 0.8, default.gui_bg, default.gui_bg_img, default.gui_slots,
+		#fonts)
+
+	for line = 1, #fonts do
+		local font = font_api.get_font(fonts[line])
+		local texture = font:make_text_texture(font.name, font:get_height()*5,
+			font:get_height()*1.2, 1, "center", "top", "#fff")
+		fs = string.format(
+			"%simage[0.1,%s;4.5,0.8;%s]button_exit[0,%s;4,1;font_%s;]",
+			fs, line-0.9, texture, line-1, font.name)
+	end
+	minetest.show_formspec(context.playername, modname..':font_list', fs)
+end
+
+minetest.register_on_player_receive_fields(function(player, formname, fields)
+	if formname ~= modname..':font_list' then
+		return
+	end
+
+	if not minetest.is_player(player) then
+		return true
+	end
+
+	local playername = player:get_player_name()
+	local context = get_context(playername)
+
+	if not context.pos
+	or minetest.is_protected(context.pos, playername) then
+		return true
+	end
+
+	if fields.quit == 'true' then
+		for name, _ in pairs(font_api.registered_fonts) do
+			if fields['font_'..name] then
+				local meta = minetest.get_meta(context.pos)
+				meta:set_string("font", name)
+				display_api.update_entities(context.pos)
+			end
+		end
+
+		if context.callback and type(context.callback) == "function" then
+			-- Using after to avoid the "double close" bug
+			minetest.after(0, context.callback, playername, context.pos)
+		else
+			-- Using after to avoid the "double close" bug
+			minetest.after(0, show_node_formspec, playername, context.pos)
+		end
+	end
+	return true
+end)
+
+-- @param player Player viewing the form
+-- @param pos Node pos
+-- @param callback function(playername, pos) to be called on form close
+function font_api.show_font_list(player, pos, callback)
+	if minetest.is_player(player) then
+		local context = get_context(player:get_player_name())
+		context.pos = pos
+		context.callback = callback
+		show_font_formspec(player:get_player_name())
+	end
+end
diff --git a/font_api/init.lua b/font_api/init.lua
index dc3a3e0..27cba99 100644
--- a/font_api/init.lua
+++ b/font_api/init.lua
@@ -29,9 +29,10 @@ font_api.path = minetest.get_modpath(font_api.name)
 
 dofile(font_api.path.."/font.lua")
 dofile(font_api.path.."/registry.lua")
+dofile(font_api.path.."/fontform.lua")
 
 --- Standard on_display_update entity callback.
--- Node should have a corresponding display_entity with size, resolution and 
+-- Node should have a corresponding display_entity with size, resolution and
 -- maxlines fields and optionally halign, valign and color fields
 -- @param pos Node position
 -- @param objref Object reference of entity
@@ -49,8 +50,8 @@ function font_api.on_display_update(pos, objref)
 
 		local maxlines = def.maxlines or 1 -- TODO:How to do w/o maxlines ?
 
-		objref:set_properties({ 		 
-			textures={font:make_text_texture(text, 
+		objref:set_properties({
+			textures={font:make_text_texture(text,
 				font:get_height(maxlines) * def.size.x / def.size.y
 					/ (def.aspect_ratio or 1),
 				font:get_height(maxlines),
@@ -62,4 +63,3 @@ end
 
 -- Compatibility
 font_lib = font_api
-
diff --git a/font_api/textures/font_api_center.png b/font_api/textures/font_api_center.png
new file mode 100644
index 0000000..967db6a
--- /dev/null
+++ b/font_api/textures/font_api_center.png
diff --git a/font_api/textures/font_api_font.png b/font_api/textures/font_api_font.png
new file mode 100644
index 0000000..e450338
--- /dev/null
+++ b/font_api/textures/font_api_font.png
diff --git a/font_api/textures/font_api_left.png b/font_api/textures/font_api_left.png
new file mode 100644
index 0000000..727410b
--- /dev/null
+++ b/font_api/textures/font_api_left.png
diff --git a/font_api/textures/font_api_right.png b/font_api/textures/font_api_right.png
new file mode 100644
index 0000000..16401d3
--- /dev/null
+++ b/font_api/textures/font_api_right.png