From 18e70a49274033d0598fcdfe830f80b0cc3552f0 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 4 May 2017 15:16:04 -0400
Subject: --replay: make Space advance to next output

This commit was sponsored by John Peloquin on Patreon.
---
 Replay.hs | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

(limited to 'Replay.hs')

diff --git a/Replay.hs b/Replay.hs
index 37df9e1..fcbfc25 100644
--- a/Replay.hs
+++ b/Replay.hs
@@ -8,19 +8,24 @@ module Replay where
 import Types
 import Log
 import CmdLine
+import Pty
 
 import qualified Data.ByteString as B
 import System.IO
+import Control.Concurrent.Async
 import Control.Concurrent.Thread.Delay
 
 replay :: ReplayOpts -> IO ()
-replay opts = go =<< streamLog (replayLogFile opts)
+replay opts = do
+	hSetBuffering stdin NoBuffering
+	withoutEcho $ go =<< streamLog (replayLogFile opts)
   where
 	go [] = return ()
 	go (Right l:ls) = do
 		case loggedMessage l of
 			User (ActivityMessage a) -> do
-				realisticDelay (elapsedTime a)
+				_ <- realisticDelay (elapsedTime a)
+					`race` waitSpaceBar
 				B.hPut stdout $ val $ seenData $ activity a
 				hFlush stdout
 			User (ControlMessage _) -> return ()
@@ -32,3 +37,10 @@ realisticDelay :: ElapsedTime -> IO ()
 realisticDelay (ElapsedTime n) 
 	| n < 1 = return ()
 	| otherwise = delay $ ceiling $ n * 1000000
+
+waitSpaceBar :: IO ()
+waitSpaceBar = do
+	c <- getChar
+	if c == ' '
+		then return ()
+		else waitSpaceBar
-- 
cgit v1.2.3