summaryrefslogtreecommitdiffstats
path: root/src/XMonad/Local/ManageHook.hs
diff options
context:
space:
mode:
authorMichal Minář <mic.liamg@gmail.com>2017-02-11 16:28:57 +0100
committerMichal Minář <mic.liamg@gmail.com>2017-02-11 16:40:45 +0100
commit14752e16770724a6a2c8202396fa96c060861a4b (patch)
tree048b43094798f9d26ccfbcc21a8d3c6b5b4b6f43 /src/XMonad/Local/ManageHook.hs
parent8c19d9e43f893a691dcf5298301a9ffb512d83af (diff)
downloadxminad-14752e16770724a6a2c8202396fa96c060861a4b.tar.gz
xminad-14752e16770724a6a2c8202396fa96c060861a4b.tar.xz
xminad-14752e16770724a6a2c8202396fa96c060861a4b.zip
keys: Super+v - insert plain text from clipboard
Improved layouts for Gothic and Witcher games. Added stylish-haskell config file Signed-off-by: Michal Minář <mic.liamg@gmail.com>
Diffstat (limited to 'src/XMonad/Local/ManageHook.hs')
-rw-r--r--src/XMonad/Local/ManageHook.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/XMonad/Local/ManageHook.hs b/src/XMonad/Local/ManageHook.hs
index bfd77fa..156ac47 100644
--- a/src/XMonad/Local/ManageHook.hs
+++ b/src/XMonad/Local/ManageHook.hs
@@ -1,4 +1,5 @@
{-# LANGUAGE UnicodeSyntax #-}
+
module XMonad.Local.ManageHook (
manageHook
) where
@@ -7,6 +8,7 @@ import Data.List
import XMonad hiding (manageHook)
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
+import XMonad.Layout.Fullscreen
import qualified XMonad.StackSet as W
import XMonad.Util.NamedScratchpad as NS
@@ -23,6 +25,8 @@ manageHook = composeAll
[ [checkDock -?> doIgnore]
, [(matchChrome <&&> appName =? tabsOutlinerAppName) -?> doTOFloat]
, [className =? c -?> doIgnore | c <- myCIgnores]
+ , [appName =? "GOTHIC.EXE" -?> doMyShift "gothic" <+> fullscreenManageHook]
+ , [appName =? "Morrowind.exe" <||> title =? "Morrowind" -?> doMyShift "morrowind" <+> fullscreenManageHook]
, [className =? "Wine" -?> doFloat ]
, [isFullscreen -?> doMaster <+> doFullFloat]
, [transience]
@@ -125,4 +129,3 @@ matchChrome = className =? "google-chrome" <||> className =? "Google-chrome"
windowRole ∷ Query String
windowRole = stringProperty "WM_WINDOW_ROLE"
-