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
