neocturne/xmonad-conf
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Updates xmonad config

Browse source
This commit is contained in:
Matthias Schiffer 2010-08-02 01:43:13 +02:00
parent 1e2f5c3c8c
commit 19e2679cd3
1 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
xmonad.hs
View file

@ -16,7 +16,7 @@ import Control.Monad.Trans
import Data.Monoid import Data.Monoid
import Ratio((%)) import Ratio((%))
import ConfigurableBorders --import ConfigurableBorders
import FullscreenManager import FullscreenManager
import NoBorders import NoBorders
@ -27,7 +27,7 @@ main = xmonad $ gnomeConfig
{ modMask = modm { modMask = modm
, manageHook = myManageHook , manageHook = myManageHook
, layoutHook = desktopLayoutModifiers myLayoutHook , layoutHook = desktopLayoutModifiers myLayoutHook
, startupHook = myStartupHook --, startupHook = myStartupHook
, handleEventHook = myEventHook , handleEventHook = myEventHook
} }
`additionalKeysP` `additionalKeysP`
@ -42,6 +42,8 @@ main = xmonad $ gnomeConfig
, ("M-<F1>", viewOrWarp 0) , ("M-<F1>", viewOrWarp 0)
, ("M-<F2>", viewOrWarp 1) , ("M-<F2>", viewOrWarp 1)
, ("M-<F3>", viewOrWarp 2) , ("M-<F3>", viewOrWarp 2)
, ("M-p", spawn "exe=`dmenu_path | /home/neoraider/bin/dmemu -b` && eval \"exec $exe\"")
] ]
`additionalMouseBindings` `additionalMouseBindings`
[ ((modm, button4), \_ -> sendMessage Shrink) [ ((modm, button4), \_ -> sendMessage Shrink)
@ -61,26 +63,27 @@ viewOrWarp n = do
when (s == (W.screen . W.current $ wset)) $ warpToScreen s (1%2) (1%2) when (s == (W.screen . W.current $ wset)) $ warpToScreen s (1%2) (1%2)
myStartupHook :: X () --myStartupHook :: X ()
myStartupHook = do --myStartupHook = do
startupHook gnomeConfig -- startupHook gnomeConfig
spawn "killall -u `id -un` -q xcompmgr; exec xcompmgr" -- spawn "killall -u `id -un` -q xcompmgr; exec xcompmgr"
myManageHook :: ManageHook myManageHook :: ManageHook
myManageHook = composeAll myManageHook = composeAll
[ composeOne [ composeOne
[ className =? "Guake.py" -?> (doFloatMaybeFullscreen <+> doConfigBorderOff) [ className =? "Guake.py" -?> doFloatMaybeFullscreen -- <+> doConfigBorderOff)
, className =? "Do" -?> (doFloat <+> doConfigBorderOff) --, className =? "Do" -?> (doFloat <+> doConfigBorderOff)
, className =? "MPlayer" -?> doCenterFloat , className =? "MPlayer" -?> doCenterFloat
, className =? "Gimp" -?> doFloat , className =? "Gimp" -?> doFloat
, className =? "Gajim.py" -?> doFloat , className =? "Gajim.py" -?> doFloat
, className =? "Wine" -?> doFloat
, isFullscreen -?> doFullscreen , isFullscreen -?> doFullscreen
] ]
, manageHook gnomeConfig , manageHook gnomeConfig
] ]
myLayoutHook = manageFullscreen $ configureBorders $ smartBorders (tiled ||| Mirror tiled ||| Full) myLayoutHook = manageFullscreen $ smartBorders (Full ||| tiled ||| Mirror tiled)
where where
-- default tiling algorithm partitions the screen into two panes -- default tiling algorithm partitions the screen into two panes
tiled = ResizableTall nmaster delta ratio [] tiled = ResizableTall nmaster delta ratio []