diff options
| author | lassulus <lassulus@lassul.us> | 2018-02-13 17:38:19 +0100 |
|---|---|---|
| committer | lassulus <lassulus@lassul.us> | 2018-02-13 17:38:19 +0100 |
| commit | 2a835111d841770148437fc7692e22c381cf7808 (patch) | |
| tree | 8f0f80a6d4721317fb0c023267709f18ff2063cb | |
| parent | 75eaf9cf08e6f19d287c0b3aec16663b47f7e367 (diff) | |
l xmonad: add floatHook type
| -rw-r--r-- | lass/5pkgs/xmonad-lass.nix | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lass/5pkgs/xmonad-lass.nix b/lass/5pkgs/xmonad-lass.nix index f6e916104..59c95cff7 100644 --- a/lass/5pkgs/xmonad-lass.nix +++ b/lass/5pkgs/xmonad-lass.nix @@ -23,6 +23,7 @@ import XMonad import qualified XMonad.StackSet as W import Control.Monad.Extra (whenJustM) import Data.List (isInfixOf) +import Data.Monoid (Endo) import System.Environment (getArgs, lookupEnv) import System.Posix.Process (executeFile) import XMonad.Actions.CopyWindow (copy, kill1) @@ -91,11 +92,12 @@ myLayoutHook = defLayout where defLayout = minimize $ ((avoidStruts $ Tall 1 (3/100) (1/2) ||| Full ||| Mirror (Tall 1 (3/100) (1/2))) ||| FixedColumn 2 80 80 1 ||| simplestFloat) +floatHooks :: Query (Endo WindowSet) floatHooks = composeAll . concat $ [ [ title =? t --> doFloat | t <- myTitleFloats] , [ className =? c --> doFloat | c <- myClassFloats ] ] where - myTitleFloats = [] -- for the KDE "open link" popup from konsole + myTitleFloats = [] myClassFloats = ["Pinentry"] -- for gpg passphrase entry |