From 32dc8cc98ef0e49e042d7d8cf000dc6360b106d6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Tue, 27 Aug 2013 20:41:57 -0300
Subject: Unify selection list code

---
 Config.hs | 16 ----------------
 1 file changed, 16 deletions(-)

(limited to 'Config.hs')

diff --git a/Config.hs b/Config.hs
index 39f4371..1423d79 100644
--- a/Config.hs
+++ b/Config.hs
@@ -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
-- 
cgit v1.2.3