From 101004dd9f0526d12398e42d26b8d6bc5a57812b Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Thu, 31 May 2007 10:53:08 +0200
Subject: clean up mouse code a bit

darcs-hash:20070531085308-9c5c1-73ed940708aa9a369b0345c0d2b2a4708a231e67
---
 Config.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Config.hs')

diff --git a/Config.hs b/Config.hs
index 57750e0..25d56ee 100644
--- a/Config.hs
+++ b/Config.hs
@@ -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
 
     ] ++
-- 
cgit v1.2.3