From 98facf82ff30e56b14367c3c303dd553daa1d48d Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sat, 27 Dec 2014 23:25:03 +0100
Subject: kill ghosts after EOF, vi-style

---
 test4.hs | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/test4.hs b/test4.hs
index 893d120..cf5ad3e 100644
--- a/test4.hs
+++ b/test4.hs
@@ -110,11 +110,16 @@ redraw _q@State{..} = do
     -- consumes 1 screenHeight
     putStr $ "\ESC[2K" ++ flashMessage ++ " " ++ show (screenWidth, screenHeight)
 
+
+    let buf = map (take screenWidth . drop xoffset) $
+              take (screenHeight - 1) $
+              drop yoffset $
+              renderTreeView (Z.label cursor) (Z.toTree cursor)
+
     mapM_ (putStr . ("\n\ESC[2K"++)) $
-        map (take screenWidth . drop xoffset) $
-        take (screenHeight - 1) $
-        drop yoffset $
-        renderTreeView (Z.label cursor) (Z.toTree cursor)
+        buf
+        ++
+        take (screenHeight - 1 - length buf) (repeat "~")
 
 
 
-- 
cgit v1.2.3