diff options
| -rw-r--r-- | ThreadView.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/ThreadView.hs b/ThreadView.hs index e673fce..dd795ef 100644 --- a/ThreadView.hs +++ b/ThreadView.hs @@ -164,8 +164,8 @@ threadViewImage hasFocus = \case ) TVMessagePart _ p -> - string def "TVMessagePart" - <|> translateX 1 (string def $ show $ partContentType p) + string mp "TVMessagePart" + <|> translateX 1 (string mp $ show $ partContentType p) <-> translateX 2 (partImage p) TVMessageLine _ _ _ s -> @@ -198,6 +198,10 @@ threadViewImage hasFocus = \case --ph_y = withForeColor def $ color 241 --ph_n = withForeColor def $ color 235 + mp = if hasFocus then mp_y else mp_n + mp_y = withForeColor def $ color 199 + mp_n = withForeColor def $ color 162 + color i = Color240 $ -16 + i |