From 3ac90216b80c797eae254138bab9fc582412178c Mon Sep 17 00:00:00 2001
From: Ilya Portnov <portnov84@rambler.ru>
Date: Sat, 14 May 2011 21:22:15 +0600
Subject: [PATCH] Update keybindings.

---
 lib/KeyBindings.hs |   21 ++++++++-------------
 1 files changed, 8 insertions(+), 13 deletions(-)

diff --git a/lib/KeyBindings.hs b/lib/KeyBindings.hs
index b2b8bbe..9889250 100644
--- a/lib/KeyBindings.hs
+++ b/lib/KeyBindings.hs
@@ -30,6 +30,7 @@ import qualified XMonad.Layout.WindowNavigation as Nav
 import XMonad.Prompt.Window
 
 import CommonFunctions
+import Mouse
 import Themes      (myXPConfig, myGSConfig, searchGS)
 import AppGroups   (switchToApp)
 import GroupsSetup (myApps)
@@ -74,22 +75,13 @@ addKeys = [--           ("M1-<F2>",         gnomeRun),
           ("M-<Space>",       sendMessage NextLayout),
           --
           -- Jump to specific layout
-          ("M-d",             chooseLayout "dwm"),
-          ("M-c",             chooseLayout "coding"),
-          ("M-m",             chooseLayout "mirror"),
           ("M-f",             chooseLayout "Full"),
-          ("M-i",             chooseLayout "im"),
-          ("M-a",             chooseLayout "Grid"),
-          ("M-o",             chooseLayout "onebig"),
-          ("M-w",             chooseLayout "mgrid"),
           ("M-u",             chooseLayout "autogrid"),
           ("M-<Up>",          withFocused (sendMessage . maximizeRestore)),
           ("M-<Down>",        withFocused minimizeWindow),
           ("M-<Right>",       withFocused (sendMessage . RestoreMinimizedWin)),
 
-          ("M-M1-m",          sendMessage $ Toggle MIRROR),
           ("M-b",             sendMessage $ ToggleStruts),
-          ("M-t",             trashWindow),
 
           -- Focus urgent window
           ("M-<F12>",         focusUrgent),
@@ -100,18 +92,20 @@ addKeys = [--           ("M1-<F2>",         gnomeRun),
           ("M1-z",            goToSelected searchGS),
           ("M-z",             gridselectWorkspace searchGS W.greedyView),
 
-          ("M1-e",            viewEmptyWorkspace),
-          ("M1-S-e",          windows $ emptyCurrentWorkspace),
           ("M-<Backspace>",   nextMatch History (return True)),
 
           -- Resize viewed windows to the correct size
           ("M-n",             refresh),
                      
           -- Move focus to the next window
-          ("M1-<Tab>",        windows W.focusDown),
+--           ("M1-<Tab>",        windows W.focusDown),
+          ("M1-<Tab>",        searchInWorkspace searchGS),
           ("M-j",             windows W.focusDown),
           ("M-k",             windows W.focusUp  ),
 
+          ("M1-j",            sendButtonPress 5  ),
+          ("M1-k",            sendButtonPress 4  ),
+
           -- Rotate windows list
           ("M-C-j",           rotateWindows ),
           ("M-C-k",           rotateWindows'),
@@ -161,7 +155,8 @@ addKeys = [--           ("M1-<F2>",         gnomeRun),
                      
           ("M-S-q",           io $ exitWith ExitSuccess),
           -- Restart xmonad
-          ("M-q",             broadcastMessage ReleaseResources >> restart "xmonad" True)]
+--           ("M-q",             broadcastMessage ReleaseResources >> restart "xmonad" True)]
+          ("M-q",             broadcastMessage ReleaseResources >> restart "xmonad-restart" True)]
 
 ------------------------------------------------------------------------
 -- Mouse bindings: default actions bound to mouse events
-- 
1.7.2.3