trey/XMonad
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed indentation on main = do block

Browse Source
This commit is contained in:
Trey Blancher 2022-08-06 17:24:02 -04:00
parent cb257fe6be
commit 630d3cc08a
1 changed files with 24 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
xmonad.hs
View File

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