-- 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