From aa70d3f7e89aeab7f07f0e0dbe482c1373597a9d Mon Sep 17 00:00:00 2001
From: SwissalpS <Luke@SwissalpS.ws>
Date: Sun, 28 Jun 2020 12:18:57 +0200
Subject: [PATCH] added alt+scrollwheel -> horizontal scrollbar

---
 data/core/view.lua | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/data/core/view.lua b/data/core/view.lua
index ae978a9..ad36b14 100644
--- a/data/core/view.lua
+++ b/data/core/view.lua
@@ -3,6 +3,7 @@ local config = require "core.config"
 local style = require "core.style"
 local common = require "core.common"
 local Object = require "core.object"
+local keymap = require "core.keymap"
 
 
 local View = Object:extend()
@@ -97,7 +98,11 @@ end
 
 function View:on_mouse_wheel(y)
   if self.scrollable then
-    self.scroll.to.y = self.scroll.to.y + y * -config.mouse_wheel_scroll
+    if keymap.modkeys['alt'] then
+      self.scroll.to.x = self.scroll.to.x + y * -config.mouse_wheel_scroll
+    else
+      self.scroll.to.y = self.scroll.to.y + y * -config.mouse_wheel_scroll
+    end
   end
 end