xmonad.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

import XMonad.Config
import XMonad
import XMonad.Hooks.EwmhDesktops (ewmh)
import XMonad.Hooks.ManageDocks
--import System.Taffybar.Support.PagerHints (pagerHints)

main =
  xmonad $
  ewmh $
  docks $
  def
    { modMask = mod4Mask -- ^ super instead of alt
    , normalBorderColor = "#002b36" -- ^ solarized dark
    , focusedBorderColor = "#eee8d5" -- ^ solarized light
    , manageHook = manageDocks <+> manageHook defaultConfig
    , layoutHook = avoidStruts $ layoutHook defaultConfig
    }