xmonad.hs

import XMonad
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.Tabbed
import XMonad.Layout.Mosaic
import XMonad.Layout.NoBorders
import XMonad.Layout.ToggleLayouts
import XMonad.Layout.Gaps
import XMonad.Layout.Spacing
import XMonad.Layout.Fullscreen
import XMonad.Hooks.SetWMName
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import System.IO
import qualified Data.Map as M

defaults = defaultConfig {
      terminal            = "urxvt-256color"
    , workspaces          = myWorkspaces
    , borderWidth         = 1
    , normalBorderColor   = "black"
    , focusedBorderColor  = "orange"
    , layoutHook          = myLayoutHook
    , handleEventHook     = fullscreenEventHook
    , startupHook         = setWMName "LG3D"
    , keys                = \c -> myKeys c `M.union` keys defaultConfig c
    }

myTabConfig = defaultTheme { inactiveBorderColor = "#FF0000"
                                   , activeTextColor = "#00FF00"}

myWorkspaces :: [String]
myWorkspaces = ["1:web", "2:dev", "3:chat", "4:term", "5:media"] ++ map show [6..9]

myKeys (XConfig {XMonad.modMask = modm}) = M.fromList $
    --take a screenshot of entire display
    [ ((modm ,  xK_Print ), spawn "scrot screen_%Y-%m-%d-%H-%M-%S.png -d 1 -e 'mv $f /home/vg/screenshots/'")
    --take a screenshot of entire window
    , ((modm .|. controlMask, xK_Print ), spawn "scrot window_%Y-%m-%d-%H-%M-%S.png -d 1 -u -e 'mv $f /home/vg/screenshots/'")
    , ((modm , xK_f ), spawn "firefox")
    ]
myLayoutHook = spacing 6 $ gaps [(U,15)] $ toggleLayouts (noBorders Full) $
    smartBorders $ Mirror tiled ||| mosaic 2 [3,2] ||| tabbed shrinkText myTabConfig
        where
            tiled = Tall nmaster delta ratio
            nmaster = 1
            delta   = 3/100
            ratio   = 3/5

myManageHook = composeAll
    [ isFullscreen                      --> doFullFloat
    , manageDocks
    , className =? "mpv"                --> doFloat
    , className =? "Vlc"                --> doFloat
    , className =? "MPlayer"            --> doFloat
    , manageHook defaultConfig
    ]

main = do
        xmproc <- spawnPipe "/usr/bin/xmobar ~/.xmobarrc"
        xmonad $ defaults {
        logHook =  dynamicLogWithPP $ defaultPP {
            ppOutput = System.IO.hPutStrLn xmproc
          , ppTitle = xmobarColor "#2c92f2" "" . shorten 100
          , ppCurrent = xmobarColor "#2c92f2" "" . wrap "[" "]"
          , ppSep = "   "
          , ppWsSep = " "
          , ppLayout  = (\ x -> case x of
              "Spacing 6 Mosaic"                      -> "[:]"
              "Spacing 6 Mirror Tall"                 -> "[M]"
              "Spacing 6 Hinted Tabbed Simplest"      -> "[T]"
              "Spacing 6 Full"                        -> "[ ]"
              _                                       -> x )
          , ppHiddenNoWindows = showNamedWorkspaces
      }
} where showNamedWorkspaces wsId = if any (`elem` wsId) ['a'..'z']
                                       then pad wsId
                                       else ""