From b510ae65a9f53c39935e9c8ecd22531e3e8cdb8e Mon Sep 17 00:00:00 2001
From: Hunter Haugen <h.haugen@gmail.com>
Date: Wed, 18 Nov 2009 19:49:34 +0530
Subject: [PATCH] Fixing for fullscreen flash vids

---
 .Xdefaults        | 4 ++--
 .xmonad/xmonad.hs | 9 ++++++---
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/.Xdefaults b/.Xdefaults
index ed8debd..7af9f3d 100644
--- a/.Xdefaults
+++ b/.Xdefaults
@@ -1,12 +1,12 @@
 Xft.antialias: true
 URxvt*scrollBar: false
-URxvt*background: rgba:0000/0000/0000/dddd
+URxvt*background: rgba:0000/0000/0000/aaaa
 URxvt*depth: 32
 URxvt*foreground: #dddddd
 #URxvt*transparent: true
 URxvt*transparent: false
 #URxvt*fading: 2%
-URxvt*shading: 30
+#URxvt*shading: 30
 #URxvt*fadeColor: grey
 URxvt*buffered: true
 URxvt*cursorColor: green
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 60e629c..16f5b7c 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -22,6 +22,8 @@ import XMonad.Actions.Warp(warpToScreen)
 import XMonad.Actions.WindowBringer
 import XMonad.Prompt
 import XMonad.Util.EZConfig (additionalKeysP)
+import XMonad.Hooks.EwmhDesktops
+import XMonad.Hooks.ManageHelpers
 import XMonad.Hooks.SetWMName
 import Data.Monoid
 import Data.List
@@ -163,7 +165,8 @@ mManageHook = composeAll
     , className =? "Gvba"           --> doFloat
     , className =? "Cellwriter"     --> doIgnore
     , resource  =? "desktop_window" --> doIgnore
-    , resource  =? "kdesktop"       --> doIgnore ]
+    , resource  =? "kdesktop"       --> doIgnore
+    , isFullscreen                  --> doFullFloat ]
 
 -- Whether focus follows the mouse pointer.
 mFocusFollowsMouse :: Bool
@@ -172,7 +175,7 @@ mFocusFollowsMouse = True
 {-
 [14:25]  dschoepe : Hunner: http://hpaste.org/fastcgi/hpaste.fcgi/view?id=8798#a8798
 [14:25]  dschoepe : that should work in darcs
-[14:28]  dschoepe : Hunner: you probably want something like `flip 
+[14:28]  dschoepe : Hunner: you probably want something like `flip
                     (/="cellwriterclass") `fmap` className' as shouldFollow
 [14:28]  dschoepe : err, without the flip
 
@@ -202,5 +205,5 @@ main = do
     , layoutHook         = mLayout
     , manageHook         = mManageHook
     , handleEventHook    = pickyFocusEventHook
-    , logHook            = setWMName "LG3D"
+    , startupHook        = ewmhDesktopsStartup >> setWMName "LG3D"
     } `additionalKeysP` mKeys