diff options
| author | Azat Bahawi <azahi@teknik.io> | 2021-11-23 03:19:06 +0300 |
|---|---|---|
| committer | Azat Bahawi <azahi@teknik.io> | 2021-11-23 03:19:06 +0300 |
| commit | 729e030dd25da2e36fa5a1312b8ecb3415dc1675 (patch) | |
| tree | 53166b6c3bd96f860d0a7242353ef9cc7bb1790f /src/XMonad/Custom/Manage.hs | |
| parent | Remove tests (diff) | |
Huge update
Diffstat (limited to 'src/XMonad/Custom/Manage.hs')
| -rw-r--r-- | src/XMonad/Custom/Manage.hs | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/src/XMonad/Custom/Manage.hs b/src/XMonad/Custom/Manage.hs deleted file mode 100644 index ac4201b..0000000 --- a/src/XMonad/Custom/Manage.hs +++ /dev/null @@ -1,54 +0,0 @@ --- | --- Module : XMonad.Custom.Manage --- Copyright : (c) 2018-2020 Azat Bahawi <azahi@teknik.io> --- License : BSD3-style (see LICENSE) --- Maintainer : Azat Bahawi <azahi@teknik.io> --- Stability : unstable --- Portability : unportable --- - -module XMonad.Custom.Manage - ( manageHook - ) where - -import XMonad hiding ( manageHook ) -import XMonad.Custom.Scratchpads -import XMonad.Hooks.InsertPosition -import XMonad.Hooks.ManageDocks -import XMonad.Hooks.ManageHelpers -import XMonad.Layout.Fullscreen -import XMonad.Util.NamedScratchpad - -composeActions :: [MaybeManageHook] -composeActions = - [ appName =? "emacs-popup" -?> tileBelowNoFocus - , appName =? "eterm" -?> tileBelow - , className =? "Pinentry" -?> doCenterFloat - , className =? "Steam" <&&> not <$> title =? "Steam" -?> doFloat - , className =? "Xmessage" -?> doCenterFloat - , className =? "Zenity" -?> doCenterFloat - , className =? "explorer.exe" -?> doFullFloat - , className =? "qemu-system-x86" -?> doCenterFloat - , className =? "qemu-system-x86_64" -?> doCenterFloat - , className =? "urxvt" -?> tileBelow - , className =? "xterm" -?> tileBelow - , isDialog -?> doCenterFloat - , isFullscreen -?> doFullFloat - , pure True -?> tileNormal - , stringProperty "WM_WINDOW_ROLE" =? "pop-up" -?> doCenterFloat - , stringProperty "WM_WINDOW_ROLE" =? "GtkFileChooserDialog" -?> doCenterFloat - , transience - ] - where - tileNormal = insertPosition Above Newer - tileBelow = insertPosition Below Newer - tileBelowNoFocus = insertPosition Below Older - - -manageHook :: ManageHook -manageHook = mconcat - [ manageDocks - , fullscreenManageHook - , namedScratchpadManageHook scratchpads - , composeOne composeActions - ] |