xmonad.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

import XMonad
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks
import XMonad.Layout.Fullscreen

import Defaults
import EventHook
import KeyBindings
import Layout
import LogHook

main :: IO ()
main = xmonad . withStatusBars . fullscreenSupport . docks . ewmh $ defaults
  where
    defaults =
      def
        { modMask            = myModMask
        , keys               = myKeys
        , workspaces         = myWorkspaces
        , focusFollowsMouse  = myFocusFollowsMouse
        , clickJustFocuses   = myClickJustFocuses
        , logHook            = myLogHook
        , handleEventHook    = myEventHook
        , terminal           = myTerminal
        , layoutHook         = myLayoutHook
        , borderWidth        = myBorderWidth
        , normalBorderColor  = myNormalBorderColor
        , focusedBorderColor = myFocusedBorderColor
        }