From 2210e6c904b53fef1b029bac985ea7d3eb7f2f84 Mon Sep 17 00:00:00 2001
From: William Gunter <in.wil.i.trust@gmail.com>
Date: Sat, 30 Sep 2017 09:12:56 -0700
Subject: [PATCH] chat: add scroll speed option

---
 api/config.lua   | 1 +
 modules/chat.lua | 8 ++++++--
 modules/gui.lua  | 1 +
 3 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/api/config.lua b/api/config.lua
index 30ec9f39..08241d1d 100644
--- a/api/config.lua
+++ b/api/config.lua
@@ -480,6 +480,7 @@ function pfUI:LoadConfig()
   pfUI:UpdateConfig("chat",       "global",      "sticky",           "1")
   pfUI:UpdateConfig("chat",       "global",      "fadeout",          "0")
   pfUI:UpdateConfig("chat",       "global",      "fadetime",         "300")
+  pfUI:UpdateConfig("chat",       "global",      "scrollspeed",      "1")
 
   pfUI:UpdateConfig("nameplates", nil,           "use_unitfonts",    "0")
   pfUI:UpdateConfig("nameplates", nil,           "overlap",          "0")
diff --git a/modules/chat.lua b/modules/chat.lua
index 22adacfc..3ed7c6cd 100644
--- a/modules/chat.lua
+++ b/modules/chat.lua
@@ -387,13 +387,17 @@ pfUI:RegisterModule("chat", function ()
           if IsShiftKeyDown() then
             frame:ScrollToTop()
           else
-            frame:ScrollUp()
+            for i=1, C.chat.global.scrollspeed do
+              frame:ScrollUp()
+            end
           end
         elseif (arg1 < 0) then
           if IsShiftKeyDown() then
             frame:ScrollToBottom()
           else
-            frame:ScrollDown()
+            for i=1, C.chat.global.scrollspeed do
+              frame:ScrollDown()
+            end
           end
         end
       end)
diff --git a/modules/gui.lua b/modules/gui.lua
index 5a564bcd..2c64d61d 100644
--- a/modules/gui.lua
+++ b/modules/gui.lua
@@ -1293,6 +1293,7 @@ pfUI:RegisterModule("gui", function ()
       CreateConfig(this, T["Enable Sticky Chat"], C.chat.global, "sticky", "checkbox")
       CreateConfig(this, T["Enable Chat Fade"], C.chat.global, "fadeout", "checkbox")
       CreateConfig(this, T["Seconds Before Chat Fade"], C.chat.global, "fadetime")
+      CreateConfig(this, T["Mousewheel Scroll Speed"], C.chat.global, "scrollspeed")
       this.setup = true
     end
   end)