-- Narrator (Use VoiceC for Quest objective, <Enclosed Text>) is contributed by https://github.com/BelegCufea

local _, addon = ...
local CallbackRegistry = addon.CallbackRegistry;
local GetDBBool = addon.GetDBBool;

local TTSUtil = CreateFrame("Frame");
addon.TTSUtil = TTSUtil;

local FALLBACK_VOICE_ID = 0;
local DESTINATION = Enum.VoiceTtsDestination and Enum.VoiceTtsDestination.LocalPlayback or 1;

-- User Settings
local TTS_AUTO_PLAY = false;
local TTS_STOP_WHEN_LEAVING = true;
local TTS_STOP_ON_NEW = true;         --stop reading previous quest when new quest is available
local TTS_CONTENT_QUEST_TITLE = true;
local TTS_CONTENT_SPEAKER = false;
local TTS_CONTENT_OBJECTIVE = false;  --read objectives
local TTS_USE_NARRATOR = false;       --use narrator voice
local TTS_SKIP_RECENT = false;        --skp reading recently read quest dialogs
local TTS_HISTORY_DEPTH = 20;         --number of quest dialogs that will be skipped
------------------

local UnitExists = UnitExists;
local UnitSex = UnitSex;
local C_VoiceChat = C_VoiceChat;
local C_TTSSettings = C_TTSSettings;
local StopSpeakingText = C_VoiceChat.StopSpeakingText;
local After = C_Timer.After;
local gsub = string.gsub;

local TTSButtons = {};      --DialogueUI, BookUI

local function AdjustTextForTTS(text)
    text = gsub(text, "[<>]", "");      --any "<>" as TTS has problems reading it
    text = gsub(text, "%-%-", ". ");    --"--" is used as an explanation but TTS treat them as a single word
    return text
end

function TTSUtil:UpdateTTSSettings()
    self.voiceID = C_TTSSettings.GetVoiceOptionID(0);                       --Unused
    self.volume = self.defaultVolume or C_TTSSettings.GetSpeechVolume();    --0 ~ 100 (Default: 100)
    self.rate = self.defaultRate or C_TTSSettings.GetSpeechRate();          -- -10 ~ +10 (Default: 0)
    self.destination = DESTINATION;
end

function TTSUtil:OnUpdate_InitialDelay(elapsed)
    self.t = self.t + elapsed;
    if self.t > 0 then
        self.t = nil;
        self:SetScript("OnUpdate", nil);
        self:ProcessQueue();
    end
end

function TTSUtil:Clear()
    self.t = nil;
    self.queue = nil;
    self.nextSegment = nil;
    self:SetScript("OnUpdate", nil);
    StopSpeakingText();
end

function TTSUtil:ProcessQueue()
    if self.queue and #self.queue > 0 then
        -- just return and wait for "VOICE_CHAT_TTS_PLAYBACK_FINISHED" that will trigger next ProcessQueue
        if self:IsSpeaking() then
            return
        end
        local segment = table.remove(self.queue, 1);
        self:StopThenPlay(segment);
        if TTS_AUTO_PLAY and GetDBBool("TTSAutoPlayDelay") then
            self.t = -2;
        end
    else
        self:Clear();
    end
end

-- Added voice for the text to be read with and some identifier for dialog the text belong to as there could be more segments of text to be read from the same quest
function TTSUtil:QueueText(text, voiceID, identifier, contentSource)
    --"identifier" determines which quest/gossip the queued text belongs to
    if not self.queue then
        self.queue = {};
    end
    -- if "Stop reading on opening dialod" is enabled
    if TTS_STOP_ON_NEW then
        -- remove every entry from speech queue that does not belong to the same quest
        for i = #self.queue, 1, -1 do
            if self.queue[i].identifier ~= identifier then
                table.remove(self.queue, i)
            end
        end
        -- if TTS is currently reading and currentle read segment (self.nextSegment) does not belog to the same quest, stop reading
        if self:IsSpeaking() and self.nextSegment and self.nextSegment.identifier ~= identifier then
            StopSpeakingText();
        end
    end

    -- insert new entry into queue
    for _, segment in ipairs(self.queue) do
        if segment.text == text then
            return
        end
    end

    local segment = { text = text, voiceID = voiceID, identifier = identifier, contentSource = contentSource };
    table.insert(self.queue, segment);
    self.t = -0.75;
    self:SetScript("OnUpdate", self.OnUpdate_InitialDelay);
end

function TTSUtil:OnUpdate_StopThenPlay(elapsed)
    self.t = self.t + elapsed;
    if self.t > 0 then
        self.t = nil;
        self:SetScript("OnUpdate", nil);
        self:SpeakText(self.nextSegment);
    end
end

function TTSUtil:StopThenPlay(segment)
    StopSpeakingText();
    self.t = -0.1;
    self.nextSegment = segment;
    self:SetScript("OnUpdate", self.OnUpdate_StopThenPlay);
end

function TTSUtil:GetVoiceIDForNPC()
    local voiceID;
    --added questnpc for remote quests
    if UnitExists("questnpc") or UnitExists("npc") then
        local unitSex = UnitSex("questnpc") or UnitSex("npc")
        if unitSex == 2 then
            voiceID = self:GetDefaultVoiceA();
        elseif unitSex == 3 then
            voiceID = self:GetDefaultVoiceB();
        end
    end

    if not voiceID then
        if TTS_USE_NARRATOR then
            voiceID = self:GetDefaultVoiceC();
        else
            voiceID = self:GetDefaultVoiceB();
        end
    end
    return voiceID or 0
end

function TTSUtil:SpeakText(segment)
    if not segment then return end;

    self:UpdateTTSSettings();
    self.contentSource = segment.contentSource;
    self:RegisterEvent("VOICE_CHAT_TTS_PLAYBACK_STARTED");

    C_VoiceChat.SpeakText(segment.voiceID, segment.text, self.destination, self.rate, self.volume);
end

function TTSUtil:ReadCurrentDialogue()
    local contentSource = "dialogue";
    self.contentSource = contentSource;

    local content = addon.DialogueUI:GetContentForTTS();
    local voiceID = self:GetVoiceIDForNPC();
    local voiceIDNarrator = self:GetDefaultVoiceC();

    local identifier = content.body;

    -- self.forceRead is set only when player clicks on the Play TTS button on the dialog
    -- well, if player wants to skip recent texts and has autoplay enabled ...
    if self.forceRead or (TTS_SKIP_RECENT and TTS_AUTO_PLAY) then
        if not self.history then
            self.history = { identifier };
        else
            --search fif the same text was read recently
            local found = false;
            for _, v in ipairs(self.history) do
                if v == identifier then
                    found = true;
                    break;
                end
            end
            --insert it into self.history
            table.insert(self.history, identifier)
            --remove older entries
            while #self.history > TTS_HISTORY_DEPTH do
                table.remove(self.history, 1)
            end
            -- if found and player didn't press the play button manually then return
            if found and not self.forceRead then return end
        end
        self.forceRead = nil;
    end
    --if player wants to use narrator and the current voice is not narrator, queue different parts of quest for reading
    if TTS_USE_NARRATOR and voiceID ~= voiceIDNarrator then
        if TTS_CONTENT_QUEST_TITLE and content.title then   --Quest Title
            -- don't repeat quest title
            if not self.previousTitle or (self.previousTitle ~= content.title) then
                self:QueueText(content.title.."\n", voiceIDNarrator, identifier, contentSource);
            end
            self.previousTitle = content.title;
        end
        if TTS_CONTENT_SPEAKER and content.speaker then     --NPC name
            -- don't repeat NPC name
            if not self.previousSpeaker or (self.previousSpeaker ~= content.speaker) then
                self:QueueText(content.speaker.."\n", voiceIDNarrator, identifier, contentSource);
            end
            self.previousSpeaker = content.speaker;
        end
        if content.body then
            --for body (trim any spaces), search any text inside <> and queue it as narrator, otherwise use actor voiceID
            local text = content.body:match("^%s*(.-)%s*$");
            local narrate = text:sub(1, 1) == "<";
            for segment in string.gmatch(text, "([^<>]+)") do
                if narrate then
                    self:QueueText(segment, voiceIDNarrator, identifier, contentSource);
                else
                    self:QueueText(segment, voiceID, identifier, contentSource);
                end
                narrate = not narrate;
            end
        end
        if TTS_CONTENT_OBJECTIVE and content.objective then --Objective
            self:QueueText(content.objective, voiceIDNarrator, identifier, contentSource);
        end
    else
        local text = content.body or "";

        if TTS_CONTENT_QUEST_TITLE and content.title then   --Quest Title
            -- don't repeat quest title
            if not self.previousTitle or (self.previousTitle ~= content.title) then
                text = content.title.."\n"..text;
            end
            self.previousTitle = content.title;
        end

        if TTS_CONTENT_SPEAKER and content.speaker then     --NPC name
            -- don't repeat NPC name
            if not self.previousSpeaker or (self.previousSpeaker ~= content.speaker) then
                text = content.speaker.."\n"..text;
            end
            self.previousSpeaker = content.speaker;
        end
        --added option to read objectives
        if TTS_CONTENT_OBJECTIVE and content.objective then --Objective
            text = text .. "\n" .. content.objective;
        end

        text = AdjustTextForTTS(text);
        self:QueueText(text, voiceID, identifier, contentSource);
    end
    -- force to read quest title when speaking to the same npc when returning from the quest
    if content.objective then
        self.previousTitle = nil;
    end
end

function TTSUtil:IsSpeaking()
    return self.utteranceID ~= nil;
end

function TTSUtil:ToggleSpeaking(system)
    system = system or "dialogue";

    if self:IsSpeaking() then
        if system == "book" then
            addon.BookUI:StopReadingBook();
        else
            self:StopLastTTS();
        end
    else
        --there is the forced reading of text when player pushes Play button, so it may override history when TTS_SKIP_RECENT is enabled
        self.forceRead = true;
        if system == "book" then
            addon.BookUI:SpeakTopContent();
        else
            self:ReadCurrentDialogue();
        end
    end
end

function TTSUtil:OnEvent(event, ...)
    if self[event] then
        self[event](self, ...)
    end
end

function TTSUtil:VOICE_CHAT_TTS_PLAYBACK_STARTED(numConsumers, utteranceID, durationMS, destination)
    --durationMS is zero?
    self.utteranceID = utteranceID;
    self:UnregisterEvent("VOICE_CHAT_TTS_PLAYBACK_STARTED");
    self:RegisterEvent("VOICE_CHAT_TTS_PLAYBACK_FINISHED");
    for _, button in ipairs(TTSButtons) do
        button.AnimWave:Play();
    end
end

function TTSUtil:VOICE_CHAT_TTS_PLAYBACK_FINISHED(numConsumers, utteranceID, destination)
    self.utteranceID = nil;
    self:UnregisterEvent("VOICE_CHAT_TTS_PLAYBACK_FINISHED");

    for _, button in ipairs(TTSButtons) do
        button.AnimWave:Stop();
    end

    if self.contentSource == "dialogue" then
        self:ProcessQueue();
    elseif self.contentSource == "book" then
        self:RequestReadNextBookLine();
    end
end

function TTSUtil:StopLastTTS()
    if self.utteranceID then
        self:Clear();
    end
end

function TTSUtil:EnableModule(state)
    if state then
        self.isEnabled = true;
    elseif self.isEnabled then
        self.isEnabled = false;
        self.previousSpeaker = nil;
        self.previousTitle = nil;
        self.contentSource = nil;
        self:StopLastTTS();
        self:VOICE_CHAT_TTS_PLAYBACK_FINISHED();
        self:UnregisterEvent("VOICE_CHAT_TTS_PLAYBACK_STARTED");
        self:UnregisterEvent("VOICE_CHAT_TTS_PLAYBACK_FINISHED");
        self:SetScript("OnEvent", nil);
    end

    self:SetScript("OnEvent", self.OnEvent);
end

do  --Book
    function TTSUtil:OnUpdate_PauseThenReadNextBookLine(elapsed)
        self.t = self.t + elapsed;
        if self.t > 0.25 then
            self.t = 0;
            self:SetScript("OnUpdate", nil);
            if addon.BookUI:ReadAndMoveToNextLine() then

            else

            end
        end
    end

    function TTSUtil:RequestReadNextBookLine()
        self.t = 0;
        self:SetScript("OnUpdate", self.OnUpdate_PauseThenReadNextBookLine);
    end

    function TTSUtil:ReadBookLine(text, userInput)
        if userInput then
            self:StopReadingBook();
        end

        text = AdjustTextForTTS(text);

        local segment = {
            text = text,
            voiceID = self:GetDefaultVoiceForBook(),
            contentSource = "book",
        };

        self.queue = nil;
        self:SetScript("OnUpdate", nil);
        self:StopThenPlay(segment)
        self.t = -0.1;
    end

    function TTSUtil:StopReadingBook()
        if self.contentSource == "book" then
            self.contentSource = nil;
            TTSUtil:StopLastTTS();
        end
    end
end

do  --TTS Play Button
    local BUTTON_SIZE = 24;
    local ICON_SIZE = 16;
    local ALPHA_UNFOCUSED = 0.6;

    local TTSButtonMixin = {};

    local L = addon.L;

    function TTSButtonMixin:OnEnter()
        self:SetAlpha(1);
        local TooltipFrame = addon.SharedTooltip;
        TooltipFrame:Hide();
        TooltipFrame:SetOwner(self, "TOPRIGHT");

        local titleText = L["TTS"];
        if GetDBBool("TTSUseHotkey") then
            local key = addon.BindingUtil:GetActiveActionKey("TTS");
            if key then
                titleText = titleText .. string.format(" |cffffd100(%s)", key);
            end
        end
        TooltipFrame:SetTitle(titleText, 1, 1, 1);

        if TTS_AUTO_PLAY then
            TooltipFrame:AddDoubleLine(L["TTS Auto Play"], L["Option Enabled"], 1, 1, 1, 0.098, 1.000, 0.098);
        else
            TooltipFrame:AddDoubleLine(L["TTS Auto Play"], L["Option Disabled"], 1, 1, 1, 1.000, 0.125, 0.125);
        end

        TooltipFrame:AddLeftLine(L["TTS Button Tooltip"], 1, 0.82, 0);



        TooltipFrame:Show();
    end

    function TTSButtonMixin:OnLeave()
        self:SetAlpha(ALPHA_UNFOCUSED);
        addon.SharedTooltip:Hide();
    end

    function TTSButtonMixin:SetTheme(themeID)
        themeID = themeID or 1;
        local x = (themeID - 1) * 0.125;
        self.Icon:SetTexCoord(x, 64/512 + x, 0, 0.5);
        self.Wave1:SetTexCoord(x, 16/512 + x, 0.5, 1);
        self.Wave2:SetTexCoord(16/512 + x, 40/512 + x, 0.5, 1);
        self.Wave3:SetTexCoord(40/512 + x, 64/512 + x, 0.5, 1);
    end

    function TTSButtonMixin:OnClick(button)
        if button == "LeftButton" then
            TTSUtil:ToggleSpeaking(self.system);
        elseif button == "RightButton" then
            addon.SetDBValue("TTSAutoPlay", not TTS_AUTO_PLAY);
            if self:IsMouseOver() then
                self:OnEnter();
            end
            addon.SettingsUI:RequestUpdate();
        end
    end

    local function CreateTTSButton(parent, themeID)
        local b = CreateFrame("Button", nil, parent);
        b:SetSize(BUTTON_SIZE, BUTTON_SIZE);
        b:SetAlpha(ALPHA_UNFOCUSED);
        b:RegisterForClicks("LeftButtonUp", "RightButtonUp");

        local file = "Interface/AddOns/DialogueUI/Art/Theme_Shared/TTSButton.png";

        b.Icon = b:CreateTexture(nil, "OVERLAY");
        b.Icon:SetSize(ICON_SIZE, ICON_SIZE);
        b.Icon:SetPoint("CENTER", b, "CENTER", 0, 0);
        b.Icon:SetTexture(file);
        b.Icon:SetSize(ICON_SIZE, ICON_SIZE);


        b.Wave1 = b:CreateTexture(nil, "OVERLAY");
        b.Wave1:SetSize(0.25*ICON_SIZE, ICON_SIZE);
        b.Wave1:SetPoint("LEFT", b, "RIGHT", -8, 0);
        b.Wave1:SetTexture(file);

        b.Wave2 = b:CreateTexture(nil, "OVERLAY");
        b.Wave2:SetSize(0.375*ICON_SIZE, ICON_SIZE);
        b.Wave2:SetPoint("LEFT", b.Wave1, "RIGHT", -3, 0);
        b.Wave2:SetTexture(file);

        b.Wave3 = b:CreateTexture(nil, "OVERLAY");
        b.Wave3:SetSize(0.375*ICON_SIZE, ICON_SIZE);
        b.Wave3:SetPoint("LEFT", b.Wave2, "RIGHT", -4, 0);
        b.Wave3:SetTexture(file);

        b.Wave1:Hide();
        b.Wave2:Hide();
        b.Wave3:Hide();

        b.AnimWave = b:CreateAnimationGroup(nil, "DUISpeakerAnimationTemplate");

        b.AnimWave:SetScript("OnPlay", function()
            b.Wave1:Show();
            b.Wave2:Show();
            b.Wave3:Show();
        end);

        b.AnimWave:SetScript("OnStop", function()
            b.Wave1:Hide();
            b.Wave2:Hide();
            b.Wave3:Hide();
        end);

        addon.API.Mixin(b, TTSButtonMixin);

        b:SetScript("OnClick", b.OnClick);
        b:SetScript("OnEnter", b.OnEnter);
        b:SetScript("OnLeave", b.OnLeave);

        b:SetTheme(themeID);

        table.insert(TTSButtons, b);

        return b
    end
    addon.CreateTTSButton = CreateTTSButton;
end


do  --Voice List
    local GetDBValue = addon.GetDBValue;

    function TTSUtil:GetAvailableVoices()
        if not self.voices then
            self.voices = C_VoiceChat.GetTtsVoices() or {};
            self.validVoice = {};
            for _, data in ipairs(self.voices) do
                self.validVoice[data.voiceID] = true;
            end
        end
        return self.voices
    end

    function TTSUtil:IsVoiceIDValid(voiceID)
        if not self.voices then
            self:GetAvailableVoices();
        end
        return voiceID and self.validVoice[voiceID]
    end

    function TTSUtil:GetVoiceName(voiceID)
        if voiceID then
            for _, data in ipairs(self:GetAvailableVoices()) do
                if data.voiceID == voiceID then
                    return data.name
                end
            end
        end

        return UNKNOWN
    end

    function TTSUtil:GetVoiceNameByIndex(index)
        if index then
            for i, data in ipairs(self:GetAvailableVoices()) do
                if i == index then
                    return data.name
                end
            end
        end

        return UNKNOWN
    end

    function TTSUtil:GetVoiceIndex(voiceID)
        if voiceID then
            for index, data in ipairs(self:GetAvailableVoices()) do
                if data.voiceID == voiceID then
                    return index
                end
            end
        end
        return 1
    end

    function TTSUtil:GetFirstValidName(voiceID)
        if self:IsVoiceIDValid(voiceID) then
            return self:GetVoiceName(voiceID);
        end

        return self:GetVoiceName(FALLBACK_VOICE_ID)
    end

    function TTSUtil:GetDefaultVoiceA()
        local voiceID = GetDBValue("TTSVoiceMale");
        if self:IsVoiceIDValid(voiceID) then
            return voiceID
        else
            return FALLBACK_VOICE_ID
        end
    end

    function TTSUtil:GetDefaultVoiceB()
        local voiceID = GetDBValue("TTSVoiceFemale");
        if self:IsVoiceIDValid(voiceID) then
            return voiceID
        else
            return FALLBACK_VOICE_ID
        end
    end

    function TTSUtil:GetDefaultVoiceC()
        local voiceID = GetDBValue("TTSVoiceNarrator");
        if self:IsVoiceIDValid(voiceID) then
            return voiceID
        else
            return FALLBACK_VOICE_ID
        end
    end

    function TTSUtil:GetDefaultVoiceForBook()
        local voiceID = GetDBValue("BookTTSVoice");
        if (not voiceID) and TTS_USE_NARRATOR then
            voiceID = GetDBValue("TTSVoiceNarrator");
        end
        if (not voiceID) then
            voiceID = GetDBValue("TTSVoiceMale");
        end
        if self:IsVoiceIDValid(voiceID) then
            return voiceID
        else
            return FALLBACK_VOICE_ID
        end
    end

    function TTSUtil:OnUpdate_Process(elapsed)
        self.t = self.t + elapsed;
        if self.t > 0 then
            self:SetScript("OnUpdate", nil);
            self.t = nil;
            if self.pendingFunc then
                self.pendingFunc();
                self.pendingFunc = nil;
            end
        end
    end

    function TTSUtil:PlaySample(voiceID)
        self.contentSource = "sample";

        self:Clear();
        voiceID = voiceID or self:GetVoiceIDForNPC();
        local destination = DESTINATION;
        local rate = self.defaultRate or C_TTSSettings.GetSpeechRate();
        local volume = self.defaultVolume or C_TTSSettings.GetSpeechVolume();

        self.pendingFunc = function()
            C_VoiceChat.SpeakText(voiceID, TEXT_TO_SPEECH_SAMPLE_TEXT, destination, rate, volume);
        end

        self.t = -0.2;
        self:SetScript("OnUpdate", self.OnUpdate_Process);
    end

    addon.CallbackRegistry:Register("SettingsUI.Hide", function()
        TTSUtil.voices = nil;
    end);
end


do  --CallbackRegistry
    local function OnHandleEvent(event)
        if TTSUtil.isEnabled then
            if TTS_AUTO_PLAY then
                TTSUtil:ReadCurrentDialogue();
            end
        end
    end
    CallbackRegistry:Register("DialogueUI.HandleEvent", OnHandleEvent);

    local function OnBookCached()
        if TTSUtil.isEnabled then
            if TTS_AUTO_PLAY then
                After(0.5, function()
                    addon.BookUI:SpeakTopContent();
                end);
            end
        end
    end
    CallbackRegistry:Register("BookUI.BookCached", OnBookCached);

    local function InteractionClosed()
        if TTSUtil.isEnabled then
            TTSUtil.previousSpeaker = nil;
            TTSUtil.previousTitle = nil;
            if TTS_STOP_WHEN_LEAVING then
                TTSUtil:StopLastTTS();
            end
        end
    end
    CallbackRegistry:Register("DialogueUI.Hide", InteractionClosed);


    local function Settings_TTSEnabled(dbValue)
        TTSUtil:EnableModule(dbValue == true);
    end
    CallbackRegistry:Register("SettingChanged.TTSEnabled", Settings_TTSEnabled);

    local function Settings_TTSAutoPlay(dbValue)
        TTS_AUTO_PLAY = dbValue == true;
    end
    CallbackRegistry:Register("SettingChanged.TTSAutoPlay", Settings_TTSAutoPlay);

    local function Settings_TTSAutoStop(dbValue)
        TTS_STOP_WHEN_LEAVING = dbValue == true;
    end
    CallbackRegistry:Register("SettingChanged.TTSAutoStop", Settings_TTSAutoStop);

    --"Stop reading old text when opening new dialog"
    local function Settings_TTSStopOnNew(dbValue)
        TTS_STOP_ON_NEW = dbValue == true;
    end
    CallbackRegistry:Register("SettingChanged.TTSStopOnNew", Settings_TTSStopOnNew);

    local function Settings_TTSVoice(dbValue, userInput)
        if userInput then
            local voiceID = dbValue;
            TTSUtil:PlaySample(voiceID);
        end
    end

    --"Use anrrator voice for quest titles, npc names, objectives and any text in <> in the body"
    local function Settings_TTSUseNarrator(dbValue)
        TTS_USE_NARRATOR = dbValue == true;
    end
    CallbackRegistry:Register("SettingChanged.TTSUseNarrator", Settings_TTSUseNarrator);

    CallbackRegistry:Register("SettingChanged.TTSVoiceMale", Settings_TTSVoice);
    CallbackRegistry:Register("SettingChanged.TTSVoiceFemale", Settings_TTSVoice);
    CallbackRegistry:Register("SettingChanged.TTSVoiceNarrator", Settings_TTSVoice);
    CallbackRegistry:Register("SettingChanged.BookTTSVoice", Settings_TTSVoice);

    local function Settings_TTSVolume(dbValue, userInput)
        local volume = dbValue and tonumber(dbValue) or 10;
        if volume < 1 then
            volume = 1;
        elseif volume > 10 then
            volume = 10;
        end
        volume = 10 * volume;
        TTSUtil.defaultVolume = volume;
        if userInput then
            TTSUtil:PlaySample();
        end
    end
    CallbackRegistry:Register("SettingChanged.TTSVolume", Settings_TTSVolume);

    local TTSRateValue = {
        [1] = 0,
        [2] = 1,
        [3] = 2,
        [4] = 4,
        [5] = 7,
        [6] = 10,
    };

    local function Settings_TTSRate(dbValue, userInput)
        local rate = dbValue or 1;
        if not TTSRateValue[rate] then
            rate = 1;
        end
        TTSUtil.defaultRate = TTSRateValue[rate];
        if userInput then
            TTSUtil:PlaySample();
        end
    end
    CallbackRegistry:Register("SettingChanged.TTSRate", Settings_TTSRate);

    local function Settings_TTSContentQuestTitle(dbValue, userInput)
        TTS_CONTENT_QUEST_TITLE = dbValue == true;
        if userInput then
            TTSUtil:Clear();
        end
    end
    CallbackRegistry:Register("SettingChanged.TTSContentQuestTitle", Settings_TTSContentQuestTitle);

    local function Settings_TTSContentSpeaker(dbValue, userInput)
        TTS_CONTENT_SPEAKER = dbValue == true;
        if userInput then
            TTSUtil:Clear();
        end
    end
    CallbackRegistry:Register("SettingChanged.TTSContentSpeaker", Settings_TTSContentSpeaker);

    --"Read Quest Objectives"
    local function Settings_TTSContentObjective(dbValue, userInput)
        TTS_CONTENT_OBJECTIVE = dbValue == true;
        if userInput then
            TTSUtil:Clear();
        end
    end
    CallbackRegistry:Register("SettingChanged.TTSContentObjective", Settings_TTSContentObjective);

    --"Skip recently read quest"
    local function Settings_TTSSkipRecent(dbValue, userInput)
        TTS_SKIP_RECENT = dbValue == true;
        if userInput then
            TTSUtil:Clear();
        end
    end
    CallbackRegistry:Register("SettingChanged.TTSSkipRecent", Settings_TTSSkipRecent);


    --Book
    local function BookUI_OnHide()
        TTSUtil:StopReadingBook();
    end
    CallbackRegistry:Register("BookUI.Hide", BookUI_OnHide);
end