From 8e2cb3d0e92dd8c09233705471f87d4d582eedfe Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sun, 24 Apr 2022 20:34:51 -0600
Subject: Add R.D.StackSet as a replacement for StackSet.

---
 src/Main.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Main.hs')

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,
-- 
cgit