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