module Chelleport.Context (initializeContext) where

import Chelleport.Config
import Chelleport.Types
import Data.ByteString (ByteString)
-- import Data.Time.Clock.System
-- import qualified Debug.Trace as Debug
import Data.FileEmbed (embedFileRelative)
import qualified Graphics.X11 as X11
import SDL (($=))
import qualified SDL
import qualified SDL.Font as TTF

-- benchmark :: String -> IO a -> IO a
-- benchmark msg m = do
--   start <- systemNanoseconds <$> getSystemTime
--   result <- m
--   end <- systemNanoseconds <$> getSystemTime
--   Debug.traceM $ msg ++ ": " ++ show (end - start)
--   pure result

initializeContext :: IO DrawContext
initializeContext = do
  -- Initialize SDL
  SDL.initialize [SDL.InitVideo, SDL.InitEvents]
  TTF.initialize

  window <- initializeWindow
  renderer <- initializeRenderer window
  font <- loadFont

  display <- X11.openDisplay ""

  pure $
    DrawContext
      { ctxWindow = window,
        ctxRenderer = renderer,
        ctxFont = font,
        ctxX11Display = display
      }

rawFontData :: ByteString
rawFontData = $(embedFileRelative "./static/font.ttf")

loadFont :: IO TTF.Font
loadFont = do
  font <- TTF.decode rawFontData fontSize
  TTF.setStyle font [TTF.Bold]
  pure font

initializeRenderer :: SDL.Window -> IO SDL.Renderer
initializeRenderer window = do
  renderer <- SDL.createRenderer window (-1) SDL.defaultRenderer
  SDL.windowOpacity window $= windowOpacity
  SDL.rendererDrawBlendMode renderer $= SDL.BlendAlphaBlend
  pure renderer

initializeWindow :: IO SDL.Window
initializeWindow = do
  let windowCfg =
        SDL.defaultWindow
          { SDL.windowMode = SDL.FullscreenDesktop,
            SDL.windowPosition = SDL.Absolute $ SDL.P $ SDL.V2 0 0,
            SDL.windowInitialSize = SDL.V2 0 0,
            SDL.windowBorder = False
          }
  SDL.createWindow "Chelleport" windowCfg