Refactor window size, update selection cursor on new screen

2023-03-25 09:27:27 +00:00
parent 20c05be23f
commit ea0c942887
57 changed files with 346 additions and 310 deletions
@@ -3,6 +3,6 @@ module Dodge.WindowSize where
 import Dodge.Data.Config

 getWindowSize :: Integral a => (Configuration -> ResFactor) -> Configuration -> (a,a)
-getWindowSize f cfig = (g _windowX,g _windowY)
+getWindowSize f cfig = (g _windowX, g _windowY)
  where
-    g h = fromIntegral $ round (h cfig) `div` resFactorNum (f cfig)
+    g h = fromIntegral $ applyResFactor (f cfig) (h cfig)