---------------------------------------------------------------------------------
--
-- Prat - A framework for World of Warcraft chat mods
--
-- Copyright (C) 2006-2011  Prat Development Team
--
-- This program is free software; you can redistribute it and/or
-- modify it under the terms of the GNU General Public License
-- as published by the Free Software Foundation; either version 2
-- of the License, or (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to:
--
-- Free Software Foundation, Inc.,
-- 51 Franklin Street, Fifth Floor,
-- Boston, MA  02110-1301, USA.
--
--
-------------------------------------------------------------------------------




Prat:AddModuleToLoad(function()

--[[
    2007-06-24: added option to save cmd history - fin
]]

    local PRAT_MODULE = Prat:RequestModuleName("History")

    if PRAT_MODULE == nil then
        return
    end

    local PL = Prat:GetLocalizer({})


    --[===[@debug@
    PL:AddLocale(PRAT_MODULE, "enUS", {
        ["History"] = true,
        ["Chat history options."] = true,
        ["Set Chat Lines"] = true,
        ["Set the number of lines of chat history for each window."] = true,
        ["Set Command History"] = true,
        ["Maximum number of lines of command history to save."] = true,
        ["Save Command History"] = true,
        ["Saves command history between sessions (for use with alt+up arrow or just the up arrow)"] = true,
        ["Scrollback"] = true,
        ["Store the chat lines between sessions"] = true,
        ["Scrollback Options"] = true,
        divider = "========== End of Scrollback ==========",
        scrollbacklen_name = "Scrollback Length",
        scrollbacklen_desc = "Number of chatlines to save in the scrollback buffer.",
        ["Colors the GMOTD label"] = true,
        ["Color GMOTD"] = true,
        delaygmotd_name = "Delay GMOTD",
        delaygmotd_desc = "Delay GMOTD until after all the startup spam",
    })
    --@end-debug@]===]

    -- These Localizations are auto-generated. To help with localization
    -- please go to http://www.wowace.com/projects/prat-3-0/localization/
    --@non-debug@
   do
       local L

   L=
{
	["History"] = {
		["Chat history options."] = true,
		["Color GMOTD"] = true,
		["Colors the GMOTD label"] = true,
		["delaygmotd_desc"] = "Delay GMOTD until after all the startup spam",
		["delaygmotd_name"] = "Delay GMOTD",
		["divider"] = "========== End of Scrollback ==========",
		["History"] = true,
		["Maximum number of lines of command history to save."] = true,
		["Save Command History"] = true,
		["Saves command history between sessions (for use with alt+up arrow or just the up arrow)"] = true,
		["Scrollback"] = true,
		["Scrollback Options"] = true,
		["scrollbacklen_desc"] = "Number of chatlines to save in the scrollback buffer.",
		["scrollbacklen_name"] = "Scrollback Length",
		["Set Chat Lines"] = true,
		["Set Command History"] = true,
		["Set the number of lines of chat history for each window."] = true,
		["Store the chat lines between sessions"] = true,
	}
}

     PL:AddLocale(PRAT_MODULE, "enUS",L)

   L=
{
	["History"] = {
		["Chat history options."] = "Option de l'historique.",
		--Translation missing 
		-- ["Color GMOTD"] = "",
		--Translation missing 
		-- ["Colors the GMOTD label"] = "",
		["delaygmotd_desc"] = "Afficher le message du jour de la guilde après tous les autres messages lors de la connexion.",
		--Translation missing 
		-- ["delaygmotd_name"] = "",
		["divider"] = "========== Fin de l'historique ==========",
		["History"] = "Historique",
		["Maximum number of lines of command history to save."] = "Nombre maximum de lignes de commande à sauvegarder dans l'historique.",
		["Save Command History"] = "Historique de commandes",
		["Saves command history between sessions (for use with alt+up arrow or just the up arrow)"] = "Sauvegarde l'historique des commandes entre les sessions (à utiliser avec alt+haut ou juste haut)",
		--Translation missing 
		-- ["Scrollback"] = "",
		--Translation missing 
		-- ["Scrollback Options"] = "",
		["scrollbacklen_desc"] = "Nombre de lignes de discussions à sauvegarder dans l'historique.",
		["scrollbacklen_name"] = "Taille de l'historique",
		["Set Chat Lines"] = "Historique de discussions",
		["Set Command History"] = "Historique de commandes",
		["Set the number of lines of chat history for each window."] = "Définit le nombre de lignes dans l'historique pour chaque fenêtre.",
		["Store the chat lines between sessions"] = "Sauvegarder l'historique des discussions entre les sessions.",
	}
}

     PL:AddLocale(PRAT_MODULE, "frFR",L)

   L=
{
	["History"] = {
		["Chat history options."] = "Optionen zum Chatverlauf.",
		["Color GMOTD"] = "Farbe Gildennachricht des Tages",
		["Colors the GMOTD label"] = "Färbt die GMOTD-Beschriftung",
		["delaygmotd_desc"] = "GMOTD verzögern, bis die Ausgabe aller Mitteilungen nach dem Einloggen vollendet ist.",
		["delaygmotd_name"] = "GMOTD verzögern",
		["divider"] = "======= Ende der Aufzeichnungen =======",
		["History"] = "Verlauf",
		["Maximum number of lines of command history to save."] = "Maximal zu speichernde Zeilenanzahl des Befehlsverlaufs.",
		["Save Command History"] = "Befehlsverlauf speichern",
		["Saves command history between sessions (for use with alt+up arrow or just the up arrow)"] = "Speichert Befehlsverlauf zwischen Sitzungen (um mit Alt + \"Pfeil nach oben\" oder nur \"Pfeil nach oben\" verwendet zu werden).",
		["Scrollback"] = "Aufzeichnung",
		["Scrollback Options"] = "Optionen zum Aufwärtsscrollen",
		["scrollbacklen_desc"] = "Anzahl der Chatzeilen, die im Puffer gespeichert werden sollen",
		["scrollbacklen_name"] = "Scroll-Weite",
		["Set Chat Lines"] = "Chatzeilen einstellen",
		["Set Command History"] = "Befehlsverlauf einstellen",
		["Set the number of lines of chat history for each window."] = "Die Zeilenanzahl des Chatverlaufs für jedes Fenster einstellen.",
		["Store the chat lines between sessions"] = "Speichert den Chat zwischen den Sitzungen",
	}
}

     PL:AddLocale(PRAT_MODULE, "deDE",L)

   L=
{
	["History"] = {
		["Chat history options."] = "대화 내역 옵션입니다.",
		["Color GMOTD"] = "오늘의 길드 메시지에 색상입히기",
		["Colors the GMOTD label"] = "오늘의 길드 메시지 제목에 색상입히기",
		["delaygmotd_desc"] = "모든 시작 스팸이 표시 될때까지 오늘의 길드 메시지 지연시키기",
		["delaygmotd_name"] = "오늘의 길드 메시지 지연",
		["divider"] = "========== 이전 대화 목록의 끝 ==========",
		["History"] = "대화 내역",
		["Maximum number of lines of command history to save."] = "저장할 명령어 내역의 최대 갯수입니다.",
		["Save Command History"] = "명령어 내역 저장",
		["Saves command history between sessions (for use with alt+up arrow or just the up arrow)"] = "세션 간 명령어 내역을 저장합니다 (Alt+위 화살표나 위 화살표로 사용하는)",
		["Scrollback"] = "이전 대화 목록",
		["Scrollback Options"] = "이전 대화 목록 옵션",
		["scrollbacklen_desc"] = "이전 대화 목록 저장소에 저장할 대화 내용의 길이입니다.",
		["scrollbacklen_name"] = "이전 대화 목록 길이",
		["Set Chat Lines"] = "대화 내역 설정",
		["Set Command History"] = "명령어 내역 설정",
		["Set the number of lines of chat history for each window."] = "각 대화창 별로 대화 내역의 줄의 갯수를 설정합니다.",
		["Store the chat lines between sessions"] = "세션 간 대화 내용 저장하기",
	}
}

     PL:AddLocale(PRAT_MODULE, "koKR",L)

   L=
{
	["History"] = {
		--Translation missing 
		-- ["Chat history options."] = "",
		--Translation missing 
		-- ["Color GMOTD"] = "",
		--Translation missing 
		-- ["Colors the GMOTD label"] = "",
		--Translation missing 
		-- ["delaygmotd_desc"] = "",
		--Translation missing 
		-- ["delaygmotd_name"] = "",
		--Translation missing 
		-- ["divider"] = "",
		--Translation missing 
		-- ["History"] = "",
		--Translation missing 
		-- ["Maximum number of lines of command history to save."] = "",
		--Translation missing 
		-- ["Save Command History"] = "",
		--Translation missing 
		-- ["Saves command history between sessions (for use with alt+up arrow or just the up arrow)"] = "",
		--Translation missing 
		-- ["Scrollback"] = "",
		--Translation missing 
		-- ["Scrollback Options"] = "",
		--Translation missing 
		-- ["scrollbacklen_desc"] = "",
		--Translation missing 
		-- ["scrollbacklen_name"] = "",
		--Translation missing 
		-- ["Set Chat Lines"] = "",
		--Translation missing 
		-- ["Set Command History"] = "",
		--Translation missing 
		-- ["Set the number of lines of chat history for each window."] = "",
		--Translation missing 
		-- ["Store the chat lines between sessions"] = "",
	}
}

     PL:AddLocale(PRAT_MODULE, "esMX",L)

   L=
{
	["History"] = {
		["Chat history options."] = "Настройки истории чата.",
		["Color GMOTD"] = "Цвет  GMOTD",
		["Colors the GMOTD label"] = "Цвета названия СДГ",
		["delaygmotd_desc"] = "Задерживать отображение СДГ вплоть до окончания спама при входе в игру",
		["delaygmotd_name"] = "задержка GMOTD",
		["divider"] = "========== Конец истории сообщений ==========",
		["History"] = "История",
		["Maximum number of lines of command history to save."] = "Максимальное число строк сохранённых в истории команд.",
		["Save Command History"] = "Сохранять историю команд",
		["Saves command history between sessions (for use with alt+up arrow or just the up arrow)"] = "Сохранять историю команд между сеансами (для использования используйте alt+ стрелка вверх или просто стрелку вверх)",
		["Scrollback"] = "История сообщений",
		["Scrollback Options"] = "Вернуть опции",
		["scrollbacklen_desc"] = "Количество строк чата, которое надо сохранять в буфере истории сообщений.",
		["scrollbacklen_name"] = "Длина истории сообщений",
		["Set Chat Lines"] = "Задать число строк чата",
		["Set Command History"] = "История команд",
		["Set the number of lines of chat history for each window."] = "Установите число строк истории чата для всех окон чата.",
		["Store the chat lines between sessions"] = "Сохранять строки чата между сессиями",
	}
}

     PL:AddLocale(PRAT_MODULE, "ruRU",L)

   L=
{
	["History"] = {
		["Chat history options."] = "历史聊天记录选项",
		["Color GMOTD"] = "每日公会信息颜色",
		["Colors the GMOTD label"] = "为每日公会信息标签着色",
		["delaygmotd_desc"] = "延迟每日公会信息直到起始垃圾信息显示完毕为止",
		["delaygmotd_name"] = "延迟 GMOTD",
		["divider"] = "========== 回卷结束 ==========",
		["History"] = "历史记录",
		["Maximum number of lines of command history to save."] = "存储命令记录最大行数",
		["Save Command History"] = "命令记录存储",
		["Saves command history between sessions (for use with alt+up arrow or just the up arrow)"] = "存储会话之间命令的历史记录(使用alt+上箭头键或仅上箭头键)",
		["Scrollback"] = "回卷",
		["Scrollback Options"] = "回滚选项",
		["scrollbacklen_desc"] = "聊天内容回滚缓冲数量",
		["scrollbacklen_name"] = "回卷长度",
		["Set Chat Lines"] = "聊天行设置",
		["Set Command History"] = "命令历史记录",
		["Set the number of lines of chat history for each window."] = "为每个聊天窗口设置聊天历史记录行数",
		["Store the chat lines between sessions"] = "在会话之间存储聊天内容",
	}
}

     PL:AddLocale(PRAT_MODULE, "zhCN",L)

   L=
{
	["History"] = {
		["Chat history options."] = "Opciones del historial del chat.",
		--Translation missing 
		-- ["Color GMOTD"] = "",
		--Translation missing 
		-- ["Colors the GMOTD label"] = "",
		--Translation missing 
		-- ["delaygmotd_desc"] = "",
		--Translation missing 
		-- ["delaygmotd_name"] = "",
		--Translation missing 
		-- ["divider"] = "",
		["History"] = "Historial",
		["Maximum number of lines of command history to save."] = "Máximo número de líneas a guardar por el comando historial.",
		["Save Command History"] = "Comando Guardar Historial",
		["Saves command history between sessions (for use with alt+up arrow or just the up arrow)"] = "Guarda el historial de comandos entre sesiones (para utilizar con alt+flecha arriba o sólo la flecha arriba)",
		--Translation missing 
		-- ["Scrollback"] = "",
		--Translation missing 
		-- ["Scrollback Options"] = "",
		--Translation missing 
		-- ["scrollbacklen_desc"] = "",
		--Translation missing 
		-- ["scrollbacklen_name"] = "",
		["Set Chat Lines"] = "Establecer Líneas de Chat",
		["Set Command History"] = "Establecer Historial de Comandos",
		["Set the number of lines of chat history for each window."] = "Establece el número de líneas del historial de chat para cada ventana.",
		--Translation missing 
		-- ["Store the chat lines between sessions"] = "",
	}
}

     PL:AddLocale(PRAT_MODULE, "esES",L)

   L=
{
	["History"] = {
		["Chat history options."] = "歷史訊息選項。",
		["Color GMOTD"] = "顏色 GMOTD",
		["Colors the GMOTD label"] = "顏色 GMOTD 標籤",
		--Translation missing 
		-- ["delaygmotd_desc"] = "",
		["delaygmotd_name"] = "延遲 GMOTD",
		["divider"] = "========== 捲動結束 ==========",
		["History"] = "歷史訊息",
		["Maximum number of lines of command history to save."] = "最大行數的指令記錄儲存。",
		["Save Command History"] = "儲存指令歷史",
		--Translation missing 
		-- ["Saves command history between sessions (for use with alt+up arrow or just the up arrow)"] = "",
		["Scrollback"] = "捲動",
		["Scrollback Options"] = "捲動選項",
		--Translation missing 
		-- ["scrollbacklen_desc"] = "",
		["scrollbacklen_name"] = "捲動長度",
		["Set Chat Lines"] = "設定聊天行數",
		["Set Command History"] = "設定指令歷史",
		["Set the number of lines of chat history for each window."] = "設定行數的聊天記錄每個視窗。",
		--Translation missing 
		-- ["Store the chat lines between sessions"] = "",
	}
}

     PL:AddLocale(PRAT_MODULE, "zhTW",L)
   end
   --@end-non-debug@

    -- create prat module
    local module = Prat:NewModule(PRAT_MODULE, "AceHook-3.0")
    module.PL = PL

    Prat:SetModuleDefaults(module.name, {
        profile = {
            on = true,
            chatlinesframes = {},
            chatlines = 384,
            maxlines = 50,
            savehistory = false,
            scrollback = true,
            scrollbacklen = 50,
            colorgmotd = true,
            delaygmotd = true,
        }
    })

    module.pluginopts = {}

    Prat:SetModuleOptions(module.name, {
        name = PL["History"],
        desc = PL["Chat history options."],
        type = "group",
        plugins = module.pluginopts,
        args = {
            chatlinesframes = {
                name = PL["Set Chat Lines"],
                desc = PL["Set the number of lines of chat history for each window."],
                type = "multiselect",
                values = Prat.HookedFrameList,
                get = "GetSubValue",
                set = "SetSubValue"
            },
            chatlines = {
                name = PL["Set Chat Lines"],
                desc = PL["Set the number of lines of chat history for each window."],
                type = "range",
                order = 120,
                min = 300,
                max = 5000,
                step = 10,
                bigStep = 50,
            },
            cmdhistheader = {
                name = "Command History Options",
                type = "header",
                order = 130,
            },
            maxlines = {
                name = PL["Set Command History"],
                desc = PL["Maximum number of lines of command history to save."],
                type = "range",
                order = 132,
                min = 0,
                max = 500,
                step = 10,
                bigStep = 50,
                disabled = function() return not module.db.profile.savehistory end
            },
            savehistory = {
                name = PL["Save Command History"],
                desc = PL["Saves command history between sessions (for use with alt+up arrow or just the up arrow)"],
                type = "toggle",
                order = 131,
            },
            colorgmotd = {
                name = PL["Color GMOTD"],
                desc = PL["Colors the GMOTD label"],
                type = "toggle",
                order = 150,
            },
            delaygmotd = {
                name = PL.delaygmotd_name,
                desc = PL.delaygmotd_desc,
                type = "toggle",
                order = 151
            }
        }
    })


    local function applyEditBox(func)
        for i = 1, NUM_CHAT_WINDOWS do
            local f = _G["ChatFrame" .. i .. "EditBox"]
            func(f)
        end
    end

    --[[------------------------------------------------
        Module Event Functions
    ------------------------------------------------]] --

    -- things to do when the module is enabled
    function module:OnModuleEnable()


        Prat3CharDB = Prat3CharDB or {}
            Prat3CharDB.history = Prat3CharDB.history or {}
            Prat3CharDB.history.cmdhistory = Prat3CharDB.history.cmdhistory or {}


            --                if self.db.profile.cmdhistory then
            --                    Prat3CharDB.history.cmdhistory = self.db.profile.cmdhistory
            --                    self.db.profile.cmdhistory = nil
            --                end



            for i, v in ipairs(Prat3CharDB.history.cmdhistory) do
                if (type(v) == "string" and v:sub(1, 9) ~= "ChatFrame") then
                    Prat3CharDB.history.cmdhistory[i] = nil
                end
            end

            applyEditBox(function(edit)
                local name = edit:GetName()
                Prat3CharDB.history.cmdhistory[name] = Prat3CharDB.history.cmdhistory[name] or {}
            end)


        self:ConfigureAllChatFrames()


            for k in pairs(Prat3CharDB.history.cmdhistory) do
                local edit = _G[k]
                if (edit) then
                    self:SecureHook(edit, "AddHistoryLine")
                    if self.db.profile.savehistory then
                        self:addSavedHistory(edit)
                    end
                    self:SecureHook(edit, "ClearHistory")
                end
            end

    
        -- Clean out any old data
        if self.db.profile.cmdhistory then
            self.db.profile.cmdhistory = nil
        end



        if IsInGuild() then
            self.frame = self.frame or CreateFrame("Frame")

            if self.db.profile.delaygmotd then
                self:DelayGMOTD(self.frame)
            end

            if self.db.profile.colorgmotd then
                local a, b = strsplit(":", GUILD_MOTD_TEMPLATE)
                if a and b then
                    GUILD_MOTD_TEMPLATE = "|cffffffff" .. a .. "|r:" .. b
                end
            end
        end


    end




    -- things to do when the module is enabled
    function module:OnModuleDisable()
        self:ConfigureAllChatFrames(384)
    end

    function module:ConfigureAllChatFrames(lines)
        local lines = lines or self.db.profile.chatlines

        for k,v in pairs(self.db.profile.chatlinesframes) do
            self:SetHistory(_G[k], lines)
        end

        for k in pairs(Prat3CharDB.history.cmdhistory) do
            local edit = _G[k]
            if (edit) then
                if self.db.profile.savehistory then
                    edit.history_lines = Prat3CharDB.history.cmdhistory[k]
                else
                    edit.history_lines = {}
                end
                edit.history_index = 0
            end
        end
    end

    function module:OnSubvalueChanged()
        self:ConfigureAllChatFrames()
    end

    function module:OnValueChanged()
        self:ConfigureAllChatFrames()
    end


    function module:DelayGMOTD(frame)
        local delay = 2.5
        local maxtime = 60
        ChatFrame1:UnregisterEvent("GUILD_MOTD")
        frame:SetScript("OnUpdate", function(this, expired)
            delay = delay - expired
            if delay < 0 then
                local msg = GetGuildRosterMOTD()
                if maxtime < 0 or (msg and msg:len() > 0) then
                    ChatFrame1:RegisterEvent("GUILD_MOTD")

                    for _,f in pairs(Prat.Frames) do
                        if f:IsEventRegistered("GUILD_MOTD") then
                            ChatFrame_SystemEventHandler(f, "GUILD_MOTD", msg)
                        end
                    end
                    this:Hide()
                else
                    delay = 2.5
                    maxtime = maxtime - 2.5
                end
            end
        end)
    end


    --[[------------------------------------------------
        Core Functions
    ------------------------------------------------]] --
    function module:SetHistory(f, lines)
        if f == nil then return end

        f:SetMaxLines(lines)
    end

    function module:addSavedHistory(editBox)
        local editBox = editBox or ChatFrame1EditBox
        local cmdhistory = Prat3CharDB.history.cmdhistory[editBox:GetName()] or {}
        local cmdindex = #cmdhistory

        -- where there"s a while, there"s a way
        while cmdindex > 0 do
            editBox:AddHistoryLine(cmdhistory[cmdindex])
            cmdindex = cmdindex - 1
        -- way
        end
    end

    function module:saveLine(text, editBox)
        if not text or (text == "") then
            return false
        end

        local maxlines = self.db.profile.maxlines
        local cmdhistory = editBox.history_lines or {}

        table.insert(cmdhistory, 1, text)

        local cmdcount = #cmdhistory - maxlines
        while cmdcount > 0 do
            table.remove(cmdhistory)
            cmdcount = cmdcount - 1
        end
    end

    function module:ClearHistory(editBox)
        editBox = editBox or ChatFrame1EditBox

        local cmdhistory = editBox.history_lines or {}
        local cmdcount = #cmdhistory
        while cmdcount > 0 do
            table.remove(cmdhistory)
            cmdcount = cmdcount - 1
        end
    end

    function module:AddHistoryLine(editBox)
        editBox = editBox or ChatFrame1EditBox

        -- following code mostly ripped off from Blizzard, but at least I understand it now
        local text = ""
        local type = editBox:GetAttribute("chatType")
        local header = _G["SLASH_" .. type .. "1"]

        if (header) then
            text = header
        end

        if (type == "WHISPER") then
            text = text .. " " .. editBox:GetAttribute("tellTarget")
        elseif (type == "CHANNEL") then
            text = "/" .. editBox:GetAttribute("channelTarget")
        end

        local editBoxText = editBox:GetText();
        if (strlen(editBoxText) > 0) then
            text = text .. " " .. editBox:GetText();
            self:saveLine(text, editBox)
        end
    end


    return
end) -- Prat:AddModuleToLoad
