backup

libs/inspect.lua

@@ -1,31 +1,47 @@
 local function print(msg)
-	DEFAULT_CHAT_FRAME:AddMessage(RED_FONT_COLOR_CODE .. msg)
+	DEFAULT_CHAT_FRAME:AddMessage(msg, 1, 0, 0)
 end
 
 local function format_key(k)
 	return type(k) == 'string' and k or '[' .. tostring(k) .. ']'
 end
+
 local function format_value(v)
 	return type(v) == 'string' and '"' .. v .. '"' or tostring(v)
 end
 
-function inspect(...)
-	for i = 1, arg.n do
-		print('arg' .. i..' = ' .. format_value(arg[i]))
-		if type(arg[i]) == 'table' and next(arg[i]) then
-			print('{')
-			for k, v in arg[i] do
-				print('    ' .. format_key(k) .. ' = ' .. format_value(v))
-			end
-			print('}')
+local function print_table(t, max_depth, depth)
+	local indent = strrep(' ', depth * 4)
+	for k, v in t do
+		print(indent .. format_key(k) .. ' = ' .. format_value(v))
+		if type(v) == 'table' and next(v) and depth < max_depth then
+			print(indent .. '{')
+			print_table(v, max_depth, depth + 1)
+			print(indent .. '}')
 		end
 	end
+end
+
+local depth
+
+function inspect(_, ...)
+	arg.n = nil
+	print_table(arg, depth or 2, 0)
+	depth = nil
 	return unpack(arg)
 end
 
-p = setmetatable({}, {
-	__metatable = false,
-	__pow = function(self, v) self(v); return v end,
-	__sub = function(self, v) self(v); return v end,
-	__call = function(_, ...) return inspect(unpack(arg)) end,
-})
+local mt = { __metatable=false, __call=inspect, __div=inspect }
+
+function mt:__index(key)
+	if type(key) == 'number' then
+		depth = key
+	elseif type(key) == 'function' then
+		print('#' .. key())
+	else
+		print('#' .. key)
+	end
+	return self
+end
+
+p = setmetatable({}, mt)