import XMonad.Actions.CycleWS (toggleWS)
import XMonad.Hooks.ManageHelpers ((-?>), composeOne)
import XMonad.Hooks.SetWMName (setWMName)
-import XMonad.Layout.IM (withIM, Property(..))
import XMonad.Layout.LayoutCombinators ((|||), JumpToLayout(..))
import XMonad.Layout.Named (named)
import XMonad.Layout.NoBorders (smartBorders)
-import XMonad.Layout.PerWorkspace (onWorkspace)
-import XMonad.Layout.Reflect (reflectHoriz)
import XMonad.Layout.TwoPane (TwoPane(..))
import XMonad.Util.EZConfig (additionalKeys)
import qualified XMonad.StackSet as W
-- (http://nathanhowell.net/2009/03/08/xmonad-and-the-gimp/) for this layout
-- (read on 2011-06-19).
myLayoutHook =
- onWorkspace "5" gimp
- $ (
- named "Default" (smartBorders $ Mirror tiled)
+ named "Default" (smartBorders $ Mirror tiled)
||| named "Full" (smartBorders Full)
||| named "Vertical" (smartBorders tiled)
||| named "Limit" (smartBorders $ Mirror $ TwoPane delta ratio)
- ) where
+ where
-- Default tiling algorithm partitions the screen into two panes.
tiled = Tall nmaster delta ratio
-- The default number of windows in the master pane.
delta = 3/100
-- Default proportion of screen occupied by master pane.
ratio = 1/2
- -- Special layout for Gimp: toolbox left, dock right, main window in the
- -- center.
- gimp = withIM (0.11) (Role "gimp-toolbox") $
- reflectHoriz $
- withIM (0.15) (Role "gimp-dock")
- -- Layouts for the centered window.
- (Mirror tiled ||| Full)
-- Don't spawn new windows in the master pane (which is at the top of the
-- screen). Thanks to dschoepe, aavogt and especially vav in #xmonad on