From 3cd06b22069c009b8c5fea2d5fad5f996667d2e3 Mon Sep 17 00:00:00 2001 From: Azat Bahawi Date: Tue, 16 Aug 2022 01:46:04 +0300 Subject: huge update-o --- src/lib/XMonad/Custom/Manage.hs | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'src/lib/XMonad/Custom/Manage.hs') 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 - ] -- cgit 1.4.1