From bbe7717e629b5a265c967652a946fa7563a747ff Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Fri, 26 Jan 2024 15:14:56 -0700 Subject: Change the default workspaces to use some of my common letters first. --- src/Main.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/Main.hs') 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, -- cgit