diff --git a/xmonad.hs b/xmonad.hs index 43180d9..bedb06c 100755 --- a/xmonad.hs +++ b/xmonad.hs @@ -280,31 +280,30 @@ makeLauncher yargs run exec close = concat launcher = makeLauncher "-x" "eval" "\"exec " "\"" -main = do - sc <- IS.countScreens - dzenTopBar <- spawnPipe (getTopBar sc) - dzenBarbicanBar <- spawnPipe (getBarbicanBar sc) - dzenDeltachunkBar <- spawnPipe (getDeltachunkBar sc) - dzenFerrumBar <- spawnPipe (getFerrumBar sc) - dzenOsmiumBar <- spawnPipe (getOsmiumBar sc) - dzenSodiumBar <- spawnPipe (getSodiumBar sc) - dzenTennessineBar <- spawnPipe (getTennessineBar sc) - dzenBlancherBar <- spawnPipe (getBlancherBar sc) - xmonad $ docks $ ewmh $ desktopConfig { - workspaces = ["shell","qb","pindrop","kofc","VM"] - , terminal = myTerminal - , focusFollowsMouse = True - , manageHook = manageDocks <+> myManageHook <+> manageHook desktopConfig - , handleEventHook = handleEventHook desktopConfig - , layoutHook = avoidStruts $ gaps [(D,108)] $ layoutH - , logHook = myLogHook dzenTopBar >> fadeHook >> updatePointer (0.5, 0.5) (0, 0) - , borderWidth = 1 - , normalBorderColor = "#282828" - , focusedBorderColor = "#ebdbb2" - , modMask = winKey - , startupHook = myStartup - } - `additionalKeys` myKeys +main = do sc <- IS.countScreens + dzenTopBar <- spawnPipe (getTopBar sc) + dzenBarbicanBar <- spawnPipe (getBarbicanBar sc) + dzenDeltachunkBar <- spawnPipe (getDeltachunkBar sc) + dzenFerrumBar <- spawnPipe (getFerrumBar sc) + dzenOsmiumBar <- spawnPipe (getOsmiumBar sc) + dzenSodiumBar <- spawnPipe (getSodiumBar sc) + dzenTennessineBar <- spawnPipe (getTennessineBar sc) + dzenBlancherBar <- spawnPipe (getBlancherBar sc) + xmonad $ docks $ ewmh $ desktopConfig { + workspaces = ["shell","qb","pindrop","kofc","VM"] + , terminal = myTerminal + , focusFollowsMouse = True + , manageHook = manageDocks <+> myManageHook <+> manageHook desktopConfig + , handleEventHook = handleEventHook desktopConfig + , layoutHook = avoidStruts $ gaps [(D,108)] $ layoutH + , logHook = myLogHook dzenTopBar >> fadeHook >> updatePointer (0.5, 0.5) (0, 0) + , borderWidth = 1 + , normalBorderColor = "#282828" + , focusedBorderColor = "#ebdbb2" + , modMask = winKey + , startupHook = myStartup + } + `additionalKeys` myKeys myStartup :: X ()