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

Better layouts

Browse source
This commit is contained in:
Hunter Haugen 2009-11-17 15:57:23 +05:30
parent 30130490dc
commit 9d4acf0ea2
1 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

14
.xmonad/xmonad.hs
View file

@ -5,11 +5,15 @@
import XMonad import XMonad hiding (Tall)
import System.Exit import System.Exit
import XMonad.Layout.NoBorders (noBorders, smartBorders) import XMonad.Layout.NoBorders (noBorders, smartBorders)
import XMonad.Layout.ResizableTile import XMonad.Layout.ResizableTile
import XMonad.Layout.SimplestFloat import XMonad.Layout.SimplestFloat
import XMonad.Layout.Circle
import XMonad.Layout.MagicFocus
import XMonad.Layout.Magnifier
import XMonad.Layout.HintedTile
import XMonad.Actions.CopyWindow import XMonad.Actions.CopyWindow
import XMonad.Actions.DynamicWorkspaces import XMonad.Actions.DynamicWorkspaces
import XMonad.Actions.GridSelect import XMonad.Actions.GridSelect
@ -18,6 +22,7 @@ import XMonad.Actions.Warp(warpToScreen)
import XMonad.Actions.WindowBringer import XMonad.Actions.WindowBringer
import XMonad.Prompt import XMonad.Prompt
import XMonad.Util.EZConfig (additionalKeysP) import XMonad.Util.EZConfig (additionalKeysP)
import XMonad.Hooks.SetWMName
import Data.Monoid import Data.Monoid
import Data.List import Data.List
import Data.Maybe import Data.Maybe
@ -123,11 +128,13 @@ gsConfig = defaultGSConfig
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- Layouts: -- Layouts:
mLayout = smartBorders Full ||| tiled ||| Mirror tiled ||| simplestFloat mLayout = smartBorders Full ||| tiled ||| hintedTile Wide ||| simplestFloat ||| Circle ||| magnifier Circle
where where
-- default tiling algorithm partitions the screen into two panes -- default tiling algorithm partitions the screen into two panes
--tiled = Tall nmaster delta ratio --tiled = Tall nmaster delta ratio
tiled = ResizableTall nmaster delta ratio [] --tiled = ResizableTall nmaster delta ratio []
hintedTile = HintedTile nmaster delta ratio TopLeft
tiled = hintedTile Tall
-- The default number of windows in the master pane -- The default number of windows in the master pane
nmaster = 1 nmaster = 1
@ -195,4 +202,5 @@ main = do
, layoutHook = mLayout , layoutHook = mLayout
, manageHook = mManageHook , manageHook = mManageHook
, handleEventHook = pickyFocusEventHook , handleEventHook = pickyFocusEventHook
, logHook = setWMName "LG3D"
} `additionalKeysP` mKeys } `additionalKeysP` mKeys