tv/5pkgs/haskell/xmonad-tv/src/XMonad/Extra.hs


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