On Wed, Apr 29, 2009 at 11:38:30AM +0200, Joachim Breitner wrote: > thanks for your bugreport. It seems you forgot to add the xmonad.hs – > which means that I (or someone who is interested in helping) really > should write that reportbug helper script... anyways, could you please
Argh, I did it again! :-( Attached now. > And can you reproduce the bug without using FadeInactive? Will try, but first I'll have a look at the upstream bug you pointed me to. Thanks! -- Stefano Zacchiroli -o- PhD in Computer Science \ PostDoc @ Univ. Paris 7 z...@{upsilon.cc,pps.jussieu.fr,debian.org} -<>- http://upsilon.cc/zack/ Dietro un grande uomo c'è ..| . |. Et ne m'en veux pas si je te tutoie sempre uno zaino ...........| ..: |.... Je dis tu à tous ceux que j'aime
import XMonad hiding (Tall) import XMonad.Config.Desktop import XMonad.Config.Gnome import XMonad.Hooks.FadeInactive import XMonad.Layout.NoBorders import XMonad.Layout.HintedTile import XMonad.Actions.RotSlaves import XMonad.Actions.UpdatePointer import qualified Data.List as L import qualified Data.Map as M myManageHook = composeAll [ (className =? "Gnome-panel" <&&> title =? "Run Application") --> doFloat , (className =? "Pidgin" <&&> fmap (L.isPrefixOf "Buddy") title) --> doFloat , (className =? "Skype") --> doFloat , (className =? "Seahorse-agent" <&&> title =? "Passphrase") --> doFloat , (className =? "Gnome-volume-manager" <&&> title =? "Photo Import") --> doFloat -- , (className =? "Iceweasel" <&&> resource =? "Dialog") --> doFloat , (resource =? "Dialog") --> doFloat -- , (className =? "XEyes") --> doShift "7" ] myKeys x = M.fromList $ [ ((modMask x, xK_e), spawn "emacsclient -c -a emacs") , ((modMask x, xK_Return), spawn $ terminal gnomeConfig) ] myLogHook = fadeInactiveLogHook fadeAmount >> updatePointer Nearest where fadeAmount = 0xBBBBBBBB myLayoutHook = smartBorders $ myLayouts -- where myLayouts = layoutHook gnomeConfig where myLayouts = desktopLayoutModifiers layouts layouts = hintedTile Tall ||| hintedTile Wide ||| Full hintedTile = HintedTile 1 (3/100) (1/2) TopLeft main = -- do config <- withWindowNavigation (xK_k, xK_h, xK_j, xK_l) $ xmonad gnomeConfig { modMask = mod4Mask , keys = \c -> myKeys c `M.union` keys gnomeConfig c , manageHook = myManageHook <+> manageHook gnomeConfig , logHook = myLogHook >> logHook gnomeConfig , layoutHook = myLayoutHook } -- xmonad config