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