sboehler

{-# LANGUAGE FlexibleContexts #-}

import           Control.Monad                    (replicateM_)
import           Data.Map                         (fromList, (!))
import           Data.Monoid                      (All, (<>))
import           GHC.IO.Handle.Types              (Handle)
import           Network.HostName                 (getHostName)
import           XMonad                           hiding ((|||))
import           XMonad.Actions.CopyWindow        (copy, kill1)
import           XMonad.Actions.CycleWS           (Direction1D (..),