36 lines
846 B
Haskell
36 lines
846 B
Haskell
|
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
|