xmonad.hs

import XMonad
import XMonad.Actions.UpdatePointer
import XMonad.Config.Desktop
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.SetWMName
import XMonad.Layout.PerWorkspace
import XMonad.Layout.Reflect
import XMonad.Layout.Spiral
import XMonad.Layout.IM
import XMonad.Layout.NoBorders
import XMonad.Util.EZConfig(additionalKeys)
import XMonad.Util.WindowProperties (getProp32s)
import qualified XMonad.StackSet as W
import qualified Data.Map as M
import Data.Ratio

win = mod4Mask

myWorkspaces = ["1", "2", "3", "4", "5", "6", "7", "8", "9", "0"]

myKeys =
 [((win, xK_b), spawn "chromium"), -- browser on win+b
  ((win, xK_r), spawn "konsole"),
  ((win, xK_e), spawn "emacs"),
    -- Restart xmonad
   --((win, xK_q), spawn "xmonad --recompile; xmonad --restart"),
   -- close focused window
  ((win, xK_c), kill),
  ((win, xK_m), spawn "kmail --composer"),
  ((win, xK_F7), spawn "amarok -t"),
  ((win, xK_F8), spawn "amarok -f")
 ] ++
 -- switch workspace and move to workspace with win-[1..9] win-shift-[1..9] 
 -- DVORAK AWARE!
 -- Meaning: & [ { } ( = * ) + ] ! are 0 1 2 3 4 5 6 7 8 9 10
 [((m .|. win, k), windows $ f i)
        | (i, k) <- zip myWorkspaces [xK_ampersand,
                                      xK_bracketleft, 
                                      xK_braceleft, 
                                      xK_braceright, 
                                      xK_parenleft, 
                                      xK_equal, 
                                      xK_asterisk, 
                                      xK_parenright, 
                                      xK_plus, 
                                      xK_bracketright,
                                      xK_exclam] --[xK_1 .. xK_10]
        , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]

myLayoutHook = smartBorders $ desktopLayoutModifiers $ onWorkspace "8" (spiral (1/2)) (reflectHoriz tall) ||| Mirror tall ||| Full
  where tall = (Tall 1 (3/100) (1/2))

-- mouse pointer follows focus
-- to reactivate: readd to the config! not just uncomment the following line
-- myLogHook = updatePointer (Relative 0.618 0.618)

myManageHook = composeAll
               [className =? "Choqok" --> doF (W.shift "8"), 
                className =? "Kopete" --> doF (W.shift "8"),
                className =? "Quasselclient" --> doF (W.shift "8"),
                className =? "Skype" --> doF (W.shift "8"),
                className =? "Kontact" --> doF (W.shift "7"),
                className =? "plus.google.com" --> doF (W.shift "9"),
                className =? "www.facebook.com" --> doF (W.shift "9"),
                className =? "Vlc" --> doFloat,
                className =? "Klipper" --> doFloat,
                isFullscreen --> doF W.focusDown <+>  doFullFloat]

myStartupHook = do
                  spawn "kioclient exec /home/stefan/bin/Facebook.desktop"
                  spawn "kioclient exec /home/stefan/bin/Google+.desktop"
                  setWMName "LG3D" -- fix Java GUI

-- Plasma stuff from http://code.google.com/p/xmonad/issues/detail?id=430
kdeOverride = ask >>= \w -> liftX $ do
  override <- getAtom "_KDE_NET_WM_WINDOW_TYPE_OVERRIDE"
  wt <- getProp32s "_NET_WM_WINDOW_TYPE" w
  return $ maybe False (elem $ fromIntegral override) wt

main = xmonad $ desktopConfig
 { modMask = win,               -- use windows button as mod
   terminal = "konsole",
   normalBorderColor = "#000000",
   focusedBorderColor = "#FF0000", -- "#2B74C7",
   -- borderWidth = 2,
   focusFollowsMouse = True,
   manageHook = myManageHook <+> (kdeOverride --> doFloat) <+> manageHook desktopConfig,
   layoutHook = myLayoutHook,
   logHook = logHook desktopConfig,
   startupHook = startupHook desktopConfig >> myStartupHook
 } `additionalKeys` myKeys