summaryrefslogtreecommitdiff
path: root/desktop/xmonad
diff options
context:
space:
mode:
authorDaniel Silverstone (parasomnia chroot) <dsilvers@digital-scurf.org>2013-04-11 11:24:51 +0100
committerDaniel Silverstone (parasomnia chroot) <dsilvers@digital-scurf.org>2013-04-11 11:24:51 +0100
commitdd933ce68109e4363c2f20efeffcff13156d41e7 (patch)
treeef93f0f1dd792a608f52890feab24ac4ee785037 /desktop/xmonad
parentecdbb77dbb7a0889c7480a73194bf3c79f3f2093 (diff)
downloadresources-dd933ce68109e4363c2f20efeffcff13156d41e7.tar.bz2
Add support for minimising and restoring windows
Diffstat (limited to 'desktop/xmonad')
-rw-r--r--desktop/xmonad/xmonad.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/desktop/xmonad/xmonad.hs b/desktop/xmonad/xmonad.hs
index ae193d8..f531f04 100644
--- a/desktop/xmonad/xmonad.hs
+++ b/desktop/xmonad/xmonad.hs
@@ -13,6 +13,7 @@ import qualified XMonad.Actions.DynamicWorkspaceOrder as DO
import System.Taffybar.XMonadLog ( dbusLogWithPP, taffybarDefaultPP )
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops
+import XMonad.Layout.Minimize
import XMonad.Layout.NoBorders
import XMonad.Layout.MultiToggle
import XMonad.Layout.MultiToggle.Instances
@@ -58,6 +59,7 @@ main = do
, handleEventHook = fullscreenEventHook
, layoutHook = id
. smartBorders
+ . minimize
. mkToggle (single FULL)
$ (layoutHook gnomeConfig)
} `EZ.additionalKeysP`
@@ -79,6 +81,8 @@ main = do
, ("M1-<F4>", kill)
, ("M-<F11>", sendMessage $ Toggle FULL)
, ("M-S-t", withFocused $ windows . W.sink)
+ , ("M-z", withFocused minimizeWindow)
+ , ("M-S-z", sendMessage RestoreNextMinimizedWin)
-- Workspace management
, ("M-t", addWorkspacePrompt defaultXPConfig)
, ("M-r", renameWorkspace defaultXPConfig)