diff options
Diffstat (limited to 'Lazymail/Config.hs')
| -rw-r--r-- | Lazymail/Config.hs | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/Lazymail/Config.hs b/Lazymail/Config.hs deleted file mode 100644 index 2566bc9..0000000 --- a/Lazymail/Config.hs +++ /dev/null @@ -1,55 +0,0 @@ -{- Lazymail user configuration - - - - Copyright 2013 Raúl Benencia <rul@kalgan.cc> - - - - Licensed under the GNU GPL version 3 or higher - - - -} - -module Lazymail.Config(LazymailConfig(..), defaultConfig, customConfig) where - -import Data.List(sort, stripPrefix) -import System.Posix.Files(getSymbolicLinkStatus, isSymbolicLink) -import UI.NCurses(Color(..)) - -import Lazymail.Keymap -import Lazymail.Types(LazymailConfig(..)) - -defaultConfig = LazymailConfig { - baseColor = (ColorWhite, ColorBlack) - , selectionColor = (ColorBlack, ColorWhite) - , statusBarColor = (ColorBlack, ColorBlue) - , headerColor = (ColorGreen, ColorBlack) - , newEmailColor = (ColorBlue, ColorBlack) - , showStatusBar = True - , initialPath = "" - , filterMaildirsHook = \mds -> return mds - , indexDateFormat = "%m %d" - , headersToShow = ["date", "from", "to", "cc", "bcc", "subject", "reply-to"] - , globalKeymaps = defaultGlobalKeymap - , maildirModeKeymap = defaultMaildirKeymap - , indexModeKeymap = defaultIndexKeymap - , emailModeKeymap = defaultEmailKeymap - , composeModeKeymap = defaultComposeKeymap -} - --- --- | Users should modify customConfig in order to set-up their --- preferences. In a possible future maybe I'll work in a not-so-crappy --- config system. --- ---customConfig = defaultConfig { initialPath = "/home/rul/mail/"} - -customConfig = defaultConfig { initialPath = "/home/rul/mail/" - , filterMaildirsHook = filterSymlinks } - -filterSymlinks :: [FilePath] -> IO [FilePath] -filterSymlinks [] = return [] -filterSymlinks (md:mds) = do - filtered <- do - fs <- getSymbolicLinkStatus md - rest <- filterSymlinks mds - if isSymbolicLink fs - then return rest - else return (md:rest) - return $ sort filtered
\ No newline at end of file |