nojhan/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

new layout: two panes of tabbed, with shortcuts for moving windows between panes

Browse source
This commit is contained in:
nojhan 2012-05-04 14:18:54 +02:00
commit 49d50e1114
1 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

19
xmonad.hs
View file

@ -11,9 +11,11 @@ import XMonad.Util.Scratchpad (scratchpadSpawnAction, scratchpadManageHook, scra
import XMonad.Layout.WindowNavigation import XMonad.Layout.WindowNavigation
import XMonad.Actions.FloatSnap import XMonad.Actions.FloatSnap
import XMonad.Actions.PhysicalScreens import XMonad.Actions.PhysicalScreens
import XMonad.Layout.BorderResize
import XMonad.Layout.TwoPane
import XMonad.Layout.Combo
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
import qualified Data.Map as M import qualified Data.Map as M
@ -31,9 +33,13 @@ main = xmonad $ gnomeConfig
-- add a fullscreen tabbed layout that does not avoid covering -- add a fullscreen tabbed layout that does not avoid covering
-- up desktop panels before the desktop layouts -- up desktop panels before the desktop layouts
-- desktopLayoutModifiers still allow toggling panel visibility -- desktopLayoutModifiers still allow toggling panel visibility
, layoutHook = windowNavigation $ desktopLayoutModifiers $ simpleTabbed ||| rtall , layoutHook = windowNavigation $ desktopLayoutModifiers $ simpleTabbed ||| combineTwo (TwoPane 0.03 0.5) (simpleTabbed) (simpleTabbed) ||| ResizableTall 1 (3/100) (1/2) []
} }
-- Simple notation ala emacs -- Simple notation ala emacs
`removeKeysP`
[
("M-<Space>")
]
`additionalKeysP` `additionalKeysP`
[ [
-- Quit session -- Quit session
@ -74,6 +80,13 @@ main = xmonad $ gnomeConfig
, ("M-S-<Left>", sendMessage $ Swap L) , ("M-S-<Left>", sendMessage $ Swap L)
, ("M-S-<Up>", sendMessage $ Swap U) , ("M-S-<Up>", sendMessage $ Swap U)
, ("M-S-<Down>", sendMessage $ Swap D) , ("M-S-<Down>", sendMessage $ Swap D)
-- Swap windows within tabbed two panes
, ("M-S-<Home>", sendMessage $ Move L)
, ("M-S-<End>", sendMessage $ Move R)
, ("M-S-<Page_Up>", sendMessage $ Move U)
, ("M-S-<Page_Down>", sendMessage $ Move D)
-- 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)
@ -106,8 +119,6 @@ main = xmonad $ gnomeConfig
-- Resize windows with M-mouse3 -- Resize windows with M-mouse3
, ((modm, 3), (\w -> focus w >> windows W.shiftMaster >> Flex.mouseWindow Flex.resize w >> snapMagicMouseResize 100 (Just 50) (Just 50) w)) , ((modm, 3), (\w -> focus w >> windows W.shiftMaster >> Flex.mouseWindow Flex.resize w >> snapMagicMouseResize 100 (Just 50) (Just 50) w))
] ]
where
rtall = ResizableTall 1 (3/100) (1/2) []
-- Workspace switching using first row keycodes -- Workspace switching using first row keycodes