dotfiles/.xmonad/xmonad.hs

import XMonad

import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks

import XMonad.Util.WorkspaceCompare -- getSortByXineramaPhysicalRule
import XMonad.Util.EZConfig         -- additionalKeys

import XMonad.Prompt
import XMonad.Prompt.Window  -- windowPrompt

import XMonad.StackSet (focusDown)

import XMonad.Layout.Grid

myLayout = avoidStruts (Full ||| tiled ||| Mirror tiled ||| Grid )
	where
		tiled   = Tall nmaster delta ratio
		nmaster = 1
		ratio   = 1/2
		delta   = 3/100

myManageHook = composeAll
	[ className =? "qemu-system-x86_64" --> doFloat
	, className =? "st-256color" --> doShift "1"
	, className =? "Navigator" --> doShift "2"
	, className =? "Firefox" --> doShift "2" -- Theses fucking script popups
	, className =? "mpv" --> doShift "3"
	, className =? "ffplay" --> doShift "3"
	--, isDialog --> doFloat
	, className =? "Pidgin" --> doF focusDown
	, className =? "Navigator" --> doF focusDown
	, role =? "browser" --> doShift "2"
	]
	where
		role = stringProperty "WM_WINDOW_ROLE"

promptConfig = defaultXPConfig
  { font        = "xft:monospace-10"
  , borderColor = "#1e2320"
  , fgColor     = "#dddddd"
  , bgColor     = "#1e2320"
  , fgHLight    = "#ffffff"
  , bgHLight    = "#5f5f5f"
  , height      = 16
  , position    = Top
  }

main = xmonad $ docks $ def
	{ borderWidth        = 0
	, focusFollowsMouse  = False
	, clickJustFocuses   = False
	, logHook            = dynamicLogString xmobarPP
		{ ppTitle   = xmobarColor "green" ""
		, ppVisible = wrap "[" "]"
		, ppSort    = getSortByXineramaPhysicalRule
		} >>= xmonadPropLog
	, modMask            = mod4Mask
	, manageHook         = manageHook def <+> myManageHook
	, layoutHook         = myLayout
	, handleEventHook    = handleEventHook def <+> docksEventHook
	, terminal           = "st"
	}
	`additionalKeys`
	[ ((mod4Mask,   xK_b), sendMessage ToggleStruts)
	, ((mod4Mask .|. shiftMask, xK_g     ), windowPrompt promptConfig { autoComplete = Just 500000 } Goto allWindows)
	, ((mod4Mask .|. shiftMask, xK_b     ), windowPrompt promptConfig Bring allWindows)
	]