From 093bf7314aecece15b01ce7353ecb0a6c368d6cc Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Wed, 26 Oct 2016 13:23:44 -0700
Subject: [PATCH] [XMonad] Move main to top of xmonad.hs

---
 dotfiles/xmonad/xmonad.hs | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 10da867e..2c7ae302 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -35,6 +35,18 @@ import XMonad.Util.CustomKeys
 import qualified XMonad.Util.ExtensibleState as XS
 import XMonad.Util.NamedWindows (getName)
 
+main = xmonad $ pagerHints def
+       { modMask = mod4Mask
+       , terminal = "urxvt"
+       , manageHook = manageDocks <+> myManageHook <+> manageHook def
+       , layoutHook = myLayoutHook
+       , logHook = myLogHook +++ ewmhWorkspaceNamesLogHook
+       , handleEventHook = docksEventHook <+> fullscreenEventHook +++ ewmhDesktopsEventHook
+       , startupHook = myStartup +++ ewmhWorkspaceNamesLogHook
+       , keys = customKeys (const []) addKeys
+      } where
+    x +++ y = mappend y x
+
 getClass :: Window -> X String
 getClass w = do
   classHint <- withDisplay $ \d -> io $ getClassHint d w
@@ -57,18 +69,6 @@ getClassRemap = do
   text <- B.readFile (home </> ".lib/class_remap.json")
   return $ fromMaybe M.empty (decode text)
 
-main = xmonad $ pagerHints def
-       { modMask = mod4Mask
-       , terminal = "urxvt"
-       , manageHook = manageDocks <+> myManageHook <+> manageHook def
-       , layoutHook = myLayoutHook
-       , logHook = myLogHook +++ ewmhWorkspaceNamesLogHook
-       , handleEventHook = docksEventHook <+> fullscreenEventHook +++ ewmhDesktopsEventHook
-       , startupHook = myStartup +++ ewmhWorkspaceNamesLogHook
-       , keys = customKeys (const []) addKeys
-      } where
-    x +++ y = mappend y x
-
 myLogHook = fadeInactiveLogHook 0.9
 
 ewmhWorkspaceNamesLogHook = do