11 lines
273 B
Haskell
11 lines
273 B
Haskell
|
|
||
|
|
module Xmobar.Plugins.Common
|
||
|
|
(chooseColor)
|
||
|
|
where
|
||
|
|
|
||
|
|
import XMonad.Hooks.DynamicLog (xmobarColor)
|
||
|
|
|
||
|
|
chooseColor :: String -> String -> String -> Bool -> String
|
||
|
|
chooseColor text colorOn colorOff state =
|
||
|
|
xmobarColor (if state then colorOn else colorOff) "" text
|