From 729e030dd25da2e36fa5a1312b8ecb3415dc1675 Mon Sep 17 00:00:00 2001
From: Azat Bahawi <azahi@teknik.io>
Date: Tue, 23 Nov 2021 03:19:06 +0300
Subject: Huge update

---
 src/XMonad/Custom/Manage.hs | 54 ---------------------------------------------
 1 file changed, 54 deletions(-)
 delete mode 100644 src/XMonad/Custom/Manage.hs

(limited to 'src/XMonad/Custom/Manage.hs')

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
-  ]
-- 
cgit 1.4.1