2009/11/16 zaxis <[email protected]>: > > %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) > ] > > ----- > fac n = foldr (*) 1 [1..n] > -- > View this message in context: > http://old.nabble.com/About-xmonad-tp26367498p26367498.html > Sent from the Haskell - Haskell-Cafe mailing list archive at Nabble.com. > > _______________________________________________ > Haskell-Cafe mailing list > [email protected] > http://www.haskell.org/mailman/listinfo/haskell-cafe >
You should try asking on the xmonad mailing list: http://www.haskell.org/mailman/listinfo/xmonad -- Deniz Dogan _______________________________________________ Haskell-Cafe mailing list [email protected] http://www.haskell.org/mailman/listinfo/haskell-cafe
