UI: Implement a fallback to display when Options are disabled

With the lazy-loading approach, it's possible that players might disable the Options module (accidentally, usually) and then get script errors when AceConfig tries to load the UI tree.

This is a pretty basic fallback UI which allows loading the options seamlessly in case they were accidentally disabled. Don't know if there are other cases where this might fail, but it's better than nothing.

Author: rdw-software

Core.lua

@@ -111,6 +111,9 @@ local IsSpellKnown = _G.IsSpellKnown
 local CombatLogGetCurrentEventInfo = _G.CombatLogGetCurrentEventInfo
 local IsQuestFlaggedCompleted = _G.C_QuestLog.IsQuestFlaggedCompleted
 local C_Covenants = _G.C_Covenants
+local EnableAddOn = C_AddOns.EnableAddOn
+local IsAddOnLoadable = C_AddOns.IsAddOnLoadable
+local IsAddOnLoaded = C_AddOns.IsAddOnLoaded
 local LoadAddOn = _G.C_AddOns.LoadAddOn
 
 local COMBATLOG_OBJECT_AFFILIATION_MINE = _G.COMBATLOG_OBJECT_AFFILIATION_MINE
@@ -347,6 +350,22 @@ do
 	end
 end
 
+local fallbackOptionsTable = {
+	type = "group",
+	name = L["Rarity"],
+	width = "full",
+	args = {
+		enable = {
+			name = L["Attempt to enable the Options module"],
+			type = "execute",
+			width = "full",
+			func = function(info, val)
+				EnableAddOn("Rarity_Options")
+			end,
+		},
+	},
+}
+
 function Rarity:LazyLoadOptions(which)
 	local options = R[which]
 	if type(options) == "table" then
@@ -355,21 +374,27 @@ function Rarity:LazyLoadOptions(which)
 	end
 
 	Rarity.Profiling:StartTimer("RarityOptions: LoadAddon")
-	LoadAddOn("Rarity_Options")
+	local didLoad, errorMessage = LoadAddOn("Rarity_Options")
+	if not didLoad then
+		Rarity:Debug("Options failed to load? Reason: " .. errorMessage or "nil")
+		return fallbackOptionsTable
+	end
 	Rarity.Profiling:EndTimer("RarityOptions: LoadAddon")
 
 	return R[which]
 end
 
 function Rarity:TryShowOptionsUI()
-	Rarity:LazyLoadOptions()
-	if R.options then
-		Rarity.Profiling:StartTimer("RarityOptions: OpenToCategory")
-		Settings.OpenToCategory("Rarity")
-		Rarity.Profiling:EndTimer("RarityOptions: OpenToCategory")
-	else
+	local canLoadOptions, reason = IsAddOnLoadable("Rarity_Options")
+	if not canLoadOptions and reason == "DISABLED" then
 		self:Print(L["The Rarity Options module has been disabled. Log out and enable it from your add-ons menu."])
+		return
 	end
+
+	Rarity:LazyLoadOptions()
+	Rarity.Profiling:StartTimer("RarityOptions: OpenToCategory")
+	Settings.OpenToCategory("Rarity")
+	Rarity.Profiling:EndTimer("RarityOptions: OpenToCategory")
 end
 
 function R:DelayedInit()

Locales.lua

@@ -2,6 +2,7 @@ local L
 L = LibStub("AceLocale-3.0"):NewLocale("Rarity", "enUS", true)
 
 -- L["AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"] = true
+L["Attempt to enable the Options module"] = true
 L["Personalized Goblin S.C.R.A.Per"] = true
 L["Bronze Goblin Waveshredder"] = true
 L["Darkfuse Precipitant"] = true