You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
1.1 KiB
34 lines
1.1 KiB
10 years ago
|
-----------------------------------------------------------------------------
|
||
|
|
-- | Helper functions to format output for 'bar'
|
||
|
|
-----------------------------------------------------------------------------
|
||
|
|
|
||
|
|
module Bar (
|
||
|
|
Alignment(..)
|
||
|
|
, ColorControl(..)
|
||
|
|
, clickable
|
||
|
|
, reverseColors
|
||
|
|
, align
|
||
|
|
, changeColor
|
||
|
|
, clickable2
|
||
|
|
) where
|
||
|
|
|
||
|
|
data Alignment = ALeft | ACenter | ARight
|
||
|
|
data ColorControl = F | B deriving (Show)
|
||
|
|
|
||
|
|
clickable :: String -> String -> String
|
||
|
|
clickable script text = "%{A:" ++ script ++ ":}" ++ text ++ "%{A}"
|
||
|
|
|
||
|
|
reverseColors :: String -> String
|
||
|
|
reverseColors text = "%{R}" ++ text ++ "%{R}"
|
||
|
|
|
||
|
|
align :: Alignment -> String -> String
|
||
|
|
align ALeft text = "%{l}" ++ text ++ "%{l}"
|
||
|
|
align ACenter text = "%{c}" ++ text ++ "%{c}"
|
||
|
|
align ARight text = "%{r}" ++ text ++ "%{r}"
|
||
|
|
|
||
|
|
changeColor :: ColorControl -> String -> String -> String
|
||
|
|
changeColor c color text = "%{" ++ show c ++ color ++ "}" ++ text ++ "%{" ++ show c ++ "-}"
|
||
|
|
|
||
|
|
clickable2 :: Show a => a -> [Char] -> [Char] -> [Char]
|
||
|
|
clickable2 n script text = "%{A" ++ show n ++ ":" ++ script ++ ":}" ++ text ++ "%{A}"
|