BluetileConfig: Fullscreen tweaks and border color change

Ignore-this: 2a10959bed0f3fb9985e3dd1010f123b

darcs-hash:20100131233347-594c5-ff62ada5f9e6cd0b51e92bec5efe8493b46d7905.gz

1 files changed, 5 insertions, 2 deletions

diff --git a/XMonad/Config/Bluetile.hs b/XMonad/Config/Bluetile.hs
index 320dfde..264e997 100644
--- a/XMonad/Config/Bluetile.hs
+++ b/XMonad/Config/Bluetile.hs
@@ -49,6 +49,7 @@ import XMonad.Actions.WindowMenu
 import XMonad.Hooks.CurrentWorkspaceOnTop
 import XMonad.Hooks.EwmhDesktops
 import XMonad.Hooks.ManageDocks
+import XMonad.Hooks.ManageHelpers
 import XMonad.Hooks.PositionStoreHooks
 import XMonad.Hooks.RestoreMinimized
 import XMonad.Hooks.ServerMode
@@ -179,6 +180,7 @@ bluetileManageHook :: ManageHook
 bluetileManageHook = composeAll
                [ workspaceByPos, positionStoreManageHook
                 , className =? "MPlayer" --> doFloat
+                , isFullscreen --> doFullFloat
                 , manageDocks]
 
 bluetileLayoutHook = avoidStruts $ minimize $ boringWindows $ (
@@ -203,13 +205,14 @@ bluetileConfig =
           layoutHook = bluetileLayoutHook,
           logHook = currentWorkspaceOnTop >> ewmhDesktopsLogHook,
           handleEventHook = ewmhDesktopsEventHook
+                                `mappend` fullscreenEventHook
                                 `mappend` restoreMinimizedEventHook
                                 `mappend` serverModeEventHook' bluetileCommands
                                 `mappend` positionStoreEventHook,
           workspaces = bluetileWorkspaces,
           keys = bluetileKeys,
           mouseBindings = bluetileMouseBindings,
-          focusFollowsMouse  = False,
-          focusedBorderColor = "#ff5500",
+          focusFollowsMouse = False,
+          focusedBorderColor = "#000000",
           terminal = "gnome-terminal"
         }