Initial commit: Chatter v1.2.11 (Curse package)

Modules/Scrollback.lua

@@ -0,0 +1,90 @@
+local mod = Chatter:NewModule("Scrollback")
+local L = LibStub("AceLocale-3.0"):GetLocale("Chatter")
+mod.modName = L["Scrollback"]
+mod.toggleLabel = L["Enable Scrollback length modification"]
+
+local defaults = {
+	profile = {}
+}
+
+local options = {}
+
+local cache = setmetatable({}, {__mode='k'})
+
+local function acquire()
+	local t = next(cache) or {}
+	cache[t] = nil
+	return t
+end
+
+local function reclaim(t)
+	for k in pairs(t) do
+		t[k] = nil
+	end
+	cache[t] = true
+end
+
+local function setlines(frame, lines)
+	if frame:GetMaxLines() ~= lines then 
+		local history = acquire()
+		for regions = frame:GetNumRegions(),1,-1 do
+			local region = select(regions, frame:GetRegions())
+			if region:GetObjectType() == "FontString" then
+				table.insert(history, {region:GetText(), region:GetTextColor() })
+			end
+		end
+
+		frame:SetMaxLines(lines or 250)
+
+		Chatter.loading = true
+
+		for k,v in pairs(history) do
+			frame:AddMessage(unpack(v))
+		end
+
+		Chatter.loading = false
+
+		reclaim(history)
+	end
+end
+
+function mod:OnInitialize()
+	self.db = Chatter.db:RegisterNamespace("Scrollback", defaults)
+	for i = 1, NUM_CHAT_WINDOWS do
+		local s = "FRAME_" .. i
+		local frame = _G["ChatFrame" .. i]
+		options[s] = {
+			type = "range",
+			name = L["Chat Frame "] .. i,
+			desc = L["Chat Frame "] .. i,
+			min = 250,
+			max = 2500,
+			step = 10,
+			get = function() return self.db.profile[s] or 250 end,
+			set = function(info, value)
+				self.db.profile[s] = value
+				setlines(frame, value)
+			end
+		}
+	end
+end
+
+function mod:OnEnable()
+	for i = 1, NUM_CHAT_WINDOWS do
+		setlines(_G["ChatFrame"..i], self.db.profile["FRAME_"..i])
+	end
+end
+
+function mod:OnDisable()
+	for i = 1, NUM_CHAT_WINDOWS do
+		setlines(_G["ChatFrame"..i], 250)
+	end
+end
+
+function mod:GetOptions()
+	return options
+end
+
+function mod:Info()
+	return L["Lets you set the scrollback length of your chat frames."]
+end