.xsession

#!/bin/bash

xrdb -merge .Xresources
eval `ssh-agent`

feh --bg-scale ~/Pictures/Wood-Clean.jpg
unity-2d-panel &
sleep 1

gnome-screensaver &
gnome-settings-daemon &
ejecter &
indicator-multiload &

/usr/lib/gnome-settings-daemon/gnome-fallback-mount-helper &
xcompmgr &


sleep 1

gnome-power-manager &
nm-applet --sm-disable &
bluetooth-applet &

if test -z "$DBUS_SESSION_BUS_ADDRESS" ; then
 eval `/usr/bin/ssh-agent dbus-launch --sh-syntax --exit-with-session`
 echo "D-Bus per-session daemon address is: $DBUS_SESSION_BUS_ADDRESS"
 export DBUS_SESSION_BUS_PID=$DBUS_SESSIONS_BUS_PID
fi

eval `/usr/bin/gnome-keyring-daemon --start --components=secrets`
/usr/lib/policykit-1-gnome/polkit-gnome-authentication-agent-1 &
/usr/lib/indicator-messages/indicator-messages-service &

#tint2 &
exec xmonad

xmonad.hs

import XMonad
import XMonad.Layout
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.NoBorders
import XMonad.Hooks.EwmhDesktops
import XMonad.Layout.Spacing
import XMonad.Prompt
import XMonad.Prompt.Shell
import XMonad.Prompt.Ssh
import XMonad.Actions.GridSelect
import XMonad.Actions.UpdatePointer
import XMonad.Util.Run (spawnPipe)
import XMonad.Util.EZConfig (additionalKeys)
import System.IO


modMaskKey = mod4Mask
spacedTallLayout = spacing 2 $ Tall 1 (3/100) (1/2)
myLayoutHook = spacedTallLayout ||| Mirror spacedTallLayout ||| Full
myPromptConfig = defaultXPConfig { font = "xft:Museo Sans:size=9" }


-- Fullscreen flash
fullscreenSafeHook = isFullscreen --> doFullFloat
-- Gnome panel hookup
gnomePanelHook = composeAll [ className =? "Unity-2d-panel"    --> doIgnore
                            , className =? "Unity-2d-launcher" --> doIgnore ]
main = do
    -- xmproc <- spawnPipe "/usr/bin/xmobar /home/kirindave/.xmobarrc"
    xmonad $ ewmh $ defaultConfig
        { manageHook = manageDocks <+>
                       manageHook defaultConfig <+>
                       gnomePanelHook <+>
                       fullscreenSafeHook
        , layoutHook = avoidStruts $ smartBorders myLayoutHook
        -- , logHook    = dynamicLogWithPP xmobarPP
        --                   { ppOutput = hPutStrLn xmproc
        --                   , ppTitle  = xmobarColor "green" "" . shorten 50
        --                   }
        , logHook = dynamicLog >> updatePointer (Relative 0.1 0.05)
        , modMask    = modMaskKey
        }
        `additionalKeys`
        [ ((modMaskKey, xK_p),               spawn "exe=`dmenu_path | dmenu -b` && eval \"exec $exe\"")
        , ((modMaskKey, xK_b),               spawn "firefox -new-window")
        , ((modMaskKey, xK_s),               shellPrompt myPromptConfig)
        , ((modMaskKey .|. shiftMask, xK_s), sshPrompt myPromptConfig)
        , ((modMaskKey, xK_g),               goToSelected defaultGSConfig) ]