xmonad.hs

import qualified System.Directory as Directory

import qualified Conf.XMonad

import qualified Conf.Layouts.Nav2D
import qualified Conf.Bindings.Keys as Bindings.Keys
import qualified Conf.Bindings.Show as Bindings.Show
import qualified Conf.Hooks.Log as Hooks.Log

import qualified XMonad
import qualified XMonad.Actions.Navigation2D as Navigation2D
import qualified XMonad.Hooks.EwmhDesktops as EwmhDesktops
import qualified XMonad.Util.NamedActions as NamedActions

opts bars =
  Navigation2D.withNavigation2DConfig Conf.Layouts.Nav2D.nav2D $
  EwmhDesktops.ewmh $
  NamedActions.addDescrKeys' ((Bindings.Keys.modMask, XMonad.xK_F1), Bindings.Show.show) Bindings.Keys.keys $
  Conf.XMonad.xmonad bars

main
  = do
    home <- XMonad.io Directory.getHomeDirectory
    XMonad.catchIO (Directory.setCurrentDirectory home)
    bars <- Hooks.Log.initBars
    XMonad.xmonad $ opts bars