diff options
Diffstat (limited to 'src/Lazymail')
| -rw-r--r-- | src/Lazymail/Config.hs | 4 | ||||
| -rw-r--r-- | src/Lazymail/Screen.hs | 5 |
2 files changed, 4 insertions, 5 deletions
diff --git a/src/Lazymail/Config.hs b/src/Lazymail/Config.hs index 5769d8e..9dc5393 100644 --- a/src/Lazymail/Config.hs +++ b/src/Lazymail/Config.hs @@ -40,9 +40,7 @@ defaultConfig = LazymailConfig { -- 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/" +customConfig = defaultConfig { initialPath = "/home/rul/Mail" , filterMaildirsHook = filterSymlinks } filterSymlinks :: [FilePath] -> IO [FilePath] diff --git a/src/Lazymail/Screen.hs b/src/Lazymail/Screen.hs index a25c880..3d82768 100644 --- a/src/Lazymail/Screen.hs +++ b/src/Lazymail/Screen.hs @@ -87,7 +87,7 @@ screenLoop = do performUpdate :: LazymailUpdate LazymailState performUpdate = do st <- get - liftUpdate $ clearMain (scrRowsAsInteger st) (screenColumns st) + liftUpdate $ clearMain (baseColorID . colorStyle $ st) (scrRowsAsInteger st) (screenColumns st) drawMode (mode st) drawStatus get @@ -141,7 +141,8 @@ drawSimpleRow st path str | (mode st) == MaildirMode = drawString $ normalizeLen drawCroppedString st str {- Empty the whole window. Useful when changing modes. -} -clearMain rows columns = do +clearMain baseCol rows columns = do + setColor baseCol drawEmptyLine 0 moveCursor 0 0 where |