diff options
author | tv <tv@krebsco.de> | 2018-11-29 21:24:31 +0100 |
---|---|---|
committer | tv <tv@krebsco.de> | 2018-11-29 21:56:52 +0100 |
commit | 8d87e4b8909adff80f9b9dd83fe177a3dff8918d (patch) | |
tree | c7fe07fb4096bdded50fc172dc047a7d3adff6f9 /jeschli/5pkgs/simple | |
parent | 84c79ff43b2b65bba969aef7460f4a9d2915c112 (diff) |
xmonad-stockholm: 1.2.0 -> 1.3.0
Diffstat (limited to 'jeschli/5pkgs/simple')
-rw-r--r-- | jeschli/5pkgs/simple/xmonad-jeschli/default.nix | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/jeschli/5pkgs/simple/xmonad-jeschli/default.nix b/jeschli/5pkgs/simple/xmonad-jeschli/default.nix index 4ebd98f..827c77b 100644 --- a/jeschli/5pkgs/simple/xmonad-jeschli/default.nix +++ b/jeschli/5pkgs/simple/xmonad-jeschli/default.nix @@ -24,8 +24,9 @@ import Control.Monad.Extra (whenJustM) import Graphics.X11.ExtraTypes.XF86 import Text.Read (readEither) import XMonad -import System.IO (hPutStrLn, stderr) import System.Environment (getArgs, withArgs, getEnv, getEnvironment, lookupEnv) +import System.Exit (exitFailure) +import System.IO (hPutStrLn, stderr) import System.Posix.Process (executeFile) import XMonad.Actions.DynamicWorkspaces ( addWorkspacePrompt, renameWorkspace , removeEmptyWorkspace) @@ -66,12 +67,14 @@ myFont = "-schumacher-*-*-*-*-*-*-*-*-*-*-*-iso10646-*" main :: IO () main = getArgs >>= \case - ["--shutdown"] -> sendShutdownEvent - _ -> mainNoArgs + [] -> mainNoArgs + ["--shutdown"] -> shutdown + args -> hPutStrLn stderr ("bad arguments: " <> show args) >> exitFailure mainNoArgs :: IO () mainNoArgs = do workspaces0 <- getWorkspaces0 + handleShutdownEvent <- newShutdownEventHandler xmonad -- $ withUrgencyHookC dzenUrgencyHook { args = ["-bg", "magenta", "-fg", "magenta", "-h", "2"], duration = 500000 } -- urgencyConfig { remindWhen = Every 1 } |