logo

dotfiles

My dotfiles, one branch per machine, rebased on base git clone https://anongit.hacktivis.me/git/dotfiles.git/

xmonad.hs (2039B)

    

  1. import XMonad
  3. import XMonad.Hooks.DynamicLog
  4. import XMonad.Hooks.ManageDocks
  5. import XMonad.Hooks.ManageHelpers -- transience
  7. import XMonad.Actions.PhysicalScreens -- horizontalScreenOrderer
  8. import XMonad.Util.WorkspaceCompare -- getSortByXineramaPhysicalRule
  9. import XMonad.Util.EZConfig         -- additionalKeys
  11. import XMonad.Prompt
  12. import XMonad.Prompt.Window  -- windowPrompt
  14. import XMonad.StackSet (focusDown)
  16. import XMonad.Layout.Grid
  18. myLayout = avoidStruts (Full ||| tiled ||| Mirror tiled ||| Grid )
  19. 	where
  20. 		tiled   = Tall nmaster delta ratio
  21. 		nmaster = 1
  22. 		ratio   = 1/2
  23. 		delta   = 3/100
  25. myManageHook = composeOne
  26. 	[ transience
  27. 	, role =? "browser" -?> doShift "2"
  28. 	, isDialog -?> doFloat
  29. 	, className =? "st-256color" -?> doShift "1"
  30. 	, className =? "Navigator" -?> doShift "2"
  31. 	, className =? "ffplay" -?> doShift "3"
  32. 	, className =? "mpv" -?> doShift "3"
  33. 	, className =? "Pidgin" -?> doF focusDown
  34. 	]
  35. 	where
  36. 		role = stringProperty "WM_WINDOW_ROLE"
  38. promptConfig = defaultXPConfig
  39.   { font        = "xft:monospace-10"
  40.   , borderColor = "#1e2320"
  41.   , fgColor     = "#dddddd"
  42.   , bgColor     = "#1e2320"
  43.   , fgHLight    = "#ffffff"
  44.   , bgHLight    = "#5f5f5f"
  45.   , height      = 16
  46.   , position    = Top
  47.   }
  49. main = xmonad $ docks $ def
  50. 	{ borderWidth        = 0
  51. 	, focusFollowsMouse  = False
  52. 	, clickJustFocuses   = False
  53. 	, logHook            = dynamicLogString xmobarPP
  54. 		{ ppTitle   = xmobarColor "green" ""
  55. 		, ppVisible = wrap "[" "]"
  56. 		, ppSort    = getSortByXineramaPhysicalRule horizontalScreenOrderer
  57. 		} >>= xmonadPropLog
  58. 	, modMask            = mod4Mask
  59. 	, manageHook         = manageHook def <+> myManageHook
  60. 	, layoutHook         = myLayout
  61. 	, handleEventHook    = handleEventHook def <+> docksEventHook
  62. 	, terminal           = "st"
  63. 	}
  64. 	`additionalKeys`
  65. 	[ ((mod4Mask,   xK_b), sendMessage ToggleStruts)
  66. 	, ((mod4Mask .|. shiftMask, xK_g     ), windowPrompt promptConfig { autoComplete = Just 500000 } Goto allWindows)
  67. 	, ((mod4Mask .|. shiftMask, xK_b     ), windowPrompt promptConfig Bring allWindows)
  68. 	]