From 7e158f1c533de5ddc3a3cf77d360338c60ee3724 Mon Sep 17 00:00:00 2001 From: tv Date: Sun, 28 Feb 2021 21:12:46 +0100 Subject: tv xmonad: no layout changes while focusing floats --- tv/5pkgs/haskell/xmonad-tv/src/XMonad/Extra.hs | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 tv/5pkgs/haskell/xmonad-tv/src/XMonad/Extra.hs (limited to 'tv/5pkgs/haskell/xmonad-tv/src/XMonad/Extra.hs') 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 -- cgit v1.2.3 [cgit] Unable to lock slot /tmp/cgit/74000000.lock: No such file or directory (2)