2009/11/16 zaxis
%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 Haskell-Cafe@haskell.org 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