From 19e2679cd35c62354bff5439eb5db431bcc9a9ed Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Mon, 2 Aug 2010 01:43:13 +0200
Subject: Updates xmonad config

---
 xmonad.hs | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

(limited to 'xmonad.hs')

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 []
-- 
cgit v1.2.3