diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-04-24 20:34:51 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:46 -0600 |
| commit | 8e2cb3d0e92dd8c09233705471f87d4d582eedfe (patch) | |
| tree | 0f2bcdf6074b6a8f696c53efb0a83bdd53460275 /src/Main.hs | |
| parent | 92deb70d1268317e3b80c8c28e0358f0c9064f3e (diff) | |
| download | rde-8e2cb3d0e92dd8c09233705471f87d4d582eedfe.tar.gz rde-8e2cb3d0e92dd8c09233705471f87d4d582eedfe.tar.bz2 rde-8e2cb3d0e92dd8c09233705471f87d4d582eedfe.zip | |
Add R.D.StackSet as a replacement for StackSet.
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, |