summaryrefslogtreecommitdiff
path: root/desktop/xmonad
diff options
context:
space:
mode:
authorDaniel Silverstone <dsilvers@digital-scurf.org>2013-08-19 23:13:45 +0100
committerDaniel Silverstone <dsilvers@digital-scurf.org>2013-08-19 23:13:45 +0100
commitbc5464a750d77a2b4f9dcb878effdb0cb3fd9c8e (patch)
tree786443ba7e106b37d58adcc470a538f8f00073e8 /desktop/xmonad
parentdd50931583c60589e4310d627449141157c141ae (diff)
downloadresources-bc5464a750d77a2b4f9dcb878effdb0cb3fd9c8e.tar.bz2
Play with compositing
Diffstat (limited to 'desktop/xmonad')
-rw-r--r--desktop/xmonad/xmonad.hs10
1 files changed, 9 insertions, 1 deletions
diff --git a/desktop/xmonad/xmonad.hs b/desktop/xmonad/xmonad.hs
index feef6cb..edf5cdc 100644
--- a/desktop/xmonad/xmonad.hs
+++ b/desktop/xmonad/xmonad.hs
@@ -19,6 +19,8 @@ import XMonad.Layout.MultiToggle
import XMonad.Layout.MultiToggle.Instances
import XMonad.Actions.WindowGo
import Control.Monad (liftM2)
+import XMonad.Hooks.FadeInactive
+
launchInSpeshulTerminal :: String -> String -> X ()
launchInSpeshulTerminal roleTitle cmd = do
@@ -47,13 +49,19 @@ myManageHook =
where
viewShift = doF . liftM2 (.) W.greedyView W.shift
+
+myLogHook client pp =
+ (logHook gnomeConfig) >> dbusLogWithPP client pp >> fadeInactiveLogHook fadeAmount
+ where fadeAmount = 0.8
+
+
main :: IO ()
main = do
client <- connectSession
let pp = taffybarDefaultPP { ppSort = DO.getSortByOrder }
xmonad $ gnomeConfig
{ modMask = mod4Mask
- , logHook = (logHook gnomeConfig) >> dbusLogWithPP client pp
+ , logHook = myLogHook client pp
, manageHook = myManageHook <+> manageHook gnomeConfig
, workspaces = defaultWorkSpaces
, handleEventHook = fullscreenEventHook