diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-05-31 10:53:08 +0200 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-05-31 10:53:08 +0200 |
commit | 101004dd9f0526d12398e42d26b8d6bc5a57812b (patch) | |
tree | 13d75cb23a8fd544bb794c52fcfa6f3a89f121e9 /Config.hs | |
parent | 3de7f66af861fe0842fdcea4a36a7ce379b8ef8c (diff) | |
download | metatile-101004dd9f0526d12398e42d26b8d6bc5a57812b.tar metatile-101004dd9f0526d12398e42d26b8d6bc5a57812b.zip |
clean up mouse code a bit
darcs-hash:20070531085308-9c5c1-73ed940708aa9a369b0345c0d2b2a4708a231e67
Diffstat (limited to 'Config.hs')
-rw-r--r-- | Config.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -74,7 +74,7 @@ numlockMask = mod2Mask -- Border colors for unfocused and focused windows, respectively. normalBorderColor, focusedBorderColor :: String normalBorderColor = "#dddddd" -focusedBorderColor = "#ff0000" +focusedBorderColor = "#5fbf77" -- Width of the window border in pixels borderWidth :: Dimension @@ -115,7 +115,7 @@ keys = M.fromList $ , ((modMask, xK_h ), sendMessage Shrink) -- @@ Shrink the master area , ((modMask, xK_l ), sendMessage Expand) -- @@ Expand the master area - , ((modMask, xK_t ), withFocused clearFloating) -- @@ Make floating window tiled + , ((modMask, xK_t ), withFocused sink) -- @@ Push window back into tiling -- increase or decrease number of windows in the master area , ((modMask , xK_comma ), sendMessage (IncMasterN 1)) -- @@ Increment the number of windows in the master area @@ -125,7 +125,7 @@ keys = M.fromList $ , ((modMask , xK_b ), modifyGap (\i n -> let x = (defaultGaps ++ repeat (0,0,0,0)) !! i in if n == x then (0,0,0,0) else x)) -- @@ Toggle the status bar gap -- quit, or restart - , ((modMask .|. shiftMask, xK_q ), io (exitWith ExitSuccess)) -- @@ Quit xmonad + , ((modMask .|. shiftMask, xK_q ), io (exitWith ExitSuccess)) -- @@ Quit xmonad , ((modMask , xK_q ), restart Nothing True) -- @@ Restart xmonad ] ++ |