From e6811f16345abdeb2e97bb19f5e43eb06ace2369 Mon Sep 17 00:00:00 2001 From: azahi Date: Fri, 29 Jun 2018 10:58:41 +0300 Subject: Bump to 0.2.0.1 Minor code tweaks Add header messages Change indentation Move per-module GHC_OPTIONS to their respective module --- src/XMonad/Custom/Manage.hs | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'src/XMonad/Custom/Manage.hs') diff --git a/src/XMonad/Custom/Manage.hs b/src/XMonad/Custom/Manage.hs index 09ee651..ce5efe2 100644 --- a/src/XMonad/Custom/Manage.hs +++ b/src/XMonad/Custom/Manage.hs @@ -1,3 +1,17 @@ +----------------------------------------------------------------------------- +-- | +-- Module : XMonad.Custom.Manage +-- Copyright : (c) azahi 2018 +-- License : BSD3-style (see LICENSE) +-- +-- Maintainer : azahi +-- Stability : unstable +-- Portability : unportable +-- +-- Custom target for container (window) management. +-- +----------------------------------------------------------------------------- + module XMonad.Custom.Manage ( manageHook' ) where @@ -16,12 +30,12 @@ composeActions = , appName =? "eterm" -?> tileBelow , className =? "Pinentry" -?> doCenterFloat , className =? "Steam" <&&> not <$> title =? "Steam" -?> doFloat - , className =? "URxvt" -?> tileBelow , 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 -- cgit 1.4.1