diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-04-22 00:10:11 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-04-22 00:17:45 -0500 |
| commit | 9845d5dd92501b376cb3374fee9b35c78c7bd0d5 (patch) | |
| tree | ee59e9db71ddcfc7f5afee1ecd61f5c45fa94713 | |
| parent | 15e6e462194948299af72800e9d01b465db2e700 (diff) | |
| download | conf-9845d5dd92501b376cb3374fee9b35c78c7bd0d5.tar.gz conf-9845d5dd92501b376cb3374fee9b35c78c7bd0d5.zip | |
add a manage hook for xmonad
| -rw-r--r-- | xmonad/xmonad.hs | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs index 691f8b7..c8e0f73 100644 --- a/xmonad/xmonad.hs +++ b/xmonad/xmonad.hs @@ -28,10 +28,12 @@ main = do modMask = mod4Mask, normalBorderColor = "#000000", focusedBorderColor = "#aaaaaa", - workspaces = ["term", "browser", "3", "4", + workspaces = ["term", "browser", "docs", "4", "5", "6", "7", "8", "9"], layoutHook = avoidStruts myLayout, - manageHook = manageDocks <+> manageHook defaultConfig, + manageHook = myManageHook <+> + manageDocks <+> + manageHook defaultConfig, logHook = dynamicLogWithPP $ xmobarPP { ppOutput = hPutStrLn xmproc , ppTitle = xmobarColor "green" "" . shorten 100 @@ -67,3 +69,9 @@ data BorderUrgencyHook = BorderUrgencyHook deriving (Read, Show) instance UrgencyHook BorderUrgencyHook where urgencyHook _ win = do color <- withDisplay (\display -> io (stringToPixel display "#ff0000")); withDisplay (\display -> io (setWindowBorder display win color)) + +myManageHook = composeAll [ resource =? "xmessage" --> doFloat + , resource =? "firefox-bin" --> doF (W.shift "browser") + , resource =? "win" --> doF (W.shift "docs") -- xpdf + , resource =? "feh" --> doF (W.shift "docs") + ] |