@@ -113,9 +113,6 @@ setUtf8CharSet, setDefaultCharSet :: String
113setUtf8CharSet = "\ESC%G"
113setUtf8CharSet = "\ESC%G"
114setDefaultCharSet = "\ESC%@"
114setDefaultCharSet = "\ESC%@"
116−-- | I think xterm is broken: Reseting the background color as the first
117−-- bytes serialized on a new line does not effect the background color
118−-- xterm uses to clear the line. Which is used *after* the next newline.
119xtermInlineHack :: Output -> IO ()
116xtermInlineHack :: Output -> IO ()
120xtermInlineHack t = do
117xtermInlineHack t = do
121 let writeReset = foldMap (writeWord8.toEnum.fromEnum) "\ESC[K"
118 let writeReset = foldMap (writeWord8.toEnum.fromEnum) "\ESC[K"