mail/gui.lua

selected_message_idxs = {}

local theme
if minetest.get_modpath("default") then
	theme = default.gui_bg .. default.gui_bg_img
else
	theme = ""
end

mail.inbox_formspec = "size[8,10;]" .. theme .. [[
		button[6,0.00;2,0.5;new;New]
		button[6,0.75;2,0.5;read;Read]
		button[6,1.50;2,0.5;reply;Reply]
		button[6,2.25;2,0.5;forward;Forward]
		button[6,3.00;2,0.5;delete;Delete]
		button[6,4.25;2,0.5;markread;Mark Read]
		button[6,5.00;2,0.5;markunread;Mark Unread]
		button[6,6.25;2,0.5;contacts;Contacts]
		button[6,7.00;2,0.5;about;About]
		button_exit[6,8.25;2,0.5;quit;Close]
		tablecolumns[color;text;text]
		table[0,0;5.75,9;messages;#999,From,Subject]]

mail.contacts_formspec = "size[8,10;]" .. theme .. [[
		button[6,0.00;2,0.5;new;New]
		button[6,0.75;2,0.5;edit;Edit]
		button[6,1.50;2,0.5;delete;Delete]
		button[6,8.25;2,0.5;back;Back]
		tablecolumns[color;text;text]
		table[0,0;5.75,9;contacts;#999,Name,Note]]

mail.select_contact_formspec = "size[8,10;]" .. theme .. [[
		button[6,0.00;2,0.5;select;Select]
		button[6,8.25;2,0.5;back;Back]
		tablecolumns[color;text]
		table[0,0;5.75,9;contacts;#999,Name]]


function mail.show_about(name)
	local formspec = [[
			size[8,5;]
			button[7.5,0;0.5,0.5;back;X]
			label[0,0;Mail]
			label[0,0.5;By cheapie]
			label[0,1;http://github.com/cheapie/mail]
			label[0,1.5;See LICENSE file for license information]
			label[0,2.5;NOTE: Communication using this system]
			label[0,3;is NOT guaranteed to be private!]
			label[0,3.5;Admins are able to view the messages]
			label[0,4;of any player.]
		]] .. theme

	minetest.show_formspec(name, "mail:about", formspec)
end

function mail.show_inbox(name)
	local formspec = { mail.inbox_formspec }
	local messages = mail.getMessages(name)

	if messages[1] then
		for _, message in ipairs(messages) do
			if message.unread then
				formspec[#formspec + 1] = ",#FFD700"
			else
				formspec[#formspec + 1] = ","
			end
			formspec[#formspec + 1] = ","
			formspec[#formspec + 1] = minetest.formspec_escape(message.sender)
			formspec[#formspec + 1] = ","
			if message.subject ~= "" then
				if string.len(message.subject) > 30 then
					formspec[#formspec + 1] =
							minetest.formspec_escape(string.sub(message.subject, 1, 27))
					formspec[#formspec + 1] = "..."
				else
					formspec[#formspec + 1] = minetest.formspec_escape(message.subject)
				end
			else
				formspec[#formspec + 1] = "(No subject)"
			end
		end
		if selected_message_idxs[name] then
			formspec[#formspec + 1] = ";"
			formspec[#formspec + 1] = tostring(selected_message_idxs[name] + 1)
		end
		formspec[#formspec + 1] = "]"
	else
		formspec[#formspec + 1] = "]label[2,4.5;No mail]"
	end
	minetest.show_formspec(name, "mail:inbox", table.concat(formspec, ""))
end

function mail.show_contacts(name)
	local formspec = { mail.contacts_formspec }
	formspec = mail.compile_contact_list(name, formspec)
	minetest.show_formspec(name, "mail:contacts", table.concat(formspec, ""))
end

function mail.show_edit_contact(name, contact_name, note)
	local formspec = [[
			size[8,7.2]
			button[7,0;1,0.5;back;X]
			label[0,0;Player name: %s]
			label[0,0.5;Note: %s]
			button[1,6.7;2,1;reply;Reply]
			button[3,6.7;2,1;forward;Forward]
			button[5,6.7;2,1;delete;Delete]
		]] .. theme
	minetest.show_formspec(name, "mail:editcontact", table.concat(formspec, ""))
end

function mail.show_select_contact(name)
	local formspec = { mail.select_contact_formspec }
	formspec = mail.compile_contact_list(name, formspec)
	minetest.show_formspec(name, "mail:selectcontact", table.concat(formspec, ""))
end

function mail.compile_contact_list(name, formspec)
	local contacts = mail.getContacts(name)

	if contacts[1] then
		for _, contact in ipairs(contacts) do
			formspec[#formspec + 1] = ","
			formspec[#formspec + 1] = ","
			formspec[#formspec + 1] = minetest.formspec_escape(contact.name)
			formspec[#formspec + 1] = ","
			formspec[#formspec + 1] = minetest.formspec_escape(contact.note)
		end
		if selected_contact_idxs[name] then
			formspec[#formspec + 1] = ";"
			formspec[#formspec + 1] = tostring(selected_contact_idxs[name] + 1)
		end
		formspec[#formspec + 1] = "]"
	else
		formspec[#formspec + 1] = "]label[2,4.5;No contacts]"
	end
	return formspec
end

function mail.show_message(name, msgnumber)
	local messages = mail.getMessages(name)
	local message = messages[msgnumber]
	local formspec = [[
			size[8,7.2]
			button[7,0;1,0.5;back;X]
			label[0,0;From: %s]
			label[0,0.5;Subject: %s]
			textarea[0.25,1.25;8,6.25;body;;%s]
			button[1,6.7;2,1;reply;Reply]
			button[3,6.7;2,1;forward;Forward]
			button[5,6.7;2,1;delete;Delete]
		]] .. theme

	local from = minetest.formspec_escape(message.from)
	local subject = minetest.formspec_escape(message.subject)
	local body = minetest.formspec_escape(message.body)
	formspec = string.format(formspec, from, subject, body)

	minetest.show_formspec(name,"mail:message",formspec)
end

function mail.show_compose(name, defaultto, defaultsubj, defaultbody, defaultcc, defaultbcc)
	local formspec = [[
			size[8,7.2]
			field[0.25,0.5;4,1;to;To:;%s]
			field[0.25,0.5;4,1;to;CC:;%s]
			field[0.25,0.5;4,1;to;BCC:;%s]
			field[0.25,1.7;8,1;subject;Subject:;%s]
			textarea[0.25,2.4;8,5;body;;%s]
			button[0.5,6.7;3,1;cancel;Cancel]
			button[7,0;1,0.5;cancel;X]
			button[4.5,6.7;3,1;send;Send]
		]] .. theme

	formspec = string.format(formspec,
		minetest.formspec_escape(defaulttgt),
		minetest.formspec_escape(defaultsubj),
		minetest.formspec_escape(defaultbody),
		minetest.formspec_escape(defaultcc),
		minetest.formspec_escape(defaultbcc))

	minetest.show_formspec(name, "mail:compose", formspec)
end

function mail.handle_receivefields(player, formname, fields)
	if formname == "" and fields and fields.quit and minetest.get_modpath("unified_inventory") then
		unified_inventory.set_inventory_formspec(player, "craft")
	end

	if formname == "mail:about" then
		minetest.after(0.5, function()
			mail.show_inbox(player:get_player_name())
		end)

	elseif formname == "mail:inbox" then
		local name = player:get_player_name()
		local messages = mail.getMessages(name)

		if fields.messages then
			local evt = minetest.explode_table_event(fields.messages)
			selected_message_idxs[name] = evt.row - 1
			if evt.type == "DCL" and messages[selected_message_idxs[name]] then
				messages[selected_message_idxs[name]].unread = false
				mail.show_message(name, selected_message_idxs[name])
			end
			mail.setMessages(name, messages)
			return true
		end
		if fields.read then
			if messages[selected_message_idxs[name]] then
				messages[selected_message_idxs[name]].unread = false
				mail.show_message(name, selected_message_idxs[name])
			end

		elseif fields.delete then
			if messages[selected_message_idxs[name]] then
				table.remove(messages, selected_message_idxs[name])
			end

			mail.show_inbox(name)
		elseif fields.reply and messages[selected_message_idxs[name]] then
			local message = messages[selected_message_idxs[name]]
			local replyfooter = "Type your reply here.\n\n--Original message follows--\n" ..message.body
			mail.show_compose(name, message.from, "Re: "..message.subject,replyfooter)

		elseif fields.forward and messages[selected_message_idxs[name]] then
			local message = messages[selected_message_idxs[name]]
			local fwfooter = "Type your message here.\n\n--Original message follows--\n" ..message.body
			mail.show_compose(name, "", "Fw: "..message.subject, fwfooter)

		elseif fields.markread then
			if messages[selected_message_idxs[name]] then
				messages[selected_message_idxs[name]].unread = false
			end
			mail.show_inbox(name)

		elseif fields.markunread then
			if messages[selected_message_idxs[name]] then
				messages[selected_message_idxs[name]].unread = true
			end
			mail.show_inbox(name)

		elseif fields.new then
			mail.show_compose(name,"","","Type your message here.")

		elseif fields.quit then
			if minetest.get_modpath("unified_inventory") then
				unified_inventory.set_inventory_formspec(player, "craft")
			end

		elseif fields.about then
			mail.show_about(name)

		end

		mail.setMessages(name, messages)
		return true
	elseif formname == "mail:message" then
		local name = player:get_player_name()
		local messages = mail.getMessages(name)

		if fields.back then
			mail.show_inbox(name)
		elseif fields.reply then
			local message = messages[selected_message_idxs[name]]
			local replyfooter = "Type your reply here.\n\n--Original message follows--\n" ..message.body
			mail.show_compose(name, message.sender, "Re: "..message.subject, replyfooter)
		elseif fields.forward then
			local message = messages[selected_message_idxs[name]]
			local fwfooter = "Type your message here.\n\n--Original message follows--\n" ..message.body
			mail.show_compose(name, "", "Fw: "..message.subject, fwfooter)
		elseif fields.delete then
			if messages[selected_message_idxs[name]] then
				table.remove(messages,selected_message_idxs[name])
			end
			mail.show_inbox(name)
		end

		mail.setMessages(name, messages)
		return true
	elseif formname == "mail:compose" then
		if fields.send then
			mail.send({
				from = player:get_player_name(),
				to = fields.to,
				cc = "",
				bcc = ""
				subject = fields.subject,
				body = fields.body
			})
		end
		minetest.after(0.5, function()
			mail.show_inbox(player:get_player_name())
		end)
		return true
	--[[elseif formname == "mail:contacts" then
		if fields.back then
			mail.show_inbox(name)
		elseif fields.new then
			mail.show_edit_contact(name, "", "")
		elseif fields.edit then
			if contacts[selected_contact_idxs[name]]--[[ then
				mail.show_edit_contact(name, selected_contact_idxs[name], "")
		elseif fields.delete then
			if contacts[selected_contact_idxs[name]]--[[ then
				table.remove(contacts,selected_contact_idxs[name])
			end
			mail.show_contacts(name)
		end

		mail.setContacts(name, contacts)
		return true]]--

	elseif formname == "mail:contacts" then
		local name = player:get_player_name()
		local contacts = mail.getContacts(name)

		if fields.contacts then
			local evt = minetest.explode_table_event(fields.contacts)
			selected_contact_idxs[name] = evt.row - 1
			if evt.type == "DCL" and contacts[selected_contact_idxs[name]] then
				mail.show_contact(name, selected_contact_idxs[name])
			end
			mail.setContacts(name, contacts)
			return true
		end
		elseif fields.new then
			mail.show_edit_contact(name,"", "")
		elseif fields.edit then
			mail.show_contact(name, selected_contact_idxs[name])
		elseif fields.delete then
			if contacts[selected_contact_idxs[name]] then
				table.remove(contacts, selected_contact_idxs[name])
			end

			mail.show_inbox(name)

		elseif fields.back then
			mail.show_inbox(name)

		end

		mail.setMessages(name, messages)
		return true

	elseif fields.mail then
		mail.show_inbox(player:get_player_name())
	else
		return false
	end
end

minetest.register_on_player_receive_fields(mail.handle_receivefields)


if minetest.get_modpath("unified_inventory") then
	mail.receive_mail_message = mail.receive_mail_message ..
		" or use the mail button in the inventory"
	mail.read_later_message = mail.read_later_message ..
		" or by using the mail button in the inventory"

	unified_inventory.register_button("mail", {
			type = "image",
			image = "mail_button.png",
			tooltip = "Mail"
		})
end