Add options page scrolling

2022-06-25 09:28:45 +01:00
parent 3c2df2542a
commit dd0afc6166
12 changed files with 74 additions and 44 deletions
@@ -0,0 +1,5 @@
+module Dodge.WindowLayout where
+import Dodge.Config.Data
+
+availableMenuLines :: Configuration -> Int
+availableMenuLines = floor . (/50) . subtract 125 . _windowY