local function SetFont(obj, font, size, style, r, g, b, sr, sg, sb, sox, soy)
  obj:SetFont(font, size, style)
  if sr and sg and sb then obj:SetShadowColor(sr, sg, sb) end
  if sox and soy then obj:SetShadowOffset(sox, soy) end
  if r and g and b then obj:SetTextColor(r, g, b)
  elseif r then obj:SetAlpha(r) end
end
 
 
local f = CreateFrame("Frame")
f:RegisterEvent("ADDON_LOADED")
f:SetScript("OnEvent", function()
  local NORMAL     = "Interface\\AddOns\\tekticles\\Calibri.ttf"
  local BOLD       = "Interface\\AddOns\\tekticles\\CalibriBold.ttf"
  local BOLDITALIC = "Interface\\AddOns\\tekticles\\CalibriBoldItalic.ttf"
  local ITALIC     = "Interface\\AddOns\\tekticles\\CalibriItalic.ttf"
  local NUMBER     = "Interface\\AddOns\\tekticles\\CalibriBold.ttf"
 
  UIDROPDOWNMENU_DEFAULT_TEXT_HEIGHT = 12
  CHAT_FONT_HEIGHTS = {7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24}
 
  UNIT_NAME_FONT     = NORMAL
  NAMEPLATE_FONT     = BOLD
  DAMAGE_TEXT_FONT   = NUMBER
  STANDARD_TEXT_FONT = NORMAL
 
  -- Base fonts
  SetFont(AchievementFont_Small,                BOLD, 12)
  SetFont(GameTooltipHeader,                    BOLD, 15, "OUTLINE")
  SetFont(InvoiceFont_Med,                    ITALIC, 13, nil, 0.15, 0.09, 0.04)
  SetFont(InvoiceFont_Small,                  ITALIC, 11, nil, 0.15, 0.09, 0.04)
  SetFont(MailFont_Large,                     ITALIC, 15, nil, 0.15, 0.09, 0.04, 0.54, 0.4, 0.1, 1, -1)
  SetFont(NumberFont_OutlineThick_Mono_Small, NUMBER, 13, "OUTLINE")
  SetFont(NumberFont_Outline_Huge,            NUMBER, 30, "THICKOUTLINE", 30)
  SetFont(NumberFont_Outline_Large,           NUMBER, 17, "OUTLINE")
  SetFont(NumberFont_Outline_Med,             NUMBER, 15, "OUTLINE")
  SetFont(NumberFont_Shadow_Med,              NORMAL, 14)
  SetFont(NumberFont_Shadow_Small,            NORMAL, 12)
  SetFont(QuestFont_Large,                    NORMAL, 16)
  SetFont(QuestFont_Shadow_Huge,                BOLD, 19, nil, nil, nil, nil, 0.54, 0.4, 0.1)
  SetFont(SpellFont_Small,                      BOLD, 11)
  SetFont(SystemFont_InverseShadow_Small,       BOLD, 11)
  SetFont(SystemFont_Large,                   NORMAL, 17)
  SetFont(SystemFont_Med1,                    NORMAL, 13)
  SetFont(SystemFont_Med2,                    ITALIC, 14, nil, 0.15, 0.09, 0.04)
  SetFont(SystemFont_Med3,                    NORMAL, 15)
  SetFont(SystemFont_OutlineThick_Huge2,      NORMAL, 22, "THICKOUTLINE")
  SetFont(SystemFont_OutlineThick_Huge4,  BOLDITALIC, 27, "THICKOUTLINE")
  SetFont(SystemFont_OutlineThick_WTF,    BOLDITALIC, 31, "THICKOUTLINE", nil, nil, nil, 0, 0, 0, 1, -1)
  SetFont(SystemFont_Outline_Small,           NUMBER, 13, "OUTLINE")
  SetFont(SystemFont_Shadow_Huge1,              BOLD, 20)
  SetFont(SystemFont_Shadow_Huge3,              BOLD, 25)
  SetFont(SystemFont_Shadow_Large,            NORMAL, 17)
  SetFont(SystemFont_Shadow_Med1,             NORMAL, 13)
  SetFont(SystemFont_Shadow_Med3,             NORMAL, 15)
  SetFont(SystemFont_Shadow_Outline_Huge2,    NORMAL, 22, "OUTLINE")
  SetFont(SystemFont_Shadow_Small,              BOLD, 11)
  SetFont(SystemFont_Small,                   NORMAL, 12)
  SetFont(SystemFont_Tiny,                    NORMAL, 11)
  SetFont(Tooltip_Med,                        NORMAL, 13)
  SetFont(Tooltip_Small,                        BOLD, 12)
 
  -- Derived fonts
  SetFont(BossEmoteNormalHuge,     BOLDITALIC, 27, "THICKOUTLINE")
  SetFont(CombatTextFont,              NORMAL, 26)
  SetFont(ErrorFont,                   ITALIC, 16, nil, 60)
  SetFont(QuestFontNormalSmall,          BOLD, 13, nil, nil, nil, nil, 0.54, 0.4, 0.1)
  SetFont(WorldMapTextFont,        BOLDITALIC, 31, "THICKOUTLINE",  40, nil, nil, 0, 0, 0, 1, -1)
 
  for i=1,7 do
    local f = _G["ChatFrame"..i]
    local font, size = f:GetFont()
    f:SetFont(NORMAL, size)
  end
end)
 
 
local LSM = LibStub and LibStub:GetLibrary("LibSharedMedia-3.0", true)
if LSM then
  LSM:Register(LSM.MediaType.FONT, "Calibri", "Interface\\AddOns\\tekticles\\Calibri.ttf")
  LSM:Register(LSM.MediaType.FONT, "Calibri Bold", "Interface\\AddOns\\tekticles\\CalibriBold.ttf")
  LSM:Register(LSM.MediaType.FONT, "Calibri Bold Italic", "Interface\\AddOns\\tekticles\\CalibriBoldItalic.ttf")
  LSM:Register(LSM.MediaType.FONT, "Calibri Italic", "Interface\\AddOns\\tekticles\\CalibriItalic.ttf")
end