86 lines
1.8 KiB
Haskell
86 lines
1.8 KiB
Haskell
|
module DefaultConfig
|
||
|
|
( mkPP
|
||
|
|
, wsNamer
|
||
|
|
, defaultPP
|
||
|
|
) where
|
||
|
|
|
||
|
|
import MyConfig
|
||
|
|
( workspaceLog
|
||
|
|
, layoutLog
|
||
|
|
, taskbar
|
||
|
|
)
|
||
|
|
|
||
|
|
import Theme
|
||
|
|
( inactiveColor
|
||
|
|
, urgentColor
|
||
|
|
, selFg
|
||
|
|
, selectionColor
|
||
|
|
)
|
||
|
|
|
||
|
|
import GHC.IO.Handle.Types (Handle)
|
||
|
|
|
||
|
|
import XMonad.Hooks.DynamicLog
|
||
|
|
( ppCurrent
|
||
|
|
, ppOutput
|
||
|
|
, ppExtras
|
||
|
|
, ppVisible
|
||
|
|
, ppHidden
|
||
|
|
, ppHiddenNoWindows
|
||
|
|
, ppUrgent
|
||
|
|
, ppOrder
|
||
|
|
, ppTitle
|
||
|
|
, ppSep
|
||
|
|
, ppLayout
|
||
|
|
, PP
|
||
|
|
, xmobarColor
|
||
|
|
, wrap
|
||
|
|
, shorten
|
||
|
|
)
|
||
|
|
|
||
|
|
import XMonad.Config (def)
|
||
|
|
|
||
|
|
import XMonad.Util.Run (hPutStrLn)
|
||
|
|
|
||
|
|
|
||
|
|
mkPP :: (String -> String) -> Bool -> Handle -> Int -> PP
|
||
|
|
mkPP workspaceNamer complete bar screen = common
|
||
|
|
{ ppOutput = hPutStrLn bar
|
||
|
|
, ppExtras = extras complete
|
||
|
|
}
|
||
|
|
where
|
||
|
|
common = def
|
||
|
|
{ ppCurrent = const ""
|
||
|
|
, ppVisible = const ""
|
||
|
|
, ppHidden = const ""
|
||
|
|
, ppHiddenNoWindows = const ""
|
||
|
|
, ppUrgent = xmobarColor urgentColor ""
|
||
|
|
, ppOrder = order complete
|
||
|
|
, ppTitle = title complete
|
||
|
|
, ppSep = xmobarColor inactiveColor "" "|"
|
||
|
|
, ppLayout = const ""
|
||
|
|
}
|
||
|
|
|
||
|
|
extras True =
|
||
|
|
[ workspaceLog workspaceNamer screen
|
||
|
|
, layoutLog screen
|
||
|
|
, taskbar screen
|
||
|
|
]
|
||
|
|
extras False =
|
||
|
|
[ workspaceLog workspaceNamer screen
|
||
|
|
, layoutLog screen
|
||
|
|
]
|
||
|
|
|
||
|
|
order True (_:_:_:xs) = xs
|
||
|
|
order False (_:_:t:ws:l:_) = [ws, l, t]
|
||
|
|
order _ _ = []
|
||
|
|
|
||
|
|
title True = const ""
|
||
|
|
title False = wrap " " "" . xmobarColor selFg selectionColor . wrap " " " " . shorten 80
|
||
|
|
|
||
|
|
wsNamer :: String -> String
|
||
|
|
wsNamer "NSP" = ""
|
||
|
|
wsNamer x = x
|
||
|
|
|
||
|
|
defaultPP :: Handle -> Int -> PP
|
||
|
|
defaultPP = mkPP wsNamer True
|