From 1060c27147263ad3f24201b47a0503ef914dda9f Mon Sep 17 00:00:00 2001 From: Jan Vornberger Date: Mon, 1 Feb 2010 00:33:47 +0100 Subject: BluetileConfig: Fullscreen tweaks and border color change Ignore-this: 2a10959bed0f3fb9985e3dd1010f123b darcs-hash:20100131233347-594c5-ff62ada5f9e6cd0b51e92bec5efe8493b46d7905.gz --- XMonad/Config/Bluetile.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'XMonad') 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" } -- cgit v1.2.3