diff options
| author | azahi <azahi@teknik.io> | 2018-10-13 14:12:30 +0300 |
|---|---|---|
| committer | azahi <azahi@teknik.io> | 2018-10-13 14:12:30 +0300 |
| commit | 8e20389ce238d979e6cb9253643bc181d698f5a9 (patch) | |
| tree | d777052e5ac411cfa79de596ecc99d7d596705d8 /src/Test.hs | |
| parent | Rework Custom (diff) | |
Huge update, yet again
Move to ~/.xmonad Completely redo directory structure Remove Test.hs with xmonad-ng-test because it breaks cabal Add headers for new files Add proper "copyright" entries and mention upstream xmonad developers Other minor fixes
Diffstat (limited to 'src/Test.hs')
| -rw-r--r-- | src/Test.hs | 50 |
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") |