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

SimpleFloat now uses MouseResize

Browse Source
This commit is contained in:
Andrea Rossato 2008-02-12 17:36:15 +00:00
parent c948559c53
commit 94b2529999
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
XMonad/Layout/SimpleFloat.hs
View File

@ -25,6 +25,7 @@ module XMonad.Layout.SimpleFloat
import XMonad import XMonad
import qualified XMonad.StackSet as S import qualified XMonad.StackSet as S
import XMonad.Actions.MouseResize
import XMonad.Layout.Decoration import XMonad.Layout.Decoration
import XMonad.Layout.SimpleDecoration import XMonad.Layout.SimpleDecoration
import XMonad.Layout.WindowArranger import XMonad.Layout.WindowArranger
@ -49,15 +50,15 @@ import XMonad.Layout.WindowArranger
-- --
-- This version is decorated with the 'SimpleDecoration' style. -- This version is decorated with the 'SimpleDecoration' style.
simpleFloat :: ModifiedLayout (Decoration SimpleDecoration DefaultShrinker) simpleFloat :: ModifiedLayout (Decoration SimpleDecoration DefaultShrinker)
(ModifiedLayout WindowArranger SimpleFloat) a (ModifiedLayout MouseResize (ModifiedLayout WindowArranger SimpleFloat)) a
simpleFloat = decoration shrinkText defaultTheme (Simple False) (windowArrangeAll $ SF 20) simpleFloat = decoration shrinkText defaultTheme (Simple False) (mouseResize $ windowArrangeAll $ SF 20)
-- | Same as 'simpleFloat', but with the possibility of setting a -- | Same as 'simpleFloat', but with the possibility of setting a
-- custom shrinker and a custom theme. -- custom shrinker and a custom theme.
simpleFloat' :: Shrinker s => s -> Theme -> simpleFloat' :: Shrinker s => s -> Theme ->
ModifiedLayout (Decoration SimpleDecoration s) ModifiedLayout (Decoration SimpleDecoration s)
(ModifiedLayout WindowArranger SimpleFloat) a (ModifiedLayout MouseResize (ModifiedLayout WindowArranger SimpleFloat)) a
simpleFloat' s c = decoration s c (Simple False) (windowArrangeAll $ SF (decoHeight c)) simpleFloat' s c = decoration s c (Simple False) (mouseResize $ windowArrangeAll $ SF (decoHeight c))
data SimpleFloat a = SF Dimension deriving (Show, Read) data SimpleFloat a = SF Dimension deriving (Show, Read)
instance LayoutClass SimpleFloat Window where instance LayoutClass SimpleFloat Window where