diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index 17f6207..bb39e14 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -26,7 +26,7 @@ import Rahm.Desktop.Hooks.WindowChange import Rahm.Desktop.History import qualified XMonad as X -import qualified XMonad.StackSet as W +import qualified Rahm.Desktop.StackSet as W main = do putStrLn "Welcome To RDE!" @@ -39,6 +39,7 @@ main = do setEnv "ROFI" menuCommandString xmobar <- spawnXMobar + count <- fromIntegral . screenCount <$> openDisplay "" (=<<) X.xmonad $ applyKeys $ withLocationChangeHook historyHook $ ewmh $ docks $ def @@ -68,7 +69,7 @@ main = do -- with something. However, this configuration only supports 36 -- monitors on boot. If you need more than 36 monitors, you'll have to -- configure those ones after starting XMonad. - , workspaces = map return (['0'..'9'] ++ ['a'..'z']) + , workspaces = map return (take count $ ['0'..'9'] ++ ['a'..'z']) , handleEventHook = composeAll [ fullscreenEventHook, |