1 files changed, 50 insertions, 0 deletions
diff --git a/src/Test.hs b/src/Test.hs
new file mode 100644
index 0000000..eea5d61
--- /dev/null
+++ b/src/Test.hs
@@ -0,0 +1,50 @@
+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")