From 41b53ca04b6d52457f331930e8fea68416498882 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= Date: Thu, 5 Sep 2013 19:36:33 -0300 Subject: New project tree structure --- Config.hs | 49 ------------------------------------------------- 1 file changed, 49 deletions(-) delete mode 100644 Config.hs (limited to 'Config.hs') diff --git a/Config.hs b/Config.hs deleted file mode 100644 index 01b1435..0000000 --- a/Config.hs +++ /dev/null @@ -1,49 +0,0 @@ -{- Lazymail user configuration - - - - Copyright 2013 Raúl Benencia - - - - Licensed under the GNU GPL version 3 or higher - - - -} - -module Config(LazymailConfig(..), defaultConfig, customConfig) where - -import Data.List(sort, stripPrefix) -import System.Posix.Files(getSymbolicLinkStatus, isSymbolicLink) -import UI.NCurses(Color(..)) - -import 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"] -} - --- --- | 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 -- cgit v1.2.3