From d7176233da673ea5d92eadcbf52323b5d8419cfd Mon Sep 17 00:00:00 2001
From: azahi <azahi@teknik.io>
Date: Mon, 8 Oct 2018 21:18:13 +0300
Subject: Rework Custom

Change the names of high-order functoins
Remove named keybindings
Add check executable for keybindings
Expand xmonad-ng library
Bump to 0.15.1
---
 src/Test.hs | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 src/Test.hs

(limited to 'src/Test.hs')

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")
-- 
cgit 1.4.1