xmonad-masser/src/XMonad/XMobar.hs

36 lines
846 B
Haskell
Raw Normal View History

2019-03-19 10:10:18 +02:00
module XMonad.XMobar (zenburnPP) where
-- import XMonad.Util.Loggers
import XMonad.Hooks.DynamicLog (
PP(..)
, xmobarColor
, shorten
, xmobarPP
, dzenStrip)
myUrgencyHintFgColor :: String
myUrgencyHintFgColor = "#333333"
myUrgencyHintBgColor :: String
myUrgencyHintBgColor = "#F18C96"
-- Xmobar pretty printer. Color scheme zenburn
zenburnPP :: PP
zenburnPP = xmobarPP {
ppTitle = xmobarColor "#DCA3A3" "" . shorten 70
, ppCurrent = xmobarColor "#CEFFAC" ""
, ppHidden = const ""
, ppSep = " | "
, ppLayout = id
, ppUrgent = xmobarColor myUrgencyHintFgColor myUrgencyHintBgColor . dzenStrip
, ppOrder = \(ws:_layout:_title:_) -> [ws]
, ppExtras = []
}
-- xmobar :: IO (X ())
-- xmobar = do
-- xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar"
-- return $ dynamicLogWithPP $ zenburnPP xmproc