diff options
author | Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de> | 2009-08-26 01:38:28 +0200 |
---|---|---|
committer | Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de> | 2009-08-26 01:38:28 +0200 |
commit | 56c54995ea4ae34d204c5315bdf04b16761f7af1 (patch) | |
tree | bd3bbdfb2baf9c5d87ab3faee890bc43e64b547a | |
parent | 5b269d5272c2ff03c216c535a73ed2fccab284d7 (diff) | |
download | XMonadContrib-56c54995ea4ae34d204c5315bdf04b16761f7af1.tar.gz XMonadContrib-56c54995ea4ae34d204c5315bdf04b16761f7af1.tar.xz XMonadContrib-56c54995ea4ae34d204c5315bdf04b16761f7af1.zip |
Actually execute the correct command when giving user-defined commands to ServerMode
Ignore-this: 571e4d3ec5bcae56987c6e3b85b800b6
darcs-hash:20090825233828-594c5-6d445f87083d4c7d6ffcf99a467880a0730bac00.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Hooks/ServerMode.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Hooks/ServerMode.hs b/XMonad/Hooks/ServerMode.hs index 4b216e6..db70c6b 100644 --- a/XMonad/Hooks/ServerMode.hs +++ b/XMonad/Hooks/ServerMode.hs @@ -100,7 +100,7 @@ serverModeEventHook' cmdAction (ClientMessageEvent {ev_message_type = mt, ev_dat cl <- cmdAction let listOfCommands = map (uncurry (++)) . zip (map show ([1..] :: [Int])) . map ((++) " - " . fst) case lookup (fromIntegral (head dt) :: Int) (zip [1..] cl) of - Just (c,_) -> runCommand' c - Nothing -> mapM_ (io . hPutStrLn stderr) . listOfCommands $ cl + Just (_,action) -> action + Nothing -> mapM_ (io . hPutStrLn stderr) . listOfCommands $ cl return (All True) serverModeEventHook' _ _ = return (All True) |