xmonad: Another dialog window class

[dotfiles] / .xmonad / xmonad.hs

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index d448123a684deadb59b92e552b647178147d48cb..29f35950f946966cbfd1821389e5776540949d2d 100644 (file)
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -3,9 +3,11 @@ import XMonad
 import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.ManageDocks
 import XMonad.Hooks.Script
+import XMonad.Layout.Grid
 import XMonad.Layout.IM
 import XMonad.Layout.LayoutHints
 import XMonad.Layout.NoBorders
+import XMonad.Layout.NoFrillsDecoration
 import XMonad.Layout.PerWorkspace
 import XMonad.Layout.Renamed
 import XMonad.Layout.Tabbed
@@ -24,8 +26,6 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
 
                ((modm, xK_n), spawn "gnome-terminal"),
                ((modm, xK_i), spawn "firefox"),
-               ((modm, xK_p), spawn "dmenu_run"),
-               ((modm .|. shiftMask, xK_p), spawn "gmrun"),
 
                ((modm .|. shiftMask, xK_c ), kill),
                ((modm, xK_space ), sendMessage NextLayout),
@@ -65,6 +65,7 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
 
 myManageHook = composeAll [
                (className =? "Gnome-fallback-mount-helper" <&&> resource =? "gnome-fallback-mount-helper") --> doFloat,
+               (className =? "Gdu-notification-daemon" <&&> resource =? "gdu-notification-daemon") --> doFloat,
                (className =? "Firefox" <&&> resource =? "Dialog") --> doFloat,
                manageDocks
        ]
@@ -83,7 +84,6 @@ goldenRatio = (toRational (2/(1+sqrt(5)::Double)))
 
 createLayout name layout =
        renamed [Replace name] $
-       avoidStruts $
        layoutHints $
        smartBorders $
        layout
@@ -92,19 +92,21 @@ myFullLayout = createLayout "Full" $
        Full
 
 myTiledLayout = createLayout "Tall" $
+       avoidStruts $
        Tall nMaster ratioIncrement ratio where
                nMaster = 1
                ratioIncrement = 3/100
                ratio = goldenRatio
 
-myMirrorTiledLayout = createLayout "MTall" $
-       Mirror myTiledLayout
-
 myTabbedLayout = createLayout "Tab" $
+       avoidStruts $
        simpleTabbed
 
 myImLayout = createLayout "IM" $
-       IM ratio roster where
+       avoidStruts $
+       noFrillsDeco shrinkText defaultTheme $
+       withIM ratio roster $ GridRatio 1
+       where
                ratio = 1/4
                roster = (Or (Title "Buddy List") (And (Resource "main") (ClassName "psi")))
 
@@ -113,14 +115,14 @@ myLayout =
        (
                onWorkspace "1" (myImLayout) $
                onWorkspace "2" (myTabbedLayout ||| myFullLayout) $
-               (myTiledLayout ||| myTabbedLayout ||| myMirrorTiledLayout ||| myFullLayout)
+               (myTiledLayout ||| myTabbedLayout ||| myFullLayout)
        )
 
 main = do
        xmonadDir <- getXMonadDir
        xmobar <- spawnPipe ("xmobar " ++ xmonadDir ++ "/xmobar.hs")
        xmonad $ defaultConfig {
-               manageHook = manageDocks <+> myManageHook <+> manageHook defaultConfig,
+               manageHook = myManageHook <+> manageHook defaultConfig,
                layoutHook = myLayout,
                workspaces = myWorkspaces,
                logHook = myLogHook xmobar,