feat: add spell translation panel for scanning, previewing, and overwriting macros

MacroToolkit/MacroToolkit.lua

@@ -48,7 +48,7 @@ MT.defaults = {
         fonts = {edfont = "Friz Quadrata TT", edsize = 10, errfont = "Friz Quadrata TT", errsize = 10,
             mfont = "Friz Quadrata TT", mifont = "Friz Quadrata TT", misize = 10},
     },
-    global = {custom = {}, extended = {}, extra = {}, allcharmacros = true},
+    global = {custom = {}, extended = {}, extra = {}, allcharmacros = true, spellTranslations = {}},
     char = {extended = {}, wodupgrade = false, macros = {}},
 }
 
@@ -105,6 +105,7 @@ function MT:eventHandler(this, event, arg1, ...)
             if not C_AddOns.IsAddOnLoaded("Blizzard_MacroUI") then C_AddOns.LoadAddOn("Blizzard_MacroUI") end
             if not MT.db.global.custom then MT.db.global.custom = {} end
             if not MT.db.global.extra then MT.db.global.extra = {} end
+            if not MT.db.global.spellTranslations then MT.db.global.spellTranslations = {} end
             for _, c in ipairs(MT.db.global.custom) do
                 _G[format("SLASH_MACROTOOLKIT_CUSTOM_%s%d", string.upper(c.n), 1)] = format("%s%s", MT.slash, c.n)
                 SlashCmdList[format("MACROTOOLKIT_CUSTOM_%s", string.upper(c.n))] = function(input) MT:DoCustomCommand(c.s, input) end
@@ -280,6 +281,7 @@ function MT:eventHandler(this, event, arg1, ...)
                 MacroToolkit.usingiconlib = true
             end
         end
+        if MT.ScanSpellTranslations then MT:ScanSpellTranslations() end
     end
 end
 
@@ -936,6 +938,7 @@ function MT:MacroFrameUpdate()
 
     if numMacros > 0 then MacroToolkitClear:Enable()
     else MacroToolkitClear:Disable() end
+    if MT.UpdateTranslationWorkspace then MT:UpdateTranslationWorkspace() end
 end
 
 function MT:ContainerOnLoad(container)
@@ -1097,6 +1100,7 @@ function MT:SaveMacro()
                 MT:UpdateIcon(_G[n])
             else EditMacro(MTF.selectedMacro, nil, nil, MacroToolkitText:GetText()) end
         end
+        if MT.CaptureMacroSpellTokens then MT:CaptureMacroSpellTokens(MacroToolkitText:GetText()) end
         MTF.textChanged = nil
     end
 end

MacroToolkit/locales/enUS.lua

@@ -146,6 +146,21 @@ L["Spell ID"] = true
 L["Search by spell ID"] = true
 L["(experimental)"] = true
 L["Reset position"] = true
+L["Spell translation"] = true
+L["Translation preview"] = true
+L["Saved translations"] = true
+L["Save spells"] = true
+L["Convert"] = true
+L["Overwrite"] = true
+L["Select a macro to translate"] = true
+L["Convert the selected macro to preview localized spell names"] = true
+L["Saved %d spell translations"] = true
+L["Saved %d macro spells and %d spellbook spells"] = true
+L["Saved %d macro spells, %d spellbook spells, and updated %d spells from saved data"] = true
+L["Translated %d spell references"] = true
+L["No stored spell translations matched this macro"] = true
+L["Convert a macro before overwriting it"] = true
+L["Overwrote the selected macro with translated spell names"] = true
 
 --conditions
 L["Condition Builder"] = true

MacroToolkit/modules/mainframe.lua

@@ -400,10 +400,162 @@ function MT:CreateMTFrame()
         mtmfscroll:SetScript("OnSizeChanged", function(_, w, _) mtmfscrollchild:SetWidth(w) end)
     end
 
+    local mttranslationbg = CreateFrame("Frame", "MacroToolkitTranslationBg", UIParent, BackdropTemplateMixin and "BackdropTemplate")
+    do
+        mttranslationbg:SetFrameStrata(mtframe:GetFrameStrata())
+        mttranslationbg:SetToplevel(true)
+        mttranslationbg:SetPoint("TOPLEFT", mtframe, "TOPRIGHT", 5, 0)
+        mttranslationbg:SetPoint("BOTTOMLEFT", mtframe, "BOTTOMRIGHT", 5, 0)
+        mttranslationbg:SetWidth(302)
+        mttranslationbg:SetBackdrop({
+            bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background",
+            edgeFile = "Interface\\DialogFrame\\UI-DialogBox-Border",
+            tile = true,
+            tileSize = 32,
+            edgeSize = 32,
+            insets = {left = 11, right = 12, top = 12, bottom = 11},
+        })
+        mttranslationbg:Hide()
+    end
+
+    local mttranslationtitle = mttranslationbg:CreateFontString("MacroToolkitTranslationLabel", "ARTWORK", "GameFontHighlightSmall")
+    do
+        mttranslationtitle:SetText(L["Spell translation"])
+        mttranslationtitle:SetFontObject("GameFontNormal")
+        mttranslationtitle:SetPoint("TOP", 0, -18)
+    end
+
+    local mttranslationlineleft = mttranslationbg:CreateTexture(nil, "ARTWORK")
+    do
+        mttranslationlineleft:SetTexture("Interface\\ClassTrainerFrame\\UI-ClassTrainer-HorizontalBar")
+        mttranslationlineleft:SetSize(96, 12)
+        mttranslationlineleft:SetPoint("TOPLEFT", 18, -34)
+        mttranslationlineleft:SetTexCoord(0, 0.75, 0, 0.25)
+    end
+
+    local mttranslationlineright = mttranslationbg:CreateTexture(nil, "ARTWORK")
+    do
+        mttranslationlineright:SetTexture("Interface\\ClassTrainerFrame\\UI-ClassTrainer-HorizontalBar")
+        mttranslationlineright:SetSize(96, 12)
+        mttranslationlineright:SetPoint("TOPRIGHT", -18, -34)
+        mttranslationlineright:SetTexCoord(0, 0.75, 0, 0.25)
+    end
+
+    local mttranslationdesc = mttranslationbg:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall")
+    do
+        mttranslationdesc:SetText(L["Convert the selected macro to preview localized spell names"])
+        mttranslationdesc:SetJustifyH("CENTER")
+        mttranslationdesc:SetPoint("TOPLEFT", 24, -48)
+        mttranslationdesc:SetPoint("TOPRIGHT", -24, -48)
+        mttranslationdesc:SetTextColor(0.75, 0.75, 0.75, 1)
+    end
+
+    local mttranslationsave = CreateFrame("Button", "MacroToolkitTranslateSave", mttranslationbg, "BackdropTemplate,UIPanelButtonTemplate")
+    do
+        mttranslationsave:SetSize(86, 22)
+        mttranslationsave:SetPoint("TOPLEFT", 16, -82)
+        mttranslationsave:SetText(L["Save spells"])
+        mttranslationsave:SetScript("OnClick", function() MT:SaveCurrentSpellTranslations() end)
+    end
+
+    local mttranslateconvert = CreateFrame("Button", "MacroToolkitTranslateConvert", mttranslationbg, "BackdropTemplate,UIPanelButtonTemplate")
+    do
+        mttranslateconvert:SetSize(86, 22)
+        mttranslateconvert:SetPoint("LEFT", mttranslationsave, "RIGHT", 5, 0)
+        mttranslateconvert:SetText(L["Convert"])
+        mttranslateconvert:SetScript("OnClick", function() MT:ConvertSelectedMacroToCurrentLocale() end)
+    end
+
+    local mttranslateoverwrite = CreateFrame("Button", "MacroToolkitTranslateOverwrite", mttranslationbg, "BackdropTemplate,UIPanelButtonTemplate")
+    do
+        mttranslateoverwrite:SetSize(86, 22)
+        mttranslateoverwrite:SetPoint("LEFT", mttranslateconvert, "RIGHT", 5, 0)
+        mttranslateoverwrite:SetText(L["Overwrite"])
+        mttranslateoverwrite:SetScript("OnClick", function() MT:OverwriteSelectedMacroWithTranslation() end)
+    end
+
+    local mttranslationstatus = mttranslationbg:CreateFontString("MacroToolkitTranslationStatus", "ARTWORK", "GameFontNormalSmall")
+    do
+        mttranslationstatus:SetPoint("TOPLEFT", mttranslationsave, "BOTTOMLEFT", 0, -8)
+        mttranslationstatus:SetPoint("TOPRIGHT", -16, -112)
+        mttranslationstatus:SetJustifyH("LEFT")
+        mttranslationstatus:SetJustifyV("TOP")
+        mttranslationstatus:SetHeight(28)
+        mttranslationstatus:SetTextColor(0.75, 0.75, 0.75, 1)
+    end
+
+    local mttranslationpreviewlabel = mttranslationbg:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall")
+    do
+        mttranslationpreviewlabel:SetText(L["Translation preview"])
+        mttranslationpreviewlabel:SetPoint("TOPLEFT", 18, -140)
+    end
+
+    local mttranslationinset = CreateFrame("Frame", nil, mttranslationbg, BackdropTemplateMixin and "BackdropTemplate")
+    do
+        mttranslationinset:SetPoint("TOPLEFT", 14, -156)
+        mttranslationinset:SetPoint("TOPRIGHT", -14, -156)
+        mttranslationinset:SetHeight(120)
+        mttranslationinset:SetBackdrop({bgFile = "Interface\\Tooltips\\UI-Tooltip-Background", edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", edgeSize = 16, tileSize = 16, tile = true, insets = {left = 5, right = 5, top = 5, bottom = 5}})
+        mttranslationinset:SetBackdropBorderColor(_G.TOOLTIP_DEFAULT_COLOR.r, _G.TOOLTIP_DEFAULT_COLOR.g, _G.TOOLTIP_DEFAULT_COLOR.b)
+        mttranslationinset:SetBackdropColor(_G.TOOLTIP_DEFAULT_BACKGROUND_COLOR.r, _G.TOOLTIP_DEFAULT_BACKGROUND_COLOR.g, _G.TOOLTIP_DEFAULT_BACKGROUND_COLOR.b)
+    end
+
+    local mttranslationscroll = CreateFrame("ScrollFrame", "MacroToolkitTranslationScrollFrame", mttranslationinset, "BackdropTemplate,UIPanelScrollFrameTemplate")
+    do
+        mttranslationscroll:SetPoint("TOPLEFT", 10, -6)
+        mttranslationscroll:SetPoint("BOTTOMRIGHT", -26, 4)
+    end
+
+    local mttranslationscrollchild = CreateFrame("EditBox", "MacroToolkitTranslationText", mttranslationscroll, "BackdropTemplate")
+    do
+        mttranslationscrollchild:SetMultiLine(true)
+        mttranslationscrollchild:SetAutoFocus(false)
+        mttranslationscrollchild:SetCountInvisibleLetters(true)
+        mttranslationscrollchild:SetAllPoints()
+        mttranslationscrollchild:SetScript("OnEscapePressed", EditBox_ClearFocus)
+        local font = LSM:Fetch(LSM.MediaType.FONT, MT.db.profile.fonts.edfont)
+        mttranslationscrollchild:SetFont(font, MT.db.profile.fonts.errsize, "")
+        mttranslationscroll:SetScrollChild(mttranslationscrollchild)
+        mttranslationscroll:SetScript("OnSizeChanged", function(_, w, _) mttranslationscrollchild:SetWidth(w) end)
+    end
+
+    local mtsavedpreviewlabel = mttranslationbg:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall")
+    do
+        mtsavedpreviewlabel:SetText(L["Saved translations"])
+        mtsavedpreviewlabel:SetPoint("TOPLEFT", mttranslationinset, "BOTTOMLEFT", 4, -10)
+    end
+
+    local mtsavedpreviewinset = CreateFrame("Frame", nil, mttranslationbg, BackdropTemplateMixin and "BackdropTemplate")
+    do
+        mtsavedpreviewinset:SetPoint("TOPLEFT", mttranslationinset, "BOTTOMLEFT", 0, -26)
+        mtsavedpreviewinset:SetPoint("BOTTOMRIGHT", -14, 14)
+        mtsavedpreviewinset:SetBackdrop({bgFile = "Interface\\Tooltips\\UI-Tooltip-Background", edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", edgeSize = 16, tileSize = 16, tile = true, insets = {left = 5, right = 5, top = 5, bottom = 5}})
+        mtsavedpreviewinset:SetBackdropBorderColor(_G.TOOLTIP_DEFAULT_COLOR.r, _G.TOOLTIP_DEFAULT_COLOR.g, _G.TOOLTIP_DEFAULT_COLOR.b)
+        mtsavedpreviewinset:SetBackdropColor(_G.TOOLTIP_DEFAULT_BACKGROUND_COLOR.r, _G.TOOLTIP_DEFAULT_BACKGROUND_COLOR.g, _G.TOOLTIP_DEFAULT_BACKGROUND_COLOR.b)
+    end
+
+    local mtsavedpreviewscroll = CreateFrame("ScrollFrame", "MacroToolkitSavedTranslationScrollFrame", mtsavedpreviewinset, "BackdropTemplate,UIPanelScrollFrameTemplate")
+    do
+        mtsavedpreviewscroll:SetPoint("TOPLEFT", 10, -6)
+        mtsavedpreviewscroll:SetPoint("BOTTOMRIGHT", -26, 4)
+    end
+
+    local mtsavedpreviewtext = CreateFrame("EditBox", "MacroToolkitSavedTranslationText", mtsavedpreviewscroll, "BackdropTemplate")
+    do
+        mtsavedpreviewtext:SetMultiLine(true)
+        mtsavedpreviewtext:SetAutoFocus(false)
+        mtsavedpreviewtext:SetCountInvisibleLetters(true)
+        mtsavedpreviewtext:SetEnabled(false)
+        mtsavedpreviewtext:SetAllPoints()
+        local font = LSM:Fetch(LSM.MediaType.FONT, MT.db.profile.fonts.errfont)
+        mtsavedpreviewtext:SetFont(font, MT.db.profile.fonts.errsize, "")
+        mtsavedpreviewscroll:SetScrollChild(mtsavedpreviewtext)
+        mtsavedpreviewscroll:SetScript("OnSizeChanged", function(_, w, _) mtsavedpreviewtext:SetWidth(w) end)
+    end
+
     local mterrorbg = CreateFrame("Frame", "MacroToolkitErrorBg", mtframe, BackdropTemplateMixin and "BackdropTemplate")
     do
         mterrorbg:SetPoint("TOP", mttextbg, "TOP", 0, 0)
-        --mterrorbg:SetPoint("TOP", 328, -289)
         mterrorbg:SetPoint("BOTTOMRIGHT", -8, 40)
         mterrorbg:SetWidth(302)
         mterrorbg:SetBackdrop({bgFile = "Interface\\Tooltips\\UI-Tooltip-Background", edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", edgeSize = 16, tileSize = 16, tile = true, insets = {left = 5, right = 5, top = 5, bottom = 5}})
@@ -720,6 +872,9 @@ function MT:CreateMTFrame()
             mtframe:ClearAllPoints()
             mtframe:SetPoint("BOTTOMLEFT", MT.db.profile.x, MT.db.profile.y)
             mtframe:Raise()
+            mttranslationbg:Show()
+            mttranslationbg:SetFrameStrata(mtframe:GetFrameStrata())
+            mttranslationbg:SetFrameLevel(mtframe:GetFrameLevel())
             MT:MacroFrameUpdate()
             --PlaySound("igCharacterInfoOpen")
             PlaySound(839)
@@ -729,10 +884,12 @@ function MT:CreateMTFrame()
             else mtcustomflyout:Enable() end
             if MacroBox and MT.db.profile.vismacrobox then mtmb:Show() else mtmb:Hide() end
             dwfunc()
+            MT:UpdateTranslationWorkspace()
         end)
 
         mtframe:SetScript("OnHide", function()
             if MT.MTPF then MT.MTPF:Hide() end
+            mttranslationbg:Hide()
             MT:SaveMacro()
             --PlaySound("igCharacterInfoClose")
             PlaySound(840)

MacroToolkit/modules/modules.xml

@@ -3,6 +3,7 @@ https://raw.githubusercontent.com/Gethe/wow-ui-source/refs/heads/live/Interface/
     <Script file="package.lua"/>
     <Script file="initialise.lua"/>
     <Script file="parser.lua"/>
+	<Script file="translation.lua"/>
 	<Script file="options.lua"/>
 	<Script file="mainframe.lua"/>
 	<Script file="restoreframe.lua"/>

MacroToolkit/modules/options.lua

@@ -37,6 +37,7 @@ function MT:SetScale(value)
     MacroToolkitFrame:SetSize(MT.db.profile.width or 638, MT.db.profile.height)
     MT.db.profile.scale = value
     MacroToolkitFrame:SetScale(value)
+    if MacroToolkitTranslationBg then MacroToolkitTranslationBg:SetScale(value) end
     if MacroToolkitRestoreFrame then MacroToolkitRestoreFrame:SetScale(value) end
     if MacroTtoolkitPopup then MacroToolkitPopup:SetScale(value) end
     if MacroToolkitScriptFrame then MacroToolkitScriptFrame:SetScale(value) end