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

+ IM layout with a simple tabbed on top of a grid

Browse source
This commit is contained in:
nojhan 2012-05-08 09:51:43 +02:00
commit 3084429d14
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
xmonad.hs
View file

@ -14,6 +14,7 @@ import XMonad.Actions.PhysicalScreens
import XMonad.Layout.BorderResize import XMonad.Layout.BorderResize
import XMonad.Layout.TwoPane import XMonad.Layout.TwoPane
import XMonad.Layout.Combo import XMonad.Layout.Combo
import XMonad.Layout.Grid
import XMonad.Layout.IM import XMonad.Layout.IM
import Data.Ratio ((%)) import Data.Ratio ((%))
@ -37,19 +38,21 @@ main = xmonad $ gnomeConfig
-- desktopLayoutModifiers still allow toggling panel visibility -- desktopLayoutModifiers still allow toggling panel visibility
, layoutHook = windowNavigation $ desktopLayoutModifiers $ , layoutHook = windowNavigation $ desktopLayoutModifiers $
-- fullscreen with tabs -- fullscreen with tabs
simpleTabbed simpleTabbedAlways
-- Two panes, each one with its own tabs -- Two panes, each one with its own tabs
||| combineTwo (TwoPane 0.03 0.5) simpleTabbed simpleTabbed ||| combineTwo (TwoPane 0.03 0.5) simpleTabbed simpleTabbed
-- 2/3 of the screen for a master window, other ones on the right -- 2/3 of the screen for a master window, other ones on the right
||| ResizableTall 1 (3/100) (2/3) [] ||| ResizableTall 1 (3/100) (2/3) []
-- buddy lists on a small vertical pane at right, -- buddy lists on a small vertical pane at right,
-- master windows on top of the remaining space, other ones below -- master windows on top of the remaining space, other ones below
||| withIM (15/100) (Role "buddy_list") (Mirror( ResizableTall 1 (3/100) (2/3) [] )) -- ||| withIM (10/100) (Or (Role "buddy_list") (Role "contact_list")) (Mirror( ResizableTall 1 (3/100) (2/3) [] ))
||| withIM (10/100) (Or (Or (Role "buddy_list") (Role "contact_list")) (ClassName "gimp-toolbox")) (combineTwo (Mirror(TwoPane 0.03 0.8)) simpleTabbedAlways Grid)
} }
-- Simple notation ala emacs -- Simple notation ala emacs
`removeKeysP` `removeKeysP`
[ [
("M-<Space>") ("M-<Space>")
, ("M-S-<Up>")
] ]
`additionalKeysP` `additionalKeysP`
[ [