diff options
| -rw-r--r-- | src/Main.hs | 6 |
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, |