You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

358 lines
11 KiB

local _, addon = ...
local L = TomTomLocals
local ldb = LibStub("LibDataBroker-1.1")
local ldbicon = LibStub("LibDBIcon-1.0")
local function initPasteWindow()
if addon.pasteWindow then
return addon.pasteWindow
end
addon.pasteWindow = CreateFrame("Frame", "TomTomPaste", UIParent, "DefaultPanelTemplate,ClickToDragTemplate")
local frame = addon.pasteWindow
frame:SetHeight(450)
frame:SetWidth(465)
frame:SetFrameStrata("HIGH")
frame:ClearAllPoints()
frame.TitleContainer.TitleText:SetText(L["TomTom Paste"])
frame:SetPoint("CENTER", 0, 200)
frame:Hide()
-- Edit box time!
frame.EditBox = CreateFrame("Frame", "TomTomPasteEditBox", frame, "TomTomScrollingEditBoxTemplate")
local editBox = frame.EditBox
editBox:SetPoint("TOPLEFT", frame, "TOPLEFT", 14, -80)
editBox:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -10, 40)
editBox:SetWidth(435)
editBox:SetHeight(85)
local label = L["Add several /way commands here and click Paste"]
editBox.Label = editBox:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall")
editBox.Label:SetPoint("BOTTOMLEFT", editBox, "TOPLEFT", 0, 5)
editBox.Label:SetPoint("BOTTOMRIGHT", editBox, "TOPRIGHT", 0, 5)
editBox.Label:SetWordWrap(true)
editBox.Label:SetMaxLines(9)
editBox.Label:SetJustifyV("BOTTOM")
editBox.Label:SetJustifyH("LEFT")
editBox.Label:SetText(label)
local function OnTextChanged(o, editBox, userChanged)
local text = editBox:GetText()
end
local function OnEscapePressed(o, editBox)
editBox:ClearFocus()
end
local function OnEnterPressed(o, editBox)
if IsControlKeyDown() then
editBox:ClearFocus()
frame.PasteButton:Click()
return
end
local text = editBox:GetText()
text = text .. "\n"
editBox:SetText(text)
end
editBox.ScrollingEditBox:RegisterCallback("OnTextChanged", OnTextChanged, editBox)
editBox.ScrollingEditBox:RegisterCallback("OnEscapePressed", OnEscapePressed, editBox)
editBox.ScrollingEditBox:RegisterCallback("OnEnterPressed", OnEnterPressed, editBox)
local scrollBox = editBox.ScrollingEditBox:GetScrollBox()
ScrollUtil.RegisterScrollBoxWithScrollBar(scrollBox, editBox.ScrollBar)
local scrollBoxAnchorsWithBar = {
CreateAnchor("TOPLEFT", editBox.ScrollingEditBox, "TOPLEFT", 0, 0),
CreateAnchor("BOTTOMRIGHT", editBox.ScrollingEditBox, "BOTTOMRIGHT", -18, -1),
}
local scrollBoxAnchorsWithoutBar = {
scrollBoxAnchorsWithBar[1],
CreateAnchor("BOTTOMRIGHT", editBox.ScrollingEditBox, "BOTTOMRIGHT", -2, -1),
}
ScrollUtil.AddManagedScrollBarVisibilityBehavior(scrollBox, editBox.ScrollBar, scrollBoxAnchorsWithBar, scrollBoxAnchorsWithoutBar)
frame.CloseButton = CreateFrame("Button", nil, frame, "UIPanelButtonTemplate")
frame.CloseButton:SetText(L["Close"])
frame.CloseButton:SetHeight(23)
frame.CloseButton:SetWidth(100)
frame.CloseButton:ClearAllPoints()
frame.CloseButton:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -6, 5)
frame.CloseButton:SetScript("OnClick", function(button)
frame:SetShown(false)
end)
frame.PasteButton = CreateFrame("Button", nil, frame, "UIPanelButtonTemplate")
frame.PasteButton:SetText(L["Paste"])
frame.PasteButton:SetHeight(23)
frame.PasteButton:SetWidth(100)
frame.PasteButton:ClearAllPoints()
frame.PasteButton:SetPoint("RIGHT", frame.CloseButton, "LEFT", 0, 0)
frame.PasteButton:SetScript("OnClick", function(button)
local text = frame.EditBox.ScrollingEditBox:GetText()
local lines = {string.split("\n", text)}
for idx, line in ipairs(lines) do
-- remove the first token from the commands
line = line:gsub("^%S+", "")
if line:match("%S+") then
addon.SlashWayCommand(line)
end
end
end)
return addon.pasteWindow
end
--[[--------------------------------------------------------------------------
-- Minimap Button
----------------------------------------------------------------------------]]
local ldb_feed
local iconName = "TomTom-Paste"
local function getMinimapPasteButton()
if not ldb_feed then
ldb_feed = ldb:NewDataObject("TomTom-Paste", {
type = "data source",
icon = "interface/icons/inv_misc_note_03",
text = L["TomTom Paste"],
OnTooltipShow = function(tooltip)
tooltip:AddLine(L["Toggle the TomTom Paste Window"])
end,
OnClick = function()
local window = initPasteWindow()
window:SetShown(not window:IsShown())
end,
showInCompartment = false,
})
ldbicon:Register(iconName, ldb_feed, addon.db.profile.paste)
end
end
addon.compartmentButtonObject = {
text = L["TomTom Paste"],
icon = "interface/icons/inv_misc_note_03",
notCheckable = true,
func = function(button, menuInputData, menu)
local window = initPasteWindow()
window:SetShown(not window:IsShown())
end,
funcOnEnter = function(button)
MenuUtil.ShowTooltip(button, function(tooltip)
tooltip:SetText(L["Open the TomTom Paste window"])
end)
end,
funcOnLeave = function(button)
MenuUtil.HideTooltip(button)
end,
}
local function updateCompartmentButton(show)
if not AddonCompartmentFrame then return end
if show then
AddonCompartmentFrame:RegisterAddon(addon.compartmentButtonObject)
else
for idx, obj in ipairs(AddonCompartmentFrame.registeredAddons) do
if obj == addon.compartmentButtonObject then
table.remove(AddonCompartmentFrame.registeredAddons, idx)
AddonCompartmentFrame:UpdateDisplay()
return
end
end
end
end
--[[--------------------------------------------------------------------------
-- Config Handler for /ttpaste
----------------------------------------------------------------------------]]
function addon:PasteConfigChanged()
if addon.profile.paste.minimap_button then
getMinimapPasteButton()
ldbicon:Show(iconName)
else
getMinimapPasteButton()
ldbicon:Hide(iconName)
end
local showCompartment = addon.profile.paste.addon_compartment_button
updateCompartmentButton(showCompartment)
end
--[[--------------------------------------------------------------------------
-- Slash Command for /ttpaste
----------------------------------------------------------------------------]]
SLASH_TOMTOM_PASTE1 = "/ttpaste"
SLASH_TOMTOM_PASTE2 = "/tomtompaste"
SLASH_TOMTOM_PASTE3 = "/ttp"
local slashModule = {}
function slashModule:InitPageDB()
if not addon.db.profile.pastePages then
addon.db.profile.pastePages = {}
end
end
function slashModule:Toggle()
local window = initPasteWindow()
window:SetShown(not window:IsShown())
end
function slashModule:GetPage(title)
self:InitPageDB()
return addon.db.profile.pastePages[title]
end
function slashModule:SetPage(title, contents)
self:InitPageDB()
addon.db.profile.pastePages[title] = contents
end
function slashModule:DeletePage(title)
self:InitPageDB()
addon.db.profile.pastePages[title] = nil
end
function slashModule:ListPages()
self:InitPageDB()
local titles = {}
for k,v in pairs(addon.db.profile.pastePages or {}) do
table.insert(titles, k)
end
if #titles > 0 then
addon:Printf(L["Saved pages: %s"], table.concat(titles, ", "))
else
addon:Printf(L["No pages saved"])
end
end
function slashModule:getEditBoxText()
return addon.pasteWindow.EditBox.ScrollingEditBox:GetText()
end
function slashModule:setEditBoxText(text)
return addon.pasteWindow.EditBox.ScrollingEditBox:SetText(text)
end
function slashModule:SavePage(title)
local contents = self:getEditBoxText()
if not contents or #contents <= 0 then
addon:Printf(L["No contents to save"])
return
end
if not title then
addon:Printf(L["Must specify page name"])
return
end
self:SetPage(title, contents)
addon:Printf(L["Saved %d characters to page '%s'"], #contents, title)
end
function slashModule:LoadPage(title)
if not title then
addon:Printf(L["Must specify a page title to load"])
return
end
local contents = self:GetPage(title)
if not contents then
addon:Printf(L["No page found with title '%s'"], title)
return
end
local window = initPasteWindow()
window:SetShown(true)
self:setEditBoxText(contents)
addon:Printf(L["Loaded %d characters from page '%s'"], #contents, title)
end
function slashModule:RemovePage(title)
if not title then
addon:Printf(L["Must specify a page title to remove"])
return
end
local contents = self:GetPage(title)
if not contents then
addon:Printf(L["No page found with title '%s'"], title)
return
end
self:DeletePage(title)
addon:Printf(L["Removed %d characters from page '%s'"], #contents, title)
end
function slashModule:ToggleMinimap(action)
local current = addon.db.profile.paste.minimap_button
-- Coerce to boolean just in case something silly happens :)
current = not not current
local shown = current
if action == "show" then
shown = true
elseif action == "hide" then
shown = false
else
shown = not shown
end
if shown then
addon:Printf(L["Showing the TomTom-Paste minimap button"])
else
addon:Printf(L["Hiding the TomTom-Paste minimap button"])
end
addon.db.profile.paste.minimap_button = shown
addon:PasteConfigChanged()
end
SlashCmdList["TOMTOM_PASTE"] = function(msg)
local subCommand, remainder
if not msg then
subCommand = L["toggle"]
else
subCommand, remainder = msg:match("(%S+)%s*(.*)$")
subCommand = subCommand and subCommand:lower()
end
if not subCommand then
slashModule:Toggle()
elseif subCommand == L["toggle"] then
slashModule:Toggle()
elseif subCommand == L["list"] then
slashModule:ListPages()
elseif subCommand == L["save"] then
slashModule:SavePage(remainder)
elseif subCommand == L["load"] then
slashModule:LoadPage(remainder)
elseif subCommand == L["remove"] then
slashModule:RemovePage(remainder)
elseif subCommand == L["minimap"] then
slashModule:ToggleMinimap(remainder)
else
addon:Printf(L["Usage: /ttpaste [command]"])
addon:Printf(L[" /ttpaste toggle - Show/hide the paste window"])
addon:Printf(L[" /ttpaste list - List the titles of pages that have been saved"])
addon:Printf(L[" /ttpaste save [title] - Save the current contents of the window with the given name"])
addon:Printf(L[" /ttpaste load [title] - Load a saved page to the paste window"])
addon:Printf(L[" /ttpaste remove [title] - Remove a saved page"])
addon:Printf(L[" /ttpaste minimap - Show or Hide the minimap button for the paste window"])
addon:Printf(L[" /ttpaste help - This help message"])
end
end