About xmonad

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
3 messages Options
Reply | Threaded
Open this post in threaded view
|

About xmonad

z_axis
%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)
            ]
e^(π.i) + 1 = 0
Reply | Threaded
Open this post in threaded view
|

Re: About xmonad

Deniz Dogan-3
2009/11/16 zaxis <[hidden email]>:

>
> %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
> [hidden email]
> 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
[hidden email]
http://www.haskell.org/mailman/listinfo/haskell-cafe
Reply | Threaded
Open this post in threaded view
|

Re: About xmonad

z_axis
I have subscribed to xmonad maillist but i never received any email !

Deniz Dogan-3 wrote
2009/11/16 zaxis <z_axis@163.com>:
>
> %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
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe
e^(π.i) + 1 = 0