From f4cdf79bd4a75e9eafe68b9a908f4cc68682b7ef Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 5 Apr 2022 21:39:55 +0200
Subject: boom

---
 src/Much/Screen.hs | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 src/Much/Screen.hs

(limited to 'src/Much/Screen.hs')

diff --git a/src/Much/Screen.hs b/src/Much/Screen.hs
new file mode 100644
index 0000000..b93847f
--- /dev/null
+++ b/src/Much/Screen.hs
@@ -0,0 +1,33 @@
+{-# LANGUAGE RecordWildCards #-}
+module Much.Screen (Screen(..), setScreen, withScreen) where
+
+import Control.Exception
+import Data.List
+import System.IO
+
+
+data Screen = Screen
+    { inputEcho :: Bool
+    , inputBufferMode :: BufferMode
+    , outputBufferMode :: BufferMode
+    , decsetPm :: [Int]
+    , decrstPm :: [Int]
+    }
+
+setScreen :: Handle -> Handle -> Screen -> IO Screen
+setScreen i o Screen{..} = get <* set where
+  get = Screen <$> hGetEcho i
+               <*> hGetBuffering i
+               <*> hGetBuffering o
+               <*> pure decrstPm
+               <*> pure decsetPm
+  set = do
+      hSetEcho i inputEcho
+      hSetBuffering i inputBufferMode
+      hSetBuffering o outputBufferMode
+      hPutStr o $ "\ESC[?" ++ intercalate ";" (map show decsetPm) ++ "h"
+      hPutStr o $ "\ESC[?" ++ intercalate ";" (map show decrstPm) ++ "l"
+      hFlush o
+
+withScreen :: Handle -> Handle -> Screen -> (Screen -> IO a) -> IO a
+withScreen i o s = bracket (setScreen i o s) (setScreen i o)
-- 
cgit v1.2.3