xmonad-config/lib/LemonBar.hs

21 lines
453 B
Haskell
Raw Permalink Normal View History

2017-12-08 19:32:06 +01:00
-- Micro lemonbar lib
module LemonBar
( tag
, block
, underline
, overline
, fColor
, bColor
, uColor
, color
) where
tag t v = foldl (++) "" ["%{",t,v,"}"]
block t o c s = (tag t o) ++ s ++ (tag t c)
underline = block "" "+u" "-u"
overline = block "" "+o" "-o"
fColor f = block "F" f "-"
bColor b = block "B" b "-"
uColor u = block "U" u "-"
color f b = fColor f . bColor b . uColor f