-- LUALOCALS < ---------------------------------------------------------
local ipairs, minetest, nodecore, pairs, vector
    = ipairs, minetest, nodecore, pairs, vector
-- LUALOCALS > ---------------------------------------------------------

local backstop = nodecore.node_backstop

local done = {}
local function pressify(rc)
	if rc.action ~= "pummel" then return end

	local thumpy = rc.toolgroups and rc.toolgroups.thumpy
	if not thumpy then return end

	if done[rc] then return end
	done[rc] = true

	local nr = {}
	for k, v in pairs(rc) do nr[k] = v end

	nr.action = "press"
	nr.toolgroups = nil
	nr.witness = 16

	local oldcheck = nr.check
	nr.check = function(pos, data)
		if not backstop(pos, vector.subtract(data.pointed.under,
				data.pointed.above), 4) then return end

		local g = nodecore.node_group("door", data.pointed.above) or 0
		if g < thumpy then return end

		if oldcheck then return oldcheck(pos, data) end
		return true
	end

	nodecore.register_craft(nr)
end

minetest.after(0, function()
		local t = {}
		for _, v in ipairs(nodecore.registered_recipes) do t[#t + 1] = v end
		minetest.after(0, function()
				for _, v in ipairs(t) do pressify(v) end
			end)
	end)

local oldreg = nodecore.register_craft
nodecore.register_craft = function(def, ...)
	local function helper(...)
		pressify(def)
		return ...
	end
	return helper(oldreg(def, ...))
end

nodecore.register_craft({
		action = "press",
		label = "press node craft",
		priority = -1,
		nodes = {{match = {groups = {stack_as_node = true, stacked = false}}}},
		check = function(pos, data)
			if not backstop(pos, vector.subtract(data.pointed.under,
					data.pointed.above), 4) then return end
			return true
		end,
		after = function(pos, data)
			return nodecore.craft_check(pos,
				minetest.get_node(pos),
				{
					action = "place",
					pointed = data.pointed,
					witness = 16,
					discover = "door place-craft"
				})
		end
	})

local checkedstack = {}
local recipefound = {}
nodecore.register_craft({
		action = "press",
		label = "press place stack",
		priority = 1,
		nodes = {{match = {stacked = true}}},
		check = function(pos, data)
			if not backstop(pos, vector.subtract(data.pointed.under,
					data.pointed.above), 4) then return end

			local stack = nodecore.stack_get(pos)
			if not stack or stack:is_empty() or stack:get_count() ~= 1
			then return end

			local def = stack:get_definition()
			if def and def.type == "node"
			and not def.place_as_item then
				data[checkedstack] = stack
				return true
			end

			data[recipefound] = nodecore.craft_search(pos,
				minetest.get_node(pos),
				{
					action = "place",
					pointed = data.pointed,
					witness = 16,
					discover = "door place-craft"
				})
			return data[recipefound]
		end,
		after = function(pos, data)
			if data[recipefound] then
				return data[recipefound]()
			end
			local stack = data[checkedstack]
			if not stack then return end
			minetest.remove_node(pos)
			local pt = {}
			for k, v in pairs(data.pointed) do pt[k] = v end
			pt.craftdata = {
				witness = 16,
				discover = "door place-craft"
			}
			local def = stack:get_definition()
			if def and def.on_place_node then
				stack = def.on_place_node(stack, nil, pt) or stack
			else
				local param2 = 0
				if def.paramtype2 == "facedir" then
					local dir = vector.subtract(pt.under, pt.above)
					local key = def.on_place == minetest.rotate_node
					and "b" or "k"
					for k, v in pairs(nodecore.facedirs) do
						if vector.equals(v[key], dir) then
							param2 = k
							break
						end
					end
				elseif def.paramtype2 == "4dir" then
					local dir = vector.subtract(pt.under, pt.above)
					param2 = minetest.dir_to_fourdir(dir)
				end
				stack = nodecore.protection_bypass(minetest.item_place_node,
					stack, nil, pt, param2)
			end
			nodecore.node_sound(pos, "place")
			nodecore.witness({pos, data.pointed.above}, "door placement")
			if not stack:is_empty() then
				nodecore.item_eject(pos, stack)
			end
		end
	})
