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 | 572d1ec9a045ee8b4a0422387e2969e705e018f7 (patch) | |
| tree | 2491e6455de6f934434c434bf43061c7d4218e8e /tv/5pkgs/haskell/xmonad-tv/src/XMonad | |
| parent | b09e9fddb943a12ce230993f806c1595f1d5e1e8 (diff) | |
| parent | 4bc25074b7e4efab882addd634ef24778ebe5b93 (diff) | |
Merge remote-tracking branch 'ni/master'
Diffstat (limited to 'tv/5pkgs/haskell/xmonad-tv/src/XMonad')
| -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 0000000..7422271 --- /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 |