nixos/xmonad: adjust example to reflect v0.17.0 update of xmonad
This commit is contained in:
parent
c48b9a8428
commit
34a1ff28e0
|
@ -128,33 +128,34 @@ in {
|
||||||
[ ( (mod4Mask,xK_r), compileRestart True)
|
[ ( (mod4Mask,xK_r), compileRestart True)
|
||||||
, ( (mod4Mask,xK_q), restart "xmonad" True ) ]
|
, ( (mod4Mask,xK_q), restart "xmonad" True ) ]
|
||||||
|
|
||||||
|
compileRestart resume = do
|
||||||
|
dirs <- asks directories
|
||||||
|
whenX (recompile dirs True) $ do
|
||||||
|
when resume writeStateToFile
|
||||||
|
catchIO
|
||||||
|
( do
|
||||||
|
args <- getArgs
|
||||||
|
executeFile (cacheDir dirs </> compiledConfig) False args Nothing
|
||||||
|
)
|
||||||
|
|
||||||
|
main = getDirectories >>= launch myConfig
|
||||||
|
|
||||||
--------------------------------------------
|
--------------------------------------------
|
||||||
{- version 0.17.0 -}
|
{- For versions before 0.17.0 use this instead -}
|
||||||
--------------------------------------------
|
--------------------------------------------
|
||||||
-- compileRestart resume =
|
-- compileRestart resume =
|
||||||
-- dirs <- io getDirectories
|
-- whenX (recompile True) $
|
||||||
-- whenX (recompile dirs True) $
|
|
||||||
-- when resume writeStateToFile
|
-- when resume writeStateToFile
|
||||||
-- *> catchIO
|
-- *> catchIO
|
||||||
-- ( do
|
-- ( do
|
||||||
|
-- dir <- getXMonadDataDir
|
||||||
-- args <- getArgs
|
-- args <- getArgs
|
||||||
-- executeFile (cacheDir dirs </> compiledConfig) False args Nothing
|
-- executeFile (dir </> compiledConfig) False args Nothing
|
||||||
-- )
|
-- )
|
||||||
--
|
--
|
||||||
-- main = getDirectories >>= launch myConfig
|
-- main = launch myConfig
|
||||||
--------------------------------------------
|
--------------------------------------------
|
||||||
|
|
||||||
compileRestart resume =
|
|
||||||
whenX (recompile True) $
|
|
||||||
when resume writeStateToFile
|
|
||||||
*> catchIO
|
|
||||||
( do
|
|
||||||
dir <- getXMonadDataDir
|
|
||||||
args <- getArgs
|
|
||||||
executeFile (dir </> compiledConfig) False args Nothing
|
|
||||||
)
|
|
||||||
|
|
||||||
main = launch myConfig
|
|
||||||
'';
|
'';
|
||||||
};
|
};
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue