diff options
| author | lassulus <lassulus@lassul.us> | 2021-03-07 23:22:35 +0100 |
|---|---|---|
| committer | lassulus <lassulus@lassul.us> | 2021-03-07 23:22:35 +0100 |
| commit | b81eb46c7d6439af7b7cedff9d4f81714f235d15 (patch) | |
| tree | e62bdd6e86008f8b888a87d8337750e33a46f033 /tv/5pkgs/haskell/xmonad-tv/src/XMonad/Extra.hs | |
| parent | 6fee4ac9fef8200624e62f5e339abfae860ff497 (diff) | |
| parent | a9b82ce4124cb3a3f2e6ee8b087c0d8461bad386 (diff) | |
Merge remote-tracking branch 'ni/master'
Diffstat (limited to 'tv/5pkgs/haskell/xmonad-tv/src/XMonad/Extra.hs')
| -rw-r--r-- | tv/5pkgs/haskell/xmonad-tv/src/XMonad/Extra.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tv/5pkgs/haskell/xmonad-tv/src/XMonad/Extra.hs b/tv/5pkgs/haskell/xmonad-tv/src/XMonad/Extra.hs new file mode 100644 index 000000000..74222712d --- /dev/null +++ b/tv/5pkgs/haskell/xmonad-tv/src/XMonad/Extra.hs @@ -0,0 +1,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 |