From 948dd729fc022884319c85cc5c850c115bf4cc91 Mon Sep 17 00:00:00 2001 From: tv Date: Thu, 25 Dec 2014 11:54:14 +0100 Subject: rename {Thread,Tree}View --- test3.hs | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'test3.hs') diff --git a/test3.hs b/test3.hs index 6de1617..e35db25 100644 --- a/test3.hs +++ b/test3.hs @@ -38,7 +38,7 @@ import Notmuch.SearchResult import Control.Exception -import ThreadView +import TreeView import TreeSearch @@ -105,8 +105,8 @@ main = rec vty 0 (Z.fromTree v) --rec vty t_cur t = do - --rec :: Vty -> Int -> Z.TreePos Z.Full ThreadView -> Tree ThreadView -> IO () - rec :: Vty -> Int -> Z.TreePos Z.Full ThreadView -> IO () + --rec :: Vty -> Int -> Z.TreePos Z.Full TreeView -> Tree TreeView -> IO () + rec :: Vty -> Int -> Z.TreePos Z.Full TreeView -> IO () rec vty i c = do let img = @@ -117,7 +117,7 @@ main = --string def (maybe "Nothing" describe (focusPrev v c)) <-> --string def (describe $ Z.label c) <-> --string def (maybe "Nothing" describe (focusNext v c)) <-> - threadImage (Just $ Z.label c) (Z.toTree c) + treeImage (Just $ Z.label c) (Z.toTree c) pic = picForImage img v = Z.root c update vty pic @@ -166,17 +166,17 @@ main = rec vty 0 $ Z.modifyTree (\(Node l _) -> Node l t_) loc -threadImage :: Maybe ThreadView -> Tree ThreadView -> Image ---threadImage t_cur (Node n ns) = -threadImage c (Node n ns) = +treeImage :: Maybe TreeView -> Tree TreeView -> Image +--treeImage t_cur (Node n ns) = +treeImage c (Node n ns) = --messageImage hasFocus n - --threadViewImage (hasFocus n) n - threadViewImage (c == Just n) n + --treeViewImage (hasFocus n) n + treeViewImage (c == Just n) n <-> - translateX 2 (vertCat $ map (threadImage c) ns) + translateX 2 (vertCat $ map (treeImage c) ns) --where -- --hasFocus = t_cur == messageId n - -- hasFocus :: ThreadView -> Bool + -- hasFocus :: TreeView -> Bool -- hasFocus (TVMessage m) = c == m -- hasFocus _ = False -- cgit v1.2.3