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 | e2bd155668c681377886ce0b2861ce8036db1d88 (patch) | |
tree | 13d75cb23a8fd544bb794c52fcfa6f3a89f121e9 /Config.hs | |
parent | b1047e049301158332132e4fde03c3e817770bee (diff) | |
download | xmonad-e2bd155668c681377886ce0b2861ce8036db1d88.tar.gz xmonad-e2bd155668c681377886ce0b2861ce8036db1d88.tar.xz xmonad-e2bd155668c681377886ce0b2861ce8036db1d88.zip |
clean up mouse code a bit
darcs-hash:20070531085308-9c5c1-73ed940708aa9a369b0345c0d2b2a4708a231e67.gz
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 ] ++ |