blob: 74222712da31e1862f821be5e0c3b7830a8b7ab2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
module XMonad.Extra where
import XMonad
import qualified Data.Map as Map
import qualified XMonad.StackSet as W
isFloating :: Window -> WindowSet -> Bool
isFloating w =
Map.member w . W.floating
isFloatingX :: Window -> X Bool
isFloatingX w =
isFloating w <$> gets windowset
|
