fix logMode
This commit is contained in:
parent
10c23160e0
commit
dd92de1689
1 changed files with 5 additions and 2 deletions
|
@ -218,14 +218,17 @@ myXmobarPP :: PP
|
||||||
myXmobarPP = def
|
myXmobarPP = def
|
||||||
{ ppSep = grey0 " "
|
{ ppSep = grey0 " "
|
||||||
, ppCurrent = blue . wrap " " ""
|
, ppCurrent = blue . wrap " " ""
|
||||||
|
, ppTitle = grey2 . wrap " " "" . shorten 32
|
||||||
, ppVisible = purple . wrap " " ""
|
, ppVisible = purple . wrap " " ""
|
||||||
, ppHidden = grey0 . wrap " " ""
|
, ppHidden = grey0 . wrap " " ""
|
||||||
, ppHiddenNoWindows = grey0 . wrap " " ""
|
, ppHiddenNoWindows = grey0 . wrap " " ""
|
||||||
, ppUrgent = red . wrap " " ""
|
, ppUrgent = red . wrap " " ""
|
||||||
, ppLayout = aqua . wrap (grey0 " <fn=1>[</fn> ") (grey0 " <fn=1>]</fn> ")
|
, ppLayout = aqua . wrap (grey0 " <fn=1>[</fn> ") (grey0 " <fn=1>]</fn> ")
|
||||||
, ppOrder = \[ws, l, _, mode] -> [ws, l, mode]
|
, ppOrder = \case { [ws, l, title, mode] -> [ws, l, mode, title]; xs -> xs }
|
||||||
, ppExtras = [logMode]
|
, ppExtras = [lMode]
|
||||||
}
|
}
|
||||||
|
where
|
||||||
|
lMode = xmobarColorL "#a89984" "#282828" logMode
|
||||||
|
|
||||||
|
|
||||||
--
|
--
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue