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

NoWrap export patch for use with X.L.MessageControl

Browse Source
This commit is contained in:
quentin.moser 2009-01-28 00:47:26 +00:00
parent aca86af08a
commit a4d5d7ff9b
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
XMonad/Layout/LayoutCombinators.hs
View File

@ -46,7 +46,7 @@ module XMonad.Layout.LayoutCombinators
-- * New layout choice combinator and 'JumpToLayout' -- * New layout choice combinator and 'JumpToLayout'
-- $jtl -- $jtl
, (|||) , (|||)
, JumpToLayout(JumpToLayout) , JumpToLayout(..)
) where ) where
import Data.Maybe ( isJust, isNothing ) import Data.Maybe ( isJust, isNothing )
@ -213,12 +213,12 @@ infixr 5 |||
data NewSelect l1 l2 a = NewSelect Bool (l1 a) (l2 a) deriving ( Read, Show ) data NewSelect l1 l2 a = NewSelect Bool (l1 a) (l2 a) deriving ( Read, Show )
data NoWrap = NextLayoutNoWrap | Wrap deriving ( Read, Show, Typeable ) -- |
instance Message NoWrap data JumpToLayout = JumpToLayout String -- ^ A message to jump to a particular layout
-- , specified by its description string..
-- | A message to jump to a particular layout, specified by its | NextLayoutNoWrap
-- description string. | Wrap
data JumpToLayout = JumpToLayout String deriving ( Read, Show, Typeable ) deriving ( Read, Show, Typeable )
instance Message JumpToLayout instance Message JumpToLayout
instance (LayoutClass l1 a, LayoutClass l2 a) => LayoutClass (NewSelect l1 l2) a where instance (LayoutClass l1 a, LayoutClass l2 a) => LayoutClass (NewSelect l1 l2) a where