28 lines
576 B
Haskell
28 lines
576 B
Haskell
--
|
|
-- the configuration file interface.
|
|
--
|
|
|
|
module API where
|
|
|
|
data Color = Black | Grey | Green | Cyan | Yellow | Magenta | Red
|
|
|
|
data Interface = Interface {
|
|
editor :: IO String,
|
|
attribution :: String -> String,
|
|
header_color :: Color,
|
|
colorize :: [String],
|
|
include :: Bool
|
|
}
|
|
|
|
-- Default settings
|
|
mail :: Interface
|
|
mail = Interface {
|
|
editor = return "vi",
|
|
|
|
attribution = (\user -> user ++ " wrote:"),
|
|
header_color = Grey,
|
|
colorize = [],
|
|
include = True
|
|
}
|
|
|