diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-17 23:33:29 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-17 23:33:29 +0200 |
commit | 1436b9a90835ec2abfee0ff0df8949ea84fc4b98 (patch) | |
tree | edcd050e3b3a702a8724c3a77998acbdc6bde7b9 /Commands.hs | |
parent | 7163db0ed96d0bb4d7455766bfe42ac473d8cf1c (diff) | |
download | XMonadContrib-1436b9a90835ec2abfee0ff0df8949ea84fc4b98.tar.gz XMonadContrib-1436b9a90835ec2abfee0ff0df8949ea84fc4b98.tar.xz XMonadContrib-1436b9a90835ec2abfee0ff0df8949ea84fc4b98.zip |
Match 'Remove Operations functions which have StackSet equivalents' from the core
darcs-hash:20070917213329-a5988-b9cc2ae3e1c8740eecb9300a4b92a2dcd9c81aa1.gz
Diffstat (limited to '')
-rw-r--r-- | Commands.hs | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/Commands.hs b/Commands.hs index 1b7cac8..524eadc 100644 --- a/Commands.hs +++ b/Commands.hs @@ -27,6 +27,7 @@ module XMonadContrib.Commands ( import XMonad import Operations +import StackSet hiding (sink) import XMonadContrib.Dmenu (dmenu) import {-# SOURCE #-} Config (workspaces) @@ -63,13 +64,13 @@ commandMap :: [(String, X ())] -> M.Map String (X ()) commandMap c = M.fromList c workspaceCommands :: [(String, X ())] -workspaceCommands = [((m ++ show i), f i) +workspaceCommands = [((m ++ show i), windows $ f i) | i <- workspaces , (f, m) <- [(view, "view"), (shift, "shift")] ] screenCommands :: [(String, X ())] -screenCommands = [((m ++ show sc), screenWorkspace (fromIntegral sc) >>= flip whenJust f) +screenCommands = [((m ++ show sc), screenWorkspace (fromIntegral sc) >>= flip whenJust (windows . f)) | sc <- [0, 1]::[Int] -- TODO: adapt to screen changes , (f, m) <- [(view, "screen"), (shift, "screen-to-")] ] @@ -85,11 +86,11 @@ defaultCommands = workspaceCommands ++ screenCommands , ("run", spawn "exe=`dmenu_path | dmenu -b` && exec $exe") , ("kill", kill) , ("refresh", refresh) - , ("focus-up", focusUp) - , ("focus-down", focusDown) - , ("swap-up", swapUp) - , ("swap-down", swapDown) - , ("swap-master", swapMaster) + , ("focus-up", windows $ focusUp) + , ("focus-down", windows $ focusDown) + , ("swap-up", windows $ swapUp) + , ("swap-down", windows $ swapDown) + , ("swap-master", windows $ swapMaster) , ("sink", withFocused sink) , ("quit-wm", io $ exitWith ExitSuccess) ] |