Temporarily maximise focused win with M-backspace
This commit is contained in:
parent
2bee8bc24b
commit
b880d9e8d4
1 changed files with 5 additions and 1 deletions
|
|
@ -18,6 +18,7 @@ import XMonad.Layout.Grid
|
||||||
import XMonad.Layout.IM
|
import XMonad.Layout.IM
|
||||||
import Data.Ratio ((%))
|
import Data.Ratio ((%))
|
||||||
import XMonad.Layout.PerWorkspace
|
import XMonad.Layout.PerWorkspace
|
||||||
|
import XMonad.Layout.Maximize
|
||||||
|
|
||||||
import qualified XMonad.Actions.FlexibleManipulate as Flex
|
import qualified XMonad.Actions.FlexibleManipulate as Flex
|
||||||
import qualified XMonad.StackSet as W
|
import qualified XMonad.StackSet as W
|
||||||
|
|
@ -30,7 +31,7 @@ myTerminal :: String
|
||||||
myTerminal = "xterm"
|
myTerminal = "xterm"
|
||||||
myScratchPad = scratchpadSpawnActionTerminal myTerminal
|
myScratchPad = scratchpadSpawnActionTerminal myTerminal
|
||||||
|
|
||||||
myDefaultLayoutHook = windowNavigation $ desktopLayoutModifiers $
|
myDefaultLayoutHook = windowNavigation $ desktopLayoutModifiers $ maximize $
|
||||||
-- fullscreen with tabs
|
-- fullscreen with tabs
|
||||||
simpleTabbedAlways
|
simpleTabbedAlways
|
||||||
-- Two panes, each one with its own tabs
|
-- Two panes, each one with its own tabs
|
||||||
|
|
@ -129,6 +130,9 @@ main = xmonad $ gnomeConfig
|
||||||
-- Swap the focused window and the master window
|
-- Swap the focused window and the master window
|
||||||
, ("M-S-<Return>", windows W.swapMaster)
|
, ("M-S-<Return>", windows W.swapMaster)
|
||||||
|
|
||||||
|
-- Put the focused window (nearly) full screen
|
||||||
|
, ("M-<Backspace>", withFocused (sendMessage . maximizeRestore))
|
||||||
|
|
||||||
-- Move focus to the master window
|
-- Move focus to the master window
|
||||||
, ("M-m", windows W.focusMaster )
|
, ("M-m", windows W.focusMaster )
|
||||||
-- Scratchpad
|
-- Scratchpad
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue