pfUI/modules/map.lua

pfUI:RegisterModule("map", function ()

  function _G.ToggleWorldMap()
    if WorldMapFrame:IsShown() then
      WorldMapFrame:Hide()
    else
      WorldMapFrame:Show()
      table.insert(UISpecialFrames, "WorldMapFrame")
    end
  end

  local pfMapLoader = CreateFrame("Frame", nil, UIParent)
  pfMapLoader:RegisterEvent("PLAYER_ENTERING_WORLD")
  pfMapLoader:SetScript("OnEvent", function()
    -- do not load if other map addon is loaded
    if Cartographer then return end
    if METAMAP_TITLE then return end

    UIPanelWindows["WorldMapFrame"] = { area = "center" }

    WorldMapFrame:SetScript('OnShow', function()
      -- default events
      UpdateMicroButtons()
      PlaySound("igQuestLogOpen")
      CloseDropDownMenus()
      SetMapToCurrentZone()
      WorldMapFrame_PingPlayerPosition()

      -- customize
      WorldMapFrame:SetMovable(true)
      WorldMapFrame:EnableMouse(true)
      WorldMapFrame:EnableKeyboard(false)
      WorldMapFrame:EnableMouseWheel(1)
      WorldMapFrame:SetScript("OnMouseWheel", function()
        if IsShiftKeyDown() then
          WorldMapFrame:SetAlpha(WorldMapFrame:GetAlpha() + arg1/10)
        end

        if IsControlKeyDown() then
          WorldMapFrame:SetScale(WorldMapFrame:GetScale() + arg1/10)
        end
      end)

      WorldMapFrame:SetScript("OnMouseDown",function()
        WorldMapFrame:StartMoving()
      end)

      WorldMapFrame:SetScript("OnMouseUp",function()
        WorldMapFrame:StopMovingOrSizing()
      end)

      WorldMapFrame:ClearAllPoints()
      WorldMapFrame:SetPoint("CENTER", UIParent, "CENTER", 0, 0)
      WorldMapFrame:SetWidth(WorldMapButton:GetWidth() + 15)
      WorldMapFrame:SetHeight(WorldMapButton:GetHeight() + 55)

      WorldMapFrameCloseButton:SetPoint("TOPRIGHT", WorldMapFrame, "TOPRIGHT", 0, 0)
      CreateBackdrop(WorldMapFrame)

      WorldMapFrame:SetScale(.7)
      BlackoutWorld:Hide()

      for i,v in ipairs({WorldMapFrame:GetRegions()}) do
         if v.SetTexture then
           v:SetTexture("")
         end

         if v.SetText then
           v:SetText("")
         end
       end
    end)
  end)
end)