Initial commit

Not done, though.

LICENSE

@@ -0,0 +1,13 @@
+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.

NOTES

@@ -0,0 +1,3 @@
+* Upstream books allow to save contents if title has only a space character.
+  Possibly use some string manipulation to remove any preceeding spaces, and
+  submit upstream.

README

@@ -0,0 +1 @@
+This file intentionally left blank.

TODO

@@ -0,0 +1,3 @@
+* Textures
+* Models
+* Sounds

depends.txt

@@ -0,0 +1 @@
+default

init.lua

@@ -0,0 +1,266 @@
+--[[ Placeable Books by everamzah
+	Copyright (C) 2016 James Stevenson
+	LGPLv2.1+
+	See LICENSE for more information ]]
+
+
+
+local lpp = 14 -- Lines per book's page
+
+local function on_place(itemstack, placer, pointed_thing)
+	if minetest.is_protected(pointed_thing.above, placer:get_player_name()) then
+		-- TODO: record_protection_violation()
+		return itemstack
+	end
+	local meta = itemstack:get_metadata()
+	local stack = ItemStack({name = "default:book_closed"})
+
+	stack:set_metadata(meta)
+	local _, placed = minetest.item_place(stack, placer, pointed_thing)
+	if placed then
+		itemstack:take_item()
+	end
+	return itemstack
+end
+
+local function on_rightclick(pos, node, clicker, itemstack, pointed_thing)
+	if node.name == "default:book_closed" then
+		node.name = "default:book_open"
+		minetest.swap_node(pos, node)
+		local meta = minetest.get_meta(pos)
+		meta:set_string("infotext",
+				meta:get_string("text"):trim(240))
+	elseif node.name == "default:book_open" then
+		-- Courtesy of minetest_game/mods/default/craftitems.lua
+		local player_name = clicker:get_player_name()
+		local meta = minetest.get_meta(pos)
+		local title, text, owner = "", "", player_name
+		local page, page_max, lines, string = 1, 1, {}, ""
+
+		if meta then
+			title = meta:get_string("title")
+			text = meta:get_string("text")
+			owner = meta:get_string("owner")
+
+			for str in (text .. "\n"):gmatch("([^\n]*)[\n]") do
+				lines[#lines+1] = str
+			end
+
+			if meta.page then
+				page = meta.page
+				page_max = meta.page_max
+
+				for i = ((lpp * page) - lpp) + 1, lpp * page do
+					if not lines[i] then break end
+					string = string .. lines[i] .. "\n"
+				end
+			end
+		end
+
+		local formspec
+		if owner == player_name then
+			formspec = "size[8,8]" .. default.gui_bg ..
+				default.gui_bg_img ..
+				"field[0.5,1;7.5,0;title;Title:;" ..
+					minetest.formspec_escape(title) .. "]" ..
+				"textarea[0.5,1.5;7.5,7;text;Contents:;" ..
+					minetest.formspec_escape(text) .. "]" ..
+				"button_exit[2.5,7.5;3,1;save;Save]"
+		else
+			formspec = "size[8,8]" .. default.gui_bg ..
+				default.gui_bg_img ..
+				"label[0.5,0.5;by " .. owner .. "]" ..
+				"tablecolumns[color;text]" ..
+				"tableoptions[background=#00000000;highlight=#00000000;border=false]" ..
+				"table[0.4,0;7,0.5;title;#FFFF00," .. minetest.formspec_escape(title) .. "]" ..
+				"textarea[0.5,1.5;7.5,7;;" ..
+					minetest.formspec_escape(string ~= "" and string or text) .. ";]" ..
+				"button[2.4,7.6;0.8,0.8;book_prev;<]" ..
+				"label[3.2,7.7;Page " .. page .. " of " .. page_max .. "]" ..
+				"button[4.9,7.6;0.8,0.8;book_next;>]"
+		end
+
+		minetest.show_formspec(player_name,
+				"default:book_" .. minetest.pos_to_string(pos), formspec)
+	end
+end
+
+local function after_place_node(pos, placer, itemstack, pointed_thing)
+	local data = minetest.deserialize(itemstack:get_metadata())
+	if data then
+		local meta = minetest.get_meta(pos)
+		meta:set_string("infotext",
+				data.title .. "\n\n" ..
+				"by " .. data.owner)
+		meta:set_string("title", data.title)
+		meta:set_string("text", data.text)
+		meta:set_string("owner", data.owner)
+	end
+end
+
+local function on_punch(pos, node, puncher, pointed_thing)
+	if node.name == "default:book_open" then
+		node.name = "default:book_closed"
+		minetest.swap_node(pos, node)
+		local meta = minetest.get_meta(pos)
+		meta:set_string("infotext",
+				meta:get_string("title") .. "\n\n" ..
+				"by " .. meta:get_string("owner"))
+	end
+end
+
+local function on_dig(pos, node, digger)
+	local meta = minetest.get_meta(pos)
+
+	local title = meta:get_string("title")
+	local text = meta:get_string("text")
+	local owner = meta:get_string("owner")
+
+	local stack
+	if title ~= "" then
+		stack = {name = "default:book_written"}
+	else
+		stack = {name = "default:book"}
+	end
+	stack = ItemStack(stack)
+	print(dump(stack))
+
+	local adder = digger:get_inventory():add_item("main", stack)
+	if adder then
+		minetest.item_drop(adder, digger, digger:getpos())
+	end
+	minetest.remove_node(pos)
+end
+
+
+
+minetest.override_item("default:book", {on_place = on_place})
+
+minetest.override_item("default:book_written", {on_place = on_place})
+
+minetest.register_node(":default:book_open", {
+	description = "Book Open (you hacker you!)",
+	inventory_image = "default_book.png",
+	tiles = {
+		"wool_white.png",	-- Top
+		"wool_brown.png",	-- Bottom
+		"wool_brown.png",	-- Right
+		"wool_brown.png",	-- Left
+		"wool_brown.png",	-- Back
+		"wool_brown.png"	-- Front
+	},
+	drawtype = "nodebox",
+	paramtype = "light",
+	paramtype2 = "facedir",
+	sunlight_propagates = true,
+	node_box = {
+		type = "fixed",
+		fixed = {
+			{-0.375, -0.4375, -0.3125, 0.375, -0.375, 0.3125},
+			{-0.4375, -0.5, -0.3125, 0.4375, -0.4375, 0.3125},
+		}
+	},
+	--groups = {attached_node = 1}, -- FIXME
+	on_punch = on_punch,
+	on_rightclick = on_rightclick,
+})
+
+minetest.register_node(":default:book_closed", {
+	description = "Book Closed (you hacker you!)",
+	inventory_image = "default_book.png",
+	tiles = {
+		"wool_brown.png",	-- Top
+		"wool_brown.png",	-- Bottom
+		"wool_white.png",	-- Right
+		"wool_brown.png",	-- Left
+		"wool_white.png",	-- Back
+		"wool_white.png"	-- Front
+	},
+	drawtype = "nodebox",
+	paramtype = "light",
+	paramtype2 = "facedir",
+	sunlight_propagates = true,
+	node_box = {
+		type = "fixed",
+		fixed = {
+			{-0.25, -0.5, -0.3125, 0.25, -0.35, 0.3125},
+		}
+	},
+	groups = {oddly_breakable_by_hand = 3, dig_immediate = 2}, --, attached_node = 1}, -- FIXME
+	on_dig = on_dig,
+	on_rightclick = on_rightclick,
+	after_place_node = after_place_node,
+})
+
+minetest.register_on_player_receive_fields(function(player, formname, fields)
+	if formname:sub(1, -10) == "default:book_" then
+		local pos = minetest.string_to_pos(formname:sub(-9))
+		local node = minetest.get_node(pos)
+		print(dump(pos), dump(node)) -- TODO: FIXME: This.
+	end
+end)
+
+--[[
+minetest.register_on_player_receive_fields(function(player, formname, fields)
+	if formname ~= "default:book" then return end
+	local inv = player:get_inventory()
+	local stack = player:get_wielded_item()
+
+	if fields.save and fields.title ~= "" and fields.text ~= "" then
+		local new_stack, data
+		if stack:get_name() ~= "default:book_written" then
+			local count = stack:get_count()
+			if count == 1 then
+				stack:set_name("default:book_written")
+			else
+				stack:set_count(count - 1)
+				new_stack = ItemStack("default:book_written")
+			end
+		else
+			data = minetest.deserialize(stack:get_metadata())
+		end
+
+		if not data then data = {} end
+		data.title = fields.title
+		data.text = fields.text
+		data.text_len = #data.text
+		data.page = 1
+		data.page_max = math.ceil((#data.text:gsub("[^\n]", "") + 1) / lpp)
+		data.owner = player:get_player_name()
+		local data_str = minetest.serialize(data)
+
+		if new_stack then
+			new_stack:set_metadata(data_str)
+			if inv:room_for_item("main", new_stack) then
+				inv:add_item("main", new_stack)
+			else
+				minetest.add_item(player:getpos(), new_stack)
+			end
+		else
+			stack:set_metadata(data_str)
+		end
+
+	elseif fields.book_next or fields.book_prev then
+		local data = minetest.deserialize(stack:get_metadata())
+		if not data.page then return end
+
+		if fields.book_next then
+			data.page = data.page + 1
+			if data.page > data.page_max then
+				data.page = 1
+			end
+		else
+			data.page = data.page - 1
+			if data.page == 0 then
+				data.page = data.page_max
+			end
+		end
+
+		local data_str = minetest.serialize(data)
+		stack:set_metadata(data_str)
+		book_on_use(stack, player)
+	end
+
+	player:set_wielded_item(stack)
+end)
+--]]