local bookshelf_formspec =
"size[8,7;]" ..
"list[context;books;0,0.3;8,2;]" ..
"list[current_player;main;0,2.85;8,1;]" ..
"list[current_player;main;0,4.08;8,3;8]" ..
"listring[context;books]" ..
"listring[current_player;main]" ..
default.get_hotbar_bg(0,2.85)

local function update_bookshelf(pos)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
local invlist = inv:get_list("books")

local formspec = bookshelf_formspec
-- Inventory slots overlay
local bx, by = 0, 0.3
local n_written, n_empty = 0, 0
for i = 1, 16 do
    if i == 9 then
        bx = 0
        by = by + 1
    end
    local stack = invlist[i]
    if stack:is_empty() then
        formspec = formspec ..
            "image[" .. bx .. "," .. by .. ";1,1;default_bookshelf_slot.png]"
    else
        local metatable = stack:get_meta():to_table() or {}
        if metatable.fields and metatable.fields.text then
            n_written = n_written + stack:get_count()
        else
            n_empty = n_empty + stack:get_count()
        end
    end
    bx = bx + 1
end
meta:set_string("formspec", formspec)
if n_written + n_empty == 0 then
    meta:set_string("infotext", "Empty Library Bookshelf")
else
    meta:set_string("infotext", "Library Bookshelf", n_written, n_empty)
end
end

minetest.register_node("library:bookshelf", {
description = "Library Bookshelf",
tiles = {"default_wood.png", "default_wood.png", "default_wood.png",
    "default_wood.png", "default_bookshelf.png", "default_bookshelf.png"},
paramtype2 = "facedir",
is_ground_content = false,
groups = {choppy = 3, oddly_breakable_by_hand = 2, flammable = 3},
sounds = default.node_sound_wood_defaults(),

on_construct = function(pos)
    local meta = minetest.get_meta(pos)
    local inv = meta:get_inventory()
    inv:set_size("books", 8 * 2)
    update_bookshelf(pos)
end,
can_dig = function(pos,player)
    local inv = minetest.get_meta(pos):get_inventory()
    return inv:is_empty("books") 
end,
allow_metadata_inventory_put = function(pos, listname, index, stack,player)
    if minetest.get_item_group(stack:get_name(), "book") ~= 0 and (has or not(minetest.is_protected(pos, player:get_player_name())))then
        return stack:get_count()
    end
    return 0
end,

allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
    local has, missing = minetest.check_player_privs(player:get_player_name(),  {areas = true})
    if has or not(minetest.is_protected(pos, player:get_player_name())) then
        return count
    else return 0
    end

end,

--if players own the area or have areas, then return 1 (to manage inv), else return -1 (to give infinite books)
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
    local has, missing = minetest.check_player_privs(player:get_player_name(),  {areas = true})
    if has or not(minetest.is_protected(pos, player:get_player_name())) then
        return stack:get_count()
    end
    return -1
end,


on_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
    minetest.log("action", player:get_player_name() ..
        " moves stuff in library bookshelf at " .. minetest.pos_to_string(pos))
    update_bookshelf(pos)
end,
on_metadata_inventory_put = function(pos, listname, index, stack, player)
    minetest.log("action", player:get_player_name() ..
        " puts stuff to library bookshelf at " .. minetest.pos_to_string(pos))
    update_bookshelf(pos)
end,
on_metadata_inventory_take = function(pos, listname, index, stack, player)
    minetest.log("action", player:get_player_name() ..
        " takes stuff from library bookshelf at " .. minetest.pos_to_string(pos))
    update_bookshelf(pos)
end,
on_blast = function(pos)
    local drops = {}
    default.get_inventory_drops(pos, "books", drops)
    drops[#drops+1] = "default:bookshelf"
    minetest.remove_node(pos)
    return drops
end,
})