colorize TVMessagePart

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