xmonad.hs

import XMonad
import TheNext
import XMonad.Util.Run                  (spawnPipe)
import System.Taffybar.Hooks.PagerHints (pagerHints)
import XMonad.Hooks.ManageDocks         (docks)
import XMonad.Hooks.EwmhDesktops        (ewmh)
import DBus.Client                      (connectSession)

main = do
    -- | 启动taffybar
    xmproc <- spawnPipe "~/.cabal/bin/theNexttaffybar"
    xmonad $ docks $ ewmh $ pagerHints defaults

defaults = XConfig
    { XMonad.borderWidth        = TheNext.borderWidth
    , XMonad.workspaces         = TheNext.workspaces
    , XMonad.layoutHook         = TheNext.layout
    , XMonad.terminal           = TheNext.terminal
    , XMonad.normalBorderColor  = TheNext.normalBorderColor
    , XMonad.focusedBorderColor = TheNext.focusedBorderColor
    , XMonad.modMask            = TheNext.defaultModMask
    , XMonad.keys               = TheNext.keys
    , XMonad.logHook            = return ()
    , XMonad.startupHook        = return ()
    , XMonad.mouseBindings      = TheNext.mouseBindings
    , XMonad.manageHook         = TheNext.manageHook
    , XMonad.handleEventHook    = mempty -- TheNext.handleEventHook
    , XMonad.focusFollowsMouse  = TheNext.focusFollowsMouse
    , XMonad.clickJustFocuses   = TheNext.clickJustFocuses
    , XMonad.clientMask         = TheNext.clientMask
    , XMonad.rootMask           = TheNext.rootMask
    , XMonad.handleExtraArgs = \ xs theConf -> case xs of
            [] -> return theConf
            _ -> fail ("unrecognized flags:" ++ show xs)
    }