xmonad-jeschli: set my initial workspaces
This commit is contained in:
parent
b44967f695
commit
c241de7b70
@ -73,7 +73,6 @@ main = getArgs >>= \case
|
|||||||
|
|
||||||
mainNoArgs :: IO ()
|
mainNoArgs :: IO ()
|
||||||
mainNoArgs = do
|
mainNoArgs = do
|
||||||
workspaces0 <- getWorkspaces0
|
|
||||||
handleShutdownEvent <- newShutdownEventHandler
|
handleShutdownEvent <- newShutdownEventHandler
|
||||||
xmonad
|
xmonad
|
||||||
-- $ withUrgencyHookC dzenUrgencyHook { args = ["-bg", "magenta", "-fg", "magenta", "-h", "2"], duration = 500000 }
|
-- $ withUrgencyHookC dzenUrgencyHook { args = ["-bg", "magenta", "-fg", "magenta", "-h", "2"], duration = 500000 }
|
||||||
@ -85,7 +84,7 @@ mainNoArgs = do
|
|||||||
{ terminal = urxvtcPath
|
{ terminal = urxvtcPath
|
||||||
, modMask = mod4Mask
|
, modMask = mod4Mask
|
||||||
, keys = myKeys
|
, keys = myKeys
|
||||||
, workspaces = workspaces0
|
, workspaces = ["comms", "org", "dev"]
|
||||||
, layoutHook = smartBorders $ FixedColumn 1 20 80 10 ||| Full
|
, layoutHook = smartBorders $ FixedColumn 1 20 80 10 ||| Full
|
||||||
-- , handleEventHook = myHandleEventHooks <+> handleTimerEvent
|
-- , handleEventHook = myHandleEventHooks <+> handleTimerEvent
|
||||||
--, handleEventHook = handleTimerEvent
|
--, handleEventHook = handleTimerEvent
|
||||||
|
Loading…
Reference in New Issue
Block a user