Set correct scale with tiling window managers

1 files changed, 2 insertions, 1 deletions

diff --git a/GLX.hs b/GLX.hs
index affc185..0548bec 100644
--- a/GLX.hs
+++ b/GLX.hs
@@ -83,7 +83,8 @@ instance Driver GLX where
       ctx <- with visualinfo $ \vi -> createContext disp vi (Context nullPtr) True
       makeCurrent disp wnd ctx
       
-      s <- resize 800 600
+      wa <- getWindowAttributes disp wnd
+      s <- resize (fromIntegral . wa_width $ wa) (fromIntegral . wa_height $ wa)
       
       return GLX
                  { glxDisplay = disp