diff options
Diffstat (limited to 'Config.hs')
| -rw-r--r-- | Config.hs | 16 |
1 files changed, 0 insertions, 16 deletions
@@ -9,7 +9,6 @@ module Config(LazymailConfig(..), defaultConfig, customConfig) where import Data.List(sort, stripPrefix) -import System.FilePath(FilePath, takeFileName, dropTrailingPathSeparator) import System.Posix.Files(getSymbolicLinkStatus, isSymbolicLink) import UI.NCurses(Color(..)) @@ -20,7 +19,6 @@ data LazymailConfig = LazymailConfig { , showStatusBar :: Bool , initialPath :: FilePath , filterMaildirsHook :: [FilePath] -> IO [FilePath] - , maildirDrawHook :: String -> String -> String } defaultConfig = LazymailConfig { @@ -30,7 +28,6 @@ defaultConfig = LazymailConfig { , showStatusBar = True , initialPath = "" , filterMaildirsHook = \mds -> return mds - , maildirDrawHook = \_ md -> md } -- @@ -41,21 +38,8 @@ defaultConfig = LazymailConfig { --customConfig = defaultConfig { initialPath = "/home/rul/mail/"} customConfig = defaultConfig { initialPath = "/home/rul/mail/linti" - , maildirDrawHook = indentedShow , filterMaildirsHook = filterSymlinks } -indentedShow :: String -> String -> String -indentedShow bp md = - let str = case (stripPrefix bp md) of - Nothing -> md - Just s -> s - name' = takeFileName . dropTrailingPathSeparator $ str - name = takeFileName $ map (\x -> if x `elem` imapSep then '/' else x) name' - pad = " " - numPads = (length $ filter (== '/') str) + (length $ filter (`elem` imapSep) str) - imapSep = ['.'] -- IMAP usually separates its directories with dots - in (concat $ replicate (numPads - 1) pad) ++ name - filterSymlinks :: [FilePath] -> IO [FilePath] filterSymlinks [] = return [] filterSymlinks (md:mds) = do |