Re: [xmonad] Firefox `save as` dialog doesnot appear ?

16 Nov 2009

      It's does not appear (i.e. appears under other windows) because you swap it
down (class "firefox") at your manageHook.
You may want to use ManageHelpers composeOne instead of composeAll, so when
a window is matched (in this case, to float) the following rules won't be
evaluated (in this case, swapDown).

Regards,
Henrique G. Abreu

On Mon, Nov 16, 2009 at 09:07, z_axis  wrote:
...
%uname -a
Linux myarch 2.6.31-ARCH #1 SMP PREEMPT Tue Nov 10 19:48:17 CET 2009 i686
AMD Athlon(tm) 64 X2 Dual Core Processor 3600+ AuthenticAMD GNU/Linux
%xmonad --version
xmonad 0.9
In firefox, the `save as` dialog doesnot appear when i want to choose
picture to save by right clicking the mouse.
%cat ~/.xmonad/xmonad.hs
import XMonad
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageHelpers
import XMonad.Util.Run(spawnPipe)
import XMonad.Layout.TwoPane
import XMonad.Layout.WindowNavigation
import qualified XMonad.StackSet as W
import qualified Data.Map as M
main = do
    xmonad $ defaultConfig
            { borderWidth        = 1
            , focusedBorderColor     = "#ff6666"
            , normalBorderColor     = "#2222aa"
            , manageHook       = manageHook defaultConfig <+> myManageHook
            , workspaces       = map show [1 .. 10 :: Int]
            , terminal        = "roxterm"
            , modMask          = mod4Mask
            , focusFollowsMouse  = True
            , startupHook      = myStartupHook
            , logHook = myLogHook
            , layoutHook      = windowNavigation $ avoidStruts $ (Mirror
tall ||| tall ||| Full)
            --, layoutHook    = ewmhDesktopsLayout $ windowNavigation $
avoidStruts $ (Mirror tall ||| tall ||| Full)
            , keys             = \c -> myKeys c `M.union` keys
defaultConfig c
            --, mouseBindings = \c -> myMouse c `M.union` mouseBindings
defaultConfig c
            }
    where
        tall     = Tall 1 (3/100) (1/2)
myStartupHook :: X ()
        myStartupHook = do {
            spawn "fcitx";
            spawn "roxterm";
            spawn "lxpanel";
            spawn "/home/sw2wolf/bin/kvm.sh";
        }
        myLogHook :: X ()
        myLogHook = ewmhDesktopsLogHook
myManageHook :: ManageHook
        myManageHook = composeAll . concat $
                        [ [ className =? c --> doFloat | c <- myCFloats]
                         ,[ resource  =? r --> doFloat | r <- myRFloats]
                         ,[ title     =? t --> doFloat | t <- myTFloats]
                         ,[ className =? c --> doIgnore | c <- ignores]
                         ,[ className =? "Audacious" --> doShift "3" ]
                         ,[ className =? "Firefox" --> doF W.swapDown]
                         ,[(role =? "gimp-toolbox" <||> role =?
"gimp-image-window") --> (ask >>= doF . W.sink)]]
                    where myCFloats = ["Thunderbird-bin", "GQview",
"MPlayer", "Gimp","Vncviewer","Xmessage"]
                          myRFloats = ["Dialog", "Download", "Places"]
                          myTFloats  = ["Firefox Preferences", "Element
Properties"]
                          ignores = ["trayer"]
                          role = stringProperty "WM_WINDOW_ROLE"
myKeys (XConfig {modMask = modm}) = M.fromList $
            -- Apps and tools
            [ ((modm, xK_F2), spawn "gmrun")
            , ((modm, xK_f), spawn "/home/firefox/firefox")
            , ((modm, xK_t), spawn "thunderbird")
            --, ((modm, xK_p), spawn "exe=`dmenu_path | dmenu -b` && eval
\"exec $exe\"")
            , ((modm, xK_F11), spawn "sudo shutdown -r now")
            , ((modm, xK_F12), spawn "sudo shutdown -h now")
            , ((modm .|. controlMask, xK_Print), spawn "sleep 0.2; scrot
-s")
            , ((modm, xK_Print), spawn "scrot
'/tmp/%Y-%m-%d_%H:%M:%S_$wx$h_scrot.png' -e 'mv $f ~'")
            , ((modm, xK_c), kill)
            -- Window Navigation
            , ((modm, xK_Right), sendMessage $ Go R)
            , ((modm, xK_Left ), sendMessage $ Go L)
            , ((modm, xK_Up   ), sendMessage $ Go U)
            , ((modm, xK_Down ), sendMessage $ Go D)
            -- swap...
            , ((modm .|. controlMask, xK_Right), sendMessage $ Swap R)
            , ((modm .|. controlMask, xK_Left ), sendMessage $ Swap L)
            , ((modm .|. controlMask, xK_Up   ), sendMessage $ Swap U)
            , ((modm .|. controlMask, xK_Down ), sendMessage $ Swap D)
            ]
Sincerely!
_______________________________________________
xmonad mailing list
xmonad@haskell.orghttps://mail.google.com/mail?view=cm&tf=0&to=xmonad@haskell.org
http://www.haskell.org/mailman/listinfo/xmonad