On Thu, Apr 16, 2009 at 11:09:54AM +0200, Joachim Breitner wrote:
> I think this can be achieved by using the right extensions somehow.
> Could you please paste your .xmonad.hs for issues like this?
Attached.
(Hint: if this is a frequent need, maybe you can provide a presubj
script for reportbug which attach user .xmonad.hs asking for
confirmation?)
FWIW, the smartBorders / NoBorders stuff is irrelevant for the issue,
which is present even if I comment out that stuff.
> And for hints on how to configure xmonad, you might want to write the
> mailing list xmo...@haskell.org.
Well, thanks, but I'm well aware that there is support for xmonad :-)
If I submitted this as a bug report, it is because I believe it is a
bug. I expect fullscreen hints to work out of the box, or at least I
expect them to be consistent across applications. If you consider this
not to be a bug, feel free to close it explaining why it is not one.
Cheers.
--
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
import XMonad.Config.Gnome
import XMonad.Hooks.FadeInactive
import XMonad.Layout.NoBorders
import Data.List
import qualified Data.Map as M
myManageHook = composeAll [
(className =? "Gnome-panel" <&&> title =? "Run Application") --> doFloat
, (className =? "Pidgin" <&&> fmap (isPrefixOf "Buddy") title) --> doFloat
, (className =? "Seahorse-agent" <&&> title =? "Passphrase") --> doFloat
, (className =? "Gnome-volume-manager" <&&> title =? "Photo Import") --> doFloat
-- , (className =? "XEyes") --> doShift "7"
]
myKeys x = M.fromList $
[ ((modMask x, xK_e), spawn "emacsclient -c -a emacs")
]
myLogHook = fadeInactiveLogHook fadeAmount
where fadeAmount = 0xBBBBBBBB
main = xmonad $ gnomeConfig {
modMask = mod4Mask
, keys = \c -> myKeys c `M.union` keys gnomeConfig c
, manageHook = myManageHook <+> manageHook gnomeConfig
, logHook = myLogHook >> logHook gnomeConfig
, layoutHook = smartBorders $ layoutHook gnomeConfig
}
