21 lines
453 B
Haskell
21 lines
453 B
Haskell
|
-- 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
|