From 51e3df5fd288c72ab427dda980d6a9f2d6f8adf9 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sun, 28 Dec 2014 04:41:52 +0100
Subject: replace tabs by spaces in Trammel String

---
 Trammel.hs | 8 ++++++++
 test4.hs   | 3 +++
 2 files changed, 11 insertions(+)

diff --git a/Trammel.hs b/Trammel.hs
index bd3cd32..d83b846 100644
--- a/Trammel.hs
+++ b/Trammel.hs
@@ -24,6 +24,14 @@ data Trammel a
   deriving (Eq, Show)
 
 
+instance Functor Trammel where
+    fmap f = \case
+        Append t1 t2 -> Append (fmap f t1) (fmap f t2)
+        Plain s -> Plain (f s)
+        SGR pm t -> SGR pm (fmap f t)
+        Empty -> Empty
+
+
 instance Monoid (Trammel a) where
     mappend = Append
     mempty = Empty
diff --git a/test4.hs b/test4.hs
index b9990a0..d9a2e74 100644
--- a/test4.hs
+++ b/test4.hs
@@ -124,6 +124,7 @@ redraw :: State -> IO ()
 redraw _q@State{..} = do
 
     let image =
+            map (fmap $ fmap $ sub '\t' ' ') $
             map (trammelTake screenWidth . trammelDrop xoffset) $
             take screenHeight $
             headBuffer ++ drop yoffset treeBuffer
@@ -135,6 +136,8 @@ redraw _q@State{..} = do
           putStr $ pp $ "\ESC[H" <> first <> mconcat (map ("\n"<>) rest)
       _ ->
           return ()
+  where
+    sub x x' c = if c == x then x' else c
 
 
 
-- 
cgit v1.2.3