diff options
author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-18 14:13:20 +0100 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-18 14:13:20 +0100 |
commit | 7c7884a5d86cffaf306fde89d9d4d3a85d160d5c (patch) | |
tree | 42c84c73aadcec349f9aab86e1c0dd033c846d91 /XMonad/Layout/SimpleFloat.hs | |
parent | 8c595555ce9d1f1d2bfce4bf0ff441d75b79b1c0 (diff) | |
download | XMonadContrib-7c7884a5d86cffaf306fde89d9d4d3a85d160d5c.tar.gz XMonadContrib-7c7884a5d86cffaf306fde89d9d4d3a85d160d5c.tar.xz XMonadContrib-7c7884a5d86cffaf306fde89d9d4d3a85d160d5c.zip |
add Eq superclass to DecorationStyle and change styles in order not to decorate non managed windows
darcs-hash:20080218131320-32816-44ecfbd0dca9eb353a569898deefebef9f7088ed.gz
Diffstat (limited to 'XMonad/Layout/SimpleFloat.hs')
-rw-r--r-- | XMonad/Layout/SimpleFloat.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Layout/SimpleFloat.hs b/XMonad/Layout/SimpleFloat.hs index 8256444..acf355d 100644 --- a/XMonad/Layout/SimpleFloat.hs +++ b/XMonad/Layout/SimpleFloat.hs @@ -49,13 +49,13 @@ import XMonad.Layout.WindowArranger -- to the window's initial attributes. -- -- This version is decorated with the 'SimpleDecoration' style. -simpleFloat :: ModifiedLayout (Decoration SimpleDecoration DefaultShrinker) +simpleFloat :: Eq a => ModifiedLayout (Decoration SimpleDecoration DefaultShrinker) (ModifiedLayout MouseResize (ModifiedLayout WindowArranger SimpleFloat)) a simpleFloat = decoration shrinkText defaultTheme (Simple False) (mouseResize $ windowArrangeAll $ SF 20) -- | Same as 'simpleFloat', but with the possibility of setting a -- custom shrinker and a custom theme. -simpleFloat' :: Shrinker s => s -> Theme -> +simpleFloat' :: (Eq a, Shrinker s) => s -> Theme -> ModifiedLayout (Decoration SimpleDecoration s) (ModifiedLayout MouseResize (ModifiedLayout WindowArranger SimpleFloat)) a simpleFloat' s c = decoration s c (Simple False) (mouseResize $ windowArrangeAll $ SF (decoHeight c)) |