[Haskell-cafe] About xmonad

16 Nov 2009

      %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] About xmonad

zaxis