1 files changed, 0 insertions, 50 deletions
diff --git a/src/Test.hs b/src/Test.hs
deleted file mode 100644
index eea5d61..0000000
--- a/src/Test.hs
+++ /dev/null
@@ -1,50 +0,0 @@
-module Main where
-
-import Control.Monad (void)
-import qualified Data.Map as M
-import qualified Data.Set as S
-import XMonad
-import XMonad.Prompt
-import XMonad.StackSet (new)
-import XMonad.Util.EZConfig (checkKeymap)
-import XMonad.Util.Font
-import XMonad.Custom.Bindings (rawKeys)
-import XMonad.Custom.Theme (promptTheme)
-
-main :: IO ()
-main = do
-    dpy   <- openDisplay ""
-    rootw <- rootWindow dpy $ defaultScreen dpy
-
-    let xmc = def {layoutHook = Layout $ layoutHook def}
-        initialWinset = new (layoutHook xmc) (workspaces xmc) []
-
-    let cf = XConf { display       = dpy
-                   , config        = xmc
-                   , theRoot       = rootw
-                   , normalBorder  = 0
-                   , focusedBorder = 0
-                   , keyActions    = M.empty
-                   , buttonActions = M.empty
-                   , mouseFocused  = False
-                   , mousePosition = Nothing
-                   , currentEvent  = Nothing
-                   }
-
-    let st = XState { windowset       = initialWinset
-                    , numberlockMask  = 0
-                    , mapped          = S.empty
-                    , waitingUnmap    = M.empty
-                    , dragging        = Nothing
-                    , extensibleState = M.empty
-                    }
-
-    void $ runX cf st $ do
-        checkKeymap xmc (rawKeys xmc)
-
-        xmf <- initXMF (font promptTheme)
-
-        case xmf of
-            Core _ -> io (putStrLn "Font: core")
-            Utf8 _ -> io (putStrLn "Font: utf8")
-            Xft  _ -> io (putStrLn "Font: xft")