aboutsummaryrefslogtreecommitdiff
path: root/Config.hs
diff options
context:
space:
mode:
authorRaúl Benencia <rul@kalgan.cc>2013-09-03 00:00:50 -0300
committerRaúl Benencia <rul@kalgan.cc>2013-09-03 00:00:50 -0300
commite41dd5091f597e2252deb9ecbde900eda7c15614 (patch)
treeb60a532b67aa9932dd0af9a00daf5735e496812b /Config.hs
parent56b4aef769386e9fbe3b074698451e8b74489d61 (diff)
Sorted index mode
Diffstat (limited to 'Config.hs')
-rw-r--r--Config.hs13
1 files changed, 3 insertions, 10 deletions
diff --git a/Config.hs b/Config.hs
index b446838..96c9125 100644
--- a/Config.hs
+++ b/Config.hs
@@ -12,24 +12,17 @@ import Data.List(sort, stripPrefix)
import System.Posix.Files(getSymbolicLinkStatus, isSymbolicLink)
import UI.NCurses(Color(..))
-data LazymailConfig = LazymailConfig {
- baseColor :: (Color, Color) -- (foreground, background)
- , selectionColor :: (Color, Color)
- , statusBarColor :: (Color, Color)
- , headerColor :: (Color, Color)
- , showStatusBar :: Bool
- , initialPath :: FilePath
- , filterMaildirsHook :: [FilePath] -> IO [FilePath]
-}
+import Types(LazymailConfig(..))
defaultConfig = LazymailConfig {
baseColor = (ColorWhite, ColorBlack)
, selectionColor = (ColorYellow, ColorBlack)
, statusBarColor = (ColorYellow, ColorBlack)
- , headerColor = (ColorYellow, ColorBlack)
+ , headerColor = (ColorYellow, ColorBlack)
, showStatusBar = True
, initialPath = ""
, filterMaildirsHook = \mds -> return mds
+ , indexDateFormat = "%m %d"
}
--
nihil fit ex nihilo