local me = microexpansion

technic = rawget(_G, "technic") or {}

--local S = technic.getter

local S = function(t)
  return t
end


-- technic.register_power_tool("microexpansion:remote", 300000)

local function get_metadata(toolstack)
  local m = minetest.deserialize(toolstack:get_metadata())
  if not m then m = {} end
  if not m.charge then m.charge = 100 end
  if not m.page then m.page = 1 end
  if not m.query then m.query = "" end
  if not m.crafts then m.crafts = "false" end
  if not m.inv_name then m.inv_name = "main" end
  if not m.query then m.query = "" end
  return m
end

local function chest_formspec(pos, start_id, listname, page_max, q, c)
  local list
  local page_number = ""
  local buttons = ""
  local query = q or ""
  local crafts = (c and "true") or "false"
  local net,cpos = me.get_connected_network(pos)

  if cpos then
    local inv = net:get_inventory()
    if listname and (inv:get_size(listname) > 0 or net:get_item_capacity() > 0) then
      local ctrlinvname = net:get_inventory_name()
      if listname == "main" then
	list = "list[detached:"..ctrlinvname..";"
	  .. listname .. ";0,0.3;8,4;" .. (start_id - 1) .. "]"
      else
	list = "list[context;" .. listname .. ";0,0.3;8,4;" .. (start_id - 1) .. "]"
      end
      if minetest.get_modpath("i3") then
	list = list .. [[
	  list[current_player;main;0,8.5;9,4;]
	]]
      else
	list = list .. [[
	  list[current_player;main;0,8.5;8,1;]
	  list[current_player;main;0,9.73;8,3;8]
	]]
      end
      list = list .. [[
	list[context;recipe;0.22,5.22;3,3;]
	list[context;output;4,6.22;1,1;]
      ]]
      list = list .. [[
	listring[current_player;main]
	listring[detached:]]..ctrlinvname..[[;main]
	listring[current_player;main]
	listring[context;recipe]
	listring[current_player;main]
	listring[context;output]
	listring[current_player;main]
      ]]
      buttons = [[
	button[3.56,4.35;1.8,0.9;tochest;To Drive]
	tooltip[tochest;Move everything from your inventory to the ME network.]
	button[5.4,4.35;0.8,0.9;prev;<]
	button[7.25,4.35;0.8,0.9;next;>]
	tooltip[prev;Previous]
	tooltip[next;Next]
	field[0.29,4.6;2.2,1;filter;;]]..query..[[]
	button[2.1,4.5;0.8,0.5;search;?]
	button[2.75,4.5;0.8,0.5;clear;X]
	tooltip[search;Search]
	tooltip[clear;Reset]
	field[6,5.42;2,1;autocraft;;1]
	tooltip[autocraft;Number of items to Craft]
	checkbox[6,6.45;crafts;crafts;]]..crafts..[[]
	tooltip[crafts;Show only craftable items]
      ]]
    else
      list = "label[3,2;" .. minetest.colorize("red", "No connected storage!") .. "]"
    end
  else
    list = "label[3,2;" .. minetest.colorize("red", "No connected network!") .. "]"
  end
  if page_max then
    page_number = "label[6.15,4.5;" .. math.floor((start_id / 32)) + 1 ..
      "/" .. page_max .."]"
  end

  return [[
    size[9,12.5]
  ]]..
    microexpansion.gui_bg ..
    microexpansion.gui_slots ..
    list ..
  [[
    label[0,-0.23;ME Remote Crafting Terminal]
    field_close_on_enter[filter;false]
    field_close_on_enter[autocraft;false]
  ]]..
    page_number ..
    buttons
end

minetest.register_tool("microexpansion:remote", {
  description = S("Microexpansion Remote"),
  inventory_image = "technic_prospector.png",
  wear_represents = "technic_RE_charge",
  -- on_refill = technic.refill_RE_charge,
  on_use = function(toolstack, user, pointed_thing)
    if not user or not user:is_player() or user.is_fake_player then return end
    local toolmeta = get_metadata(toolstack)
    local net = nil
    if pointed_thing.type == "node" then
      local pos = pointed_thing.under
      pos.z = pos.z - 1
      local net,cpos = me.get_connected_network(pos)
      -- TODO: ensure that pos is a crafting terminal
      if net then
        me.log("REMOTE: is now bound", "error")
	toolmeta.terminal = pos
	toolmeta.controller = cpos
	toolstack:set_metadata(minetest.serialize(toolmeta))
	user:set_wielded_item(toolstack)
      else
        me.log("REMOTE: is not bound", "error")
      end
    end
    if not net then
      net = me.get_connected_network(toolmeta.controller)
    end
    local pos = toolmeta.terminal
  end,
  on_secondary_use = function(toolstack, user, pointed_thing)
    if not user or not user:is_player() or user.is_fake_player then return end
    local toolmeta = get_metadata(toolstack)
    local net = nil
    if not net then
      net = me.get_connected_network(toolmeta.terminal)
    end
    local pos = toolmeta.terminal
    local cpos = toolmeta.controller
    -- if not net then return end

    local charge_to_take = 1

    -- if toolmeta.charge < charge_to_take then return end

    if false and not technic.creative_mode then
      toolmeta.charge = toolmeta.charge - charge_to_take
      toolstack:set_metadata(minetest.serialize(toolmeta))
      -- technic.set_RE_wear(toolstack, toolmeta.charge, technic.power_tools[toolstack:get_name()])
    end

    local page = toolmeta.page
    local inv_name = toolmeta.inv_name
    local query = toolmeta.query
    local crafts = toolmeta.crafts == "true"

    local page_max
    local inv
    local meta
    local own_inv
    local ctrl_inv
    if cpos then
      ctrl_inv = net:get_inventory()
      meta = minetest.get_meta(pos)
      own_inv = meta:get_inventory()
      me.log("REMOTE: invname "..inv_name.." page "..page.." query "..query.." crafts "..((crafts and "true") or "false"), "error")
    end
    if inv_name == "main" then
      inv = ctrl_inv
    else
      inv = own_inv
    end
    if net then
      page_max = math.floor(inv:get_size(inv_name) / 32) + 1
    end

    minetest.show_formspec(user:get_player_name(), "microexpansion:remote_control",
      chest_formspec(pos, page, inv_name, page_max, query, crafts))

    return toolstack
  end,
})

minetest.register_on_player_receive_fields(function(user, formname, fields)
  if formname ~= "microexpansion:remote_control" then return false end
  if not user or not user:is_player() or user.is_fake_player then return end
  local toolstack = user:get_wielded_item()
  if toolstack:get_name() ~= "microexpansion:remote" then return true end

  local toolmeta = get_metadata(toolstack)

  local pos = toolmeta.terminal
  local cpos = toolmeta.controller
  local net
  if toolmeta.terminal then
    net = me.get_connected_network(toolmeta.terminal)
  end

  local page_max
  local inv
  local meta
  local own_inv
  local ctrl_inv
  if cpos then
    ctrl_inv = net:get_inventory()
    meta = minetest.get_meta(pos)
    own_inv = meta:get_inventory()
  end
  if inv_name == "main" then
    inv = ctrl_inv
  else
    inv = own_inv
  end

  local page = toolmeta.page
  local crafts = (toolmeta.crafts == "true" and true) or false
  local inv_name = toolmeta.inv_name
  for field, value in pairs(fields) do
    me.log("REMOTE: form "..field.." value "..value, "error")
    if field == "next" then
      if page + 32 <= inv:get_size(inv_name) then
        page = page + 32
        toolmeta.page = page
        --meta:set_string("formspec", chest_formspec(pos, page, inv_name, page_max, fields.filter, crafts))
      end        
    elseif field == "prev" then
      if page - 32 >= 1 then
        page = page - 32
        toolmeta.page = page
        --meta:set_string("formspec", chest_formspec(pos, page, inv_name, page_max, fields.filter, crafts))
      end
    elseif field == "crafts" then
      toolmeta.crafts = value
    elseif field == "filter" then
      toolmeta.filter = value
    elseif field == "search" then
    elseif field == "clear" then
      own_inv:set_size("search", 0)
      own_inv:set_size("crafts", 0)
      toolmeta.page = 1
      toolmeta.inv_name = "main"
      toolmeta.crafts = "false"
      toolmeta.page_max = math.floor(ctrl_inv:get_size(inv_name) / 32) + 1
      --meta:set_string("formspec", chest_formspec(pos, 1, inv_name, page_max))
    elseif field == "tochest" then
    elseif field == "autocraft" then
      if tonumber(value) ~= nil then
        toolmeta.autocraft = value
      end
    elseif field == "key_enter_field" and value == "autocraft" then
      local count = tonumber(toolmeta.autocraft)
      if not own_inv:get_stack("output", 1):is_empty() and count < math.pos(2,16) then
        me.autocraft(me.autocrafterCache, pos, net, own_inv, ctrl_inv, count)
      end
    end
  end
  toolstack:set_metadata(minetest.serialize(toolmeta))
  user:set_wielded_item(toolstack)
  return true
end)

minetest.register_craft({
  output = "microexpansion:remote",
  recipe = {
    {"basic_materials:brass_ingot", "", "pipeworks:teleport_tube_1"},
    {"", "technic:control_logic_unit", "basic_materials:brass_ingot"},
    {"", "", ""},
  }
})