Refactor view + add better highlighting of regions

1 files changed, 3 insertions, 15 deletions

diff --git a/src/Chelleport/Context.hs b/src/Chelleport/Context.hs
index 1dd764f..d62cd7e 100644
--- a/src/Chelleport/Context.hs
+++ b/src/Chelleport/Context.hs
@@ -1,35 +1,23 @@
 module Chelleport.Context where
 
+import Chelleport.Types
 import qualified Graphics.X11 as X11
 import SDL (($=))
 import qualified SDL
 import qualified SDL.Font as TTF
 
-data DrawContext = DrawContext
-  { ctxWindow :: SDL.Window,
-    ctxRenderer :: SDL.Renderer,
-    ctxFont :: TTF.Font,
-    ctxX11Display :: X11.Display
-  }
-
 createContext :: IO DrawContext
 createContext = do
-  -- bounds <- fmap SDL.displayBoundsSize <$> SDL.getDisplays
-  -- let windowSize = case bounds of
-  --       (x : _) -> x
-  --       _ -> SDL.V2 800 600
-  let windowSize = SDL.V2 0 0
-
   let windowCfg =
         SDL.defaultWindow
           { SDL.windowMode = SDL.FullscreenDesktop,
             SDL.windowPosition = SDL.Absolute $ SDL.P $ SDL.V2 0 0,
-            SDL.windowInitialSize = windowSize,
+            SDL.windowInitialSize = SDL.V2 0 0,
             SDL.windowBorder = False
           }
   window <- SDL.createWindow "Chelleport" windowCfg
   renderer <- SDL.createRenderer window (-1) SDL.defaultRenderer
-  font <- TTF.load "Inter-Regular.ttf" 16
+  font <- TTF.load "Inter-Regular.ttf" 24
 
   SDL.windowOpacity window $= 0.6
   SDL.rendererDrawBlendMode renderer $= SDL.BlendAlphaBlend