Add top and bottom button to grid, add device list to controller

nodes/controller.lua

@@ -1,11 +1,32 @@
 -- holostorage controller
 
+local function get_formspec(list)
+	local tx = {}
+	for _,item in pairs(list) do
+		table.insert(tx, item[1].."x "..item[2])
+	end
+
+	local list = "textlist[0,0.5;7.8,3.5;devices;"..table.concat(tx, ",").."]"
+
+	return "size[8,8.5]"..
+		default.gui_bg..
+		default.gui_bg_img..
+		default.gui_slots..
+		"label[0,0;Controller]"..
+		list..
+		"list[current_player;main;0,4.25;8,1;]"..
+		"list[current_player;main;0,5.5;8,3;8]"..
+		"listring[current_player;main]"..
+		default.get_hotbar_bg(0, 4.25)
+end
+
 minetest.register_node("holostorage:controller", {
 	description = "Storage Controller",
 	tiles = {"holostorage_controller.png"},
 	on_construct = function (pos)
 		local meta = minetest.get_meta(pos)
 		meta:set_string("infotext", "Storage Controller")
+		meta:set_string("formspec", get_formspec({}))
 		meta:set_string("active", 1)
 		meta:set_string("channel", "controller"..minetest.pos_to_string(pos))
 		minetest.swap_node(pos, {name="holostorage:controller_active"})
@@ -25,6 +46,10 @@ minetest.register_node("holostorage:controller", {
 	}
 })
 
+local function compare(a,b)
+	return a[1] > b[1]
+end
+
 minetest.register_node("holostorage:controller_active", {
 	description = "Storage Controller",
 	tiles = {
@@ -41,6 +66,34 @@ minetest.register_node("holostorage:controller_active", {
 	paramtype = "light",
 	light_source = 8,
 	drop = "holostorage:controller",
+	on_rightclick = function (pos, node, clicker, itemstack, pointed_thing)
+		local meta = minetest.get_meta(pos)
+		local network_id = minetest.hash_node_position(pos)
+		local devices = {}
+
+		local network = holostorage.network.networks[network_id]
+		if network and network.all_nodes then
+			for _,pos in pairs(network.all_nodes) do
+				local node = minetest.get_node(pos)
+				local ndname = minetest.registered_nodes[node.name].description
+				if not devices[ndname] then
+					devices[ndname] = 0
+				end
+				devices[ndname] = devices[ndname] + 1
+			end
+		end
+		
+		local tfsort = {}
+		
+		for name, count in pairs(devices) do
+			tfsort[#tfsort + 1] = {count, name}
+		end
+
+		table.sort(tfsort, compare)
+
+		meta:set_string("formspec", get_formspec(tfsort))
+		return itemstack
+	end,
 	groups = {
 		cracky = 1,
 		not_in_creative_inventory = 1,

nodes/grid.lua

@@ -60,12 +60,16 @@ function holostorage.grid.get_formspec(scroll_lvl, pages, craft_inv)
 	end
 
 	local scroll = ""
+	if pages ~= 0 then
 		if scroll_lvl < pages then
 			scroll = scroll.."button[7,"..(height-0.5)..";1,1;down;Down]"
+			scroll = scroll.."button[7,"..(height-1.5)..";1,1;bot;Bottom]"
 		end
 
 		if scroll_lvl > 0 then
 			scroll = scroll.."button[7,0.5;1,1;up;Up]"
+			scroll = scroll.."button[7,1.5;1,1;top;Top]"
+		end
 	end
 
 	return "size[8,12]"..
@@ -150,6 +154,10 @@ local function on_receive_fields(pos, formname, fields, sender)
 		if meta:get_int("scroll_len") > 0 then
 			meta:set_int("scroll_len", meta:get_int("scroll_len") - 1)
 		end
+	elseif fields["top"] then
+		meta:set_int("scroll_len", 0)
+	elseif fields["bot"] then
+		meta:set_int("scroll_len", meta:get_int("scroll_height"))
 	elseif fields["down"] then
 		if meta:get_int("scroll_len") < meta:get_int("scroll_height") then
 			meta:set_int("scroll_len", meta:get_int("scroll_len") + 1)