Add my (simple) XMonad and xmobar configs.

.xmobarrc

@@ -0,0 +1,19 @@
Config {
    font = "-*-Fixed-Bold-R-Normal-*-13-*-*-*-*-*-*-*-*",
    bgColor = "black",
    fgColor = "grey",
    position = TopW L 100,
    commands = [ Run Weather "EDDP" ["-t", " <tempC>C", "-L", "64", "-H", "-77",
                                     "--normal", "green", "--high", "red", "--low",
                                     "lightblue"] 36000,
                 Run Cpu ["-L", "3", "-H", "50", "--normal", "green", "--high", "red"] 10,
                 Run Memory ["-t", "Mem: <usedratio>%"] 10,
                 Run Network "wlan0" ["-L","0","-H","100","--normal","green","--high","red"] 10,
                 Run Battery [ "-t", "Bat: <left>%", "-L", "10", "-H", "80", "-l", "red", "-h", "green" ] 600,
                 Run Date "%a %b %_d %l:%M" "date" 10,
                 Run StdinReader
               ],
    sepChar = "%",
    alignSep = "}{",
    template = "%StdinReader% }{ %cpu% | %memory% | %wlan0% | %battery% (<fc=#ee0a00>%date%</fc>) | %EDDP% "
}

.xmonad/xmonad.hs

@@ -0,0 +1,66 @@
import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks (manageDocks, avoidStruts)
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.Tabbed (simpleTabbed)
import XMonad.Util.Run (spawnPipe)
import System.IO (hPutStrLn)
import Monad (when)
import Data.Monoid (All (All))
import qualified XMonad.StackSet as W
-- My XMonad config (right now it's mostly copied from elsewhere...
--
-- Whishes:
--  * Some kind of launcher
--  * Logging framework (like reading urls from Firefox and the like)
main = do
    xmobar <- spawnPipe "xmobar"
    xmonad $ defaultConfig {
        modMask = mod4Mask,
        -- Ignore docks (via some WM_* attribute?)
        manageHook = composeAll [
                        manageDocks,
                        -- Allow fullscreen
                        composeOne [ isFullscreen -?> doFullFloat ]
                     ] <+> manageHook defaultConfig,
        -- Don't overwrite the section used by docks
        layoutHook = avoidStruts $ layoutHook defaultConfig ||| simpleTabbed,
        logHook = dynamicLogWithPP xmobarPP {
            ppOutput = hPutStrLn xmobar,
            ppTitle = xmobarColor "green" ""
        },
        handleEventHook = evHook
   }
evHook :: Event -> X All
evHook (ClientMessageEvent _ _ _ dpy win typ dat) = do
    state <- getAtom "_NET_WM_STATE"
    fullsc <- getAtom "_NET_WM_STATE_FULLSCREEN"
    isFull <- runQuery isFullscreen win
    let remove = 0
        add = 1
        toggle = 2
        ptype = 4
        action = head dat
    when (typ == state && (fromIntegral fullsc) `elem` tail dat) $ do
        when (action == add || (action == toggle && not isFull)) $ do
            io $ changeProperty32 dpy win state ptype propModeReplace [fromIntegral fullsc]
            fullFloat win
        when (head dat == remove || (action == toggle && isFull)) $ do
            io $ changeProperty32 dpy win state ptype propModeReplace []
            tileWin win
    return $ All False
evHook _ = return $ All True
fullFloat, tileWin :: Window -> X () 
fullFloat w = windows $ W.float w (W.RationalRect 0 0 1 1)
tileWin   w = windows $ W.sink w