summaryrefslogtreecommitdiff
path: root/src/Patat/Presentation/Display.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Patat/Presentation/Display.hs')
-rw-r--r--src/Patat/Presentation/Display.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Patat/Presentation/Display.hs b/src/Patat/Presentation/Display.hs
index 1738e23..cb562d7 100644
--- a/src/Patat/Presentation/Display.hs
+++ b/src/Patat/Presentation/Display.hs
@@ -26,10 +26,11 @@ import Patat.PrettyPrint ((<$$>), (<+>))
import qualified Patat.PrettyPrint as PP
import Patat.Theme (Theme (..))
import qualified Patat.Theme as Theme
+import Prelude
import qualified System.Console.ANSI as Ansi
import qualified System.Console.Terminal.Size as Terminal
+import qualified System.IO as IO
import qualified Text.Pandoc.Extended as Pandoc
-import Prelude
--------------------------------------------------------------------------------
@@ -69,11 +70,11 @@ displayWithBorders Presentation {..} f = do
active = show (sidx + 1) ++ " / " ++ show (length pSlides)
activeWidth = length active
- Ansi.setCursorPosition (rows - 2) 0
+ Ansi.setCursorPosition (rows - 1) 0
PP.putDoc $ " " <> borders (prettyInlines theme pAuthor)
Ansi.setCursorColumn (columns - activeWidth - 1)
PP.putDoc $ borders $ PP.string active
- putStrLn ""
+ IO.hFlush IO.stdout
--------------------------------------------------------------------------------