From 4ab52c211d3f36669ce670148f2307f3566bd458 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Wed, 24 Dec 2014 22:00:38 +0100
Subject: colorize TVMessagePart

---
 ThreadView.hs | 8 ++++++--
 1 file 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
 
 
-- 
cgit v1.2.3