twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Combo: haddock fixes

Browse Source
This commit is contained in:
Andrea Rossato 2007-11-21 18:15:07 +00:00
parent aad6a7d747
commit aa42d25ad6
1 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
XMonad/Layout/Combo.hs
View File

@ -30,8 +30,7 @@ import XMonad.Layout.WindowNavigation ( MoveWindowToWindow(..) )
import qualified XMonad.StackSet as W ( differentiate ) import qualified XMonad.StackSet as W ( differentiate )
-- $usage -- $usage
-- -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
-- To use this layout write, in your Config.hs:
-- --
-- > import XMonad.Layout.Combo -- > import XMonad.Layout.Combo
-- --
@ -40,30 +39,34 @@ import qualified XMonad.StackSet as W ( differentiate )
-- > combineTwo (TwoPane 0.03 0.5) (tabbed shrinkText defaultTConf) (tabbed shrinkText defaultTConf) -- > combineTwo (TwoPane 0.03 0.5) (tabbed shrinkText defaultTConf) (tabbed shrinkText defaultTConf)
-- --
-- to your layouts. -- to your layouts.
--
-- combineTwo is a new simple layout combinator. It allows the combination -- For more detailed instructions on editing the layoutHook see:
-- of two layouts using a third to split the screen between the two, but --
-- has the advantage of allowing you to dynamically adjust the layout, in -- "XMonad.Doc.Extending#Editing_the_layout_hook"
-- terms of the number of windows in each sublayout. To do this, use --
-- WindowNavigation, and add the following key bindings (or something -- combineTwo is a new simple layout combinator. It allows the
-- similar): -- combination of two layouts using a third to split the screen
-- between the two, but has the advantage of allowing you to
-- dynamically adjust the layout, in terms of the number of windows in
-- each sublayout. To do this, use "XMonad.Layout.WindowNavigation",
-- and add the following key bindings (or something similar):
--
-- , ((modMask .|. controlMask .|. shiftMask, xK_Right), sendMessage $ Move R) -- , ((modMask .|. controlMask .|. shiftMask, xK_Right), sendMessage $ Move R)
-- , ((modMask .|. controlMask .|. shiftMask, xK_Left), sendMessage $ Move L) -- , ((modMask .|. controlMask .|. shiftMask, xK_Left), sendMessage $ Move L)
-- , ((modMask .|. controlMask .|. shiftMask, xK_Up), sendMessage $ Move U) -- , ((modMask .|. controlMask .|. shiftMask, xK_Up), sendMessage $ Move U)
-- , ((modMask .|. controlMask .|. shiftMask, xK_Down), sendMessage $ Move D) -- , ((modMask .|. controlMask .|. shiftMask, xK_Down), sendMessage $ Move D)
--
-- For detailed instruction on editing the key binding see
-- "XMonad.Doc.Extending#Editing_key_bindings".
--
-- These bindings will move a window into the sublayout that is -- These bindings will move a window into the sublayout that is
-- up/down/left/right of its current position. Note that there is some -- up\/down\/left\/right of its current position. Note that there is some
-- weirdness in combineTwo, in that the mod-tab focus order is not very closely -- weirdness in combineTwo, in that the mod-tab focus order is not very closely
-- related to the layout order. This is because we're forced to keep track of -- related to the layout order. This is because we're forced to keep track of
-- the window positions separately, and this is ugly. If you don't like this, -- the window positions separately, and this is ugly. If you don't like this,
-- lobby for hierarchical stacks in core xmonad or go reim:lement the core of -- lobby for hierarchical stacks in core xmonad or go reimplement the core of
-- xmonad yourself. -- xmonad yourself.
-- %import XMonad.Layout.Combo
-- %layout , combineTwo (TwoPane 0.03 0.5) (tabbed shrinkText defaultTConf) (tabbed shrinkText defaultTConf)
data CombineTwo l l1 l2 a = C2 [a] [a] l (l1 a) (l2 a) data CombineTwo l l1 l2 a = C2 [a] [a] l (l1 a) (l2 a)
deriving (Read, Show) deriving (Read, Show)