xmonad.hs

import XMonad
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.DynamicHooks
import XMonad.Hooks.DynamicLog
import XMonad.Layout.PerWorkspace        --Gimp
import XMonad.Layout.Fullscreen
import XMonad.Layout.NoBorders
import XMonad.Layout.IM                 --Gimp
import XMonad.Layout.Reflect            --Gimp
import XMonad.Util.Run(spawnPipe)

myTerminal           = "urxvt"
--myFocusFollowsMouse  =
--myClickJustFocuses   =
--myBorderWidth        =
myModMask            = mod4Mask
--myWorkspaces         =
--myNormalBorderColor  =
--myFocusedBorderColor =

--myKeys               = 
--
--myMouseBindings      =
myWorkspaces         = ["1:term","2:web","3:code","4:vm","5:media","6:steam","7:gimp"] ++ map show [6..9]
myLayout             = onWorkspace "7:gimp" gimpL $ standardLayouts
    where
        standardLayouts = avoidStruts $ (
            Tall 1(3/100) (1/2)) |||
            Mirror (Tall 1 (3/100) (1/2) |||
            Full |||
            noBorders (fullscreenFull Full)
            )

        --Gimp layout    
        gimpL = withIM (0.11) (Role "gimp-toolbox") $
           reflectHoriz $
           withIM (0.15) (Role "gimp-dock") Full
--XMOBAR
myBar = "xmobar ~/.xmonad/xmobar.hs"
myPP  = xmobarPP { ppCurrent = xmobarColor "#429942" "" . wrap "<" ">" }
toggleStrutsKey XConfig {XMonad.modMask = modMask} = (modMask, xK_b)


--myEventHook          = mempty
myStartupHook        = return ()
myManageHook         = composeAll
    [ className =? "Steam"      --> doFloat
    , className =? "Steam"      --> doShift "6:steam"
    , className =? "dota_linux" --> doShift "6:steam"
    , className =? "steam"      --> doFullFloat --bigpicturemode
    , className =? "Chromium"   --> doShift "2:web"
    , className =? "mpv"        --> doFloat
    , className =? "Gimp"       --> doShift "7:gimp"
    , isFullscreen              --> doFullFloat --fullscreen flash and other stuff
    ]

main = xmonad =<< statusBar myBar myPP toggleStrutsKey myConfig


myConfig = defaultConfig 
    {
    -- simple stuff
      terminal           = myTerminal,
      --focusFollowsMouse  = myFocusFollowsMouse,
      --clickJustFocuses   = myClickJustFocuses,
      --borderWidth        = myBorderWidth,
      modMask            = myModMask,
      --workspaces         = myWorkspaces,
      --normalBorderColor  = myNormalBorderColor,
      --focusedBorderColor = myFocusedBorderColor,

    -- key bindings
      --keys               = myKeys,
      --mouseBindings      = myMouseBindings,

    -- hooks, layouts
      layoutHook         = myLayout,
      manageHook         = myManageHook,
      workspaces         = myWorkspaces,
      --handleEventHook    = myEventHook,
      startupHook        = myStartupHook
    }