From 80d042e36a58eedb0df02cfce1c619744d9d9cf7 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Wed, 24 Dec 2014 21:52:15 +0100
Subject: replace {Open,Closed}Message by TVMessage

---
 Notmuch/Message.hs |  4 ++++
 ThreadView.hs      | 57 ++++++++++++++++--------------------------------------
 test3.hs           |  6 ++----
 3 files changed, 23 insertions(+), 44 deletions(-)

diff --git a/Notmuch/Message.hs b/Notmuch/Message.hs
index 3889e7c..63fe004 100644
--- a/Notmuch/Message.hs
+++ b/Notmuch/Message.hs
@@ -113,3 +113,7 @@ parseTree vs@(Array _) = do
     return $ TR.Node msg t
 parseTree _ = fail "Tree is not an array"
 
+
+-- message utilities
+isOpen :: Message -> Bool
+isOpen m = "open" `elem` messageTags m
diff --git a/ThreadView.hs b/ThreadView.hs
index 091c2d0..abfddcf 100644
--- a/ThreadView.hs
+++ b/ThreadView.hs
@@ -39,37 +39,28 @@ type LineNr = Int
 
 
 data ThreadView
-    = ClosedMessage Message
-    | OpenMessage Message
+    = TVMessage Message
     | MessageLine Message MessagePart LineNr String
     | TVMessagePart Message MessagePart
   deriving (Show)
 
 instance Eq ThreadView where
     MessageLine m1 mp1 ln1 _s1 == MessageLine m2 mp2 ln2 _s2 =
-        m1 == m2 && mp1 == mp2 && ln1 == ln2
-    a == b =
-        isMessage a && isMessage b && tvMsgId a == tvMsgId b
+        messageId m1 == messageId m2 && mp1 == mp2 && ln1 == ln2
 
+    TVMessagePart m1 mp1 == TVMessagePart m2 mp2 =
+        messageId m1 == messageId m2 && mp1 == mp2
 
-isMessage :: ThreadView -> Bool
-isMessage (ClosedMessage _) = True
-isMessage (OpenMessage _) = True
-isMessage _ = False
-
-
-tvMsgId :: ThreadView -> Maybe MessageID
-tvMsgId (ClosedMessage m) = Just $ messageId m
-tvMsgId (OpenMessage m) = Just $ messageId m
-tvMsgId _ = Nothing
+    TVMessage m1 == TVMessage m2 =
+        messageId m1 == messageId m2
 
+    _ == _ = False
 
 
 describe :: ThreadView -> String
-describe (ClosedMessage m) = "ClosedMessage " <> unMessageID (messageId m)
-describe (OpenMessage m) = "OpenMessage " <> unMessageID (messageId m)
+describe (TVMessage m) = "TVMessage" <> unMessageID (messageId m)
 describe (MessageLine _ _ _ s) = "MessageLine " <> show s
-describe (TVMessagePart _ p) = "TVMessagePart " <> show (partID p)
+describe (TVMessagePart m p) = "TVMessagePart " <> (unMessageID $ messageId m) <> " " <> show (partID p)
 
 
 --focusPrev t_cur t = do
@@ -107,8 +98,7 @@ findMessage :: MessageID -> Tree ThreadView -> Maybe ThreadView
 findMessage i =
     find p . flatten
   where
-    p (ClosedMessage m) = i == messageId m
-    p (OpenMessage m) = i == messageId m
+    p (TVMessage m) = i == messageId m
     p _ = False
 
 findTV :: ThreadView -> Tree ThreadView -> Maybe ThreadView
@@ -116,21 +106,16 @@ findTV x =
     find (==x) . flatten
 
 
-
 fromMessageTree :: Tree Message -> Tree ThreadView
 fromMessageTree (Node m ms) =
     Node m' ms'
   where
-    isOpen = "open" `elem` messageTags m
 
     m' :: ThreadView
-    m' =
-        if isOpen
-            then OpenMessage m
-            else ClosedMessage m
+    m' = TVMessage m
 
     ms' :: Forest ThreadView
-    ms' = if isOpen
+    ms' = if isOpen m
               then xconvBody m <> map fromMessageTree ms
               else map fromMessageTree ms
 
@@ -166,22 +151,14 @@ xconvLine m p (i, s) =
 
 threadViewImage :: Bool -> ThreadView -> Image
 threadViewImage hasFocus = \case
-    ClosedMessage m ->
-        string cm (unMessageID $ messageId m)
-        <|>
-        translateX 1 (
-          horizCat $
-              intersperse (string cm ", ") $
-              map (text' tagColor) $
-              messageTags m
-        )
-
-    OpenMessage m ->
-        string om (unMessageID $ messageId m)
+    TVMessage m ->
+        let col = if isOpen m then om else cm
+        in
+        string col (unMessageID $ messageId m)
         <|>
         translateX 1 (
           horizCat $
-              intersperse (string om ", ") $
+              intersperse (string col ", ") $
               map (text' tagColor) $
               messageTags m
         )
diff --git a/test3.hs b/test3.hs
index f5b600a..b299f30 100644
--- a/test3.hs
+++ b/test3.hs
@@ -69,8 +69,7 @@ import ThreadView
 
 toggleTag :: T.Text -> ThreadView -> IO ()
 toggleTag tag = \case
-    OpenMessage m -> f m
-    ClosedMessage m -> f m
+    TVMessage m -> f m
     _ -> return ()
   where
     f m = do
@@ -198,8 +197,7 @@ threadImage c (Node n ns) =
   --where
   --  --hasFocus = t_cur == messageId n
   --  hasFocus :: ThreadView -> Bool
-  --  hasFocus (OpenMessage m) = c == m
-  --  hasFocus (ClosedMessage m) = c == m
+  --  hasFocus (TVMessage m) = c == m
   --  hasFocus _ = False
 
 
-- 
cgit v1.2.3