diff options
| author | azahi <azahi@teknik.io> | 2018-10-08 21:18:13 +0300 |
|---|---|---|
| committer | azahi <azahi@teknik.io> | 2018-10-08 21:18:13 +0300 |
| commit | d7176233da673ea5d92eadcbf52323b5d8419cfd (patch) | |
| tree | f603bee246db9a0ca0d5c89933b34064f76495cf /src/XMonad/Custom/Manage.hs | |
| parent | Clean up Actions (diff) | |
Rework Custom
Change the names of high-order functoins Remove named keybindings Add check executable for keybindings Expand xmonad-ng library Bump to 0.15.1
Diffstat (limited to 'src/XMonad/Custom/Manage.hs')
| -rw-r--r-- | src/XMonad/Custom/Manage.hs | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/XMonad/Custom/Manage.hs b/src/XMonad/Custom/Manage.hs index d3895ef..e737108 100644 --- a/src/XMonad/Custom/Manage.hs +++ b/src/XMonad/Custom/Manage.hs @@ -11,10 +11,10 @@ ----------------------------------------------------------------------------- module XMonad.Custom.Manage - ( manageHook' + ( manageHook ) where -import XMonad +import XMonad hiding (manageHook) import XMonad.Custom.Scratchpads import XMonad.Hooks.InsertPosition import XMonad.Hooks.ManageDocks @@ -37,20 +37,20 @@ composeActions = , className =? "xterm" -?> tileBelow , isDialog -?> doCenterFloat , isFullscreen -?> doFullFloat - , pure True -?> normalTile + , pure True -?> tileNormal , stringProperty "WM_WINDOW_ROLE" =? "pop-up" -?> doCenterFloat , stringProperty "WM_WINDOW_ROLE" =? "GtkFileChooserDialog" -?> doCenterFloat , transience ] where - normalTile = insertPosition Above Newer + tileNormal = insertPosition Above Newer tileBelow = insertPosition Below Newer tileBelowNoFocus = insertPosition Below Older -manageHook' :: ManageHook -manageHook' = mconcat [ manageDocks - , fullscreenManageHook - , namedScratchpadManageHook scratchpads - , composeOne composeActions - ] +manageHook :: ManageHook +manageHook = mconcat [ manageDocks + , fullscreenManageHook + , namedScratchpadManageHook scratchpads + , composeOne composeActions + ] |