Change the default workspaces to use some of my common letters first.

1 files changed, 4 insertions, 2 deletions

diff --git a/src/Main.hs b/src/Main.hs
index f1938a6..a0e13cb 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -2,6 +2,7 @@ import Control.Monad.Reader
   ( MonadReader (ask),
     ReaderT (runReaderT),
   )
+import Data.Char (toUpper)
 import Data.List (isPrefixOf)
 import Data.Monoid (Endo (Endo))
 import qualified Rahm.Desktop.BorderColors
@@ -123,9 +124,10 @@ main = do
                     ],
                 -- This config uses dynamic workspaces, but I have to seed XMonad
                 -- with something. However, this configuration only supports 36
-                -- monitors on boot. If you need more than 36 monitors, you'll have to
+                -- monitors on boot. If you need more than 15 monitors, you'll have to
                 -- configure those ones after starting XMonad.
-                workspaces = map return (['0' .. '9'] ++ ['a' .. 'z']),
+                workspaces =
+                  map return (['w', 'r', 'j', 's', 't'] ++ ['0'..'9']),
                 handleEventHook =
                   composeAll
                     [ fullscreenEventHook,