diff options
| author | Azat Bahawi <azat@bahawi.net> | 2022-08-16 01:46:04 +0300 |
|---|---|---|
| committer | Azat Bahawi <azat@bahawi.net> | 2022-08-16 01:46:04 +0300 |
| commit | 3cd06b22069c009b8c5fea2d5fad5f996667d2e3 (patch) | |
| tree | 4b5f1cb453de13c560bc8aa5a57952713cf360aa /src/lib/XMonad/Custom/Manage.hs | |
| parent | absolute garbage wtf (diff) | |
huge update-o
Diffstat (limited to 'src/lib/XMonad/Custom/Manage.hs')
| -rw-r--r-- | src/lib/XMonad/Custom/Manage.hs | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/lib/XMonad/Custom/Manage.hs b/src/lib/XMonad/Custom/Manage.hs index dbc560e..fcda9c1 100644 --- a/src/lib/XMonad/Custom/Manage.hs +++ b/src/lib/XMonad/Custom/Manage.hs @@ -3,13 +3,13 @@ -- Description : Window management hooks and scratchpads -- Copyright : (c) Azat Bahawi 2018-2021 -- SPDX-License-Identifier : GPL-3.0-or-later --- Maintainer : azahi@teknik.io +-- Maintainer : azat@bahawi.net -- Stability : experimental -- Portability : non-portable -- module XMonad.Custom.Manage - ( manageHook + ( ngManageHook ) where import XMonad hiding ( manageHook ) @@ -20,6 +20,14 @@ import XMonad.Hooks.ManageHelpers import XMonad.Layout.Fullscreen import XMonad.Util.NamedScratchpad +ngManageHook :: ManageHook +ngManageHook = mconcat + [ manageDocks + , fullscreenManageHook + , namedScratchpadManageHook scratchpads + , composeOne composeActions + ] + composeActions :: [MaybeManageHook] composeActions = [ appName =? "emacs-popup" -?> tileBelowNoFocus @@ -44,11 +52,3 @@ composeActions = tileNormal = insertPosition Above Newer tileBelow = insertPosition Below Newer tileBelowNoFocus = insertPosition Below Older - -manageHook :: ManageHook -manageHook = mconcat - [ manageDocks - , fullscreenManageHook - , namedScratchpadManageHook scratchpads - , composeOne composeActions - ] |