2c756c1 · vty · git.iko.soy

77 ( \ (_ :: SomeException) -> return (envName, "") )

78 )

79 [ "TERM", "COLORTERM", "LANG", "TERM_PROGRAM", "XTERM_VERSION" ]

80− t <- outputForCurrentTerminal

80+ t <- outputForCurrentTerminal def

81 let resultsTxt = show envAttributes ++ "\n"

82 ++ terminalID t ++ "\n"

83 ++ show results ++ "\n"

188 { testName = "Initialize and reserve terminal output then restore previous state."

189 , testID = "reserveOutputTest"

190 , testAction = do

191− t <- outputForCurrentTerminal

191+ t <- outputForCurrentTerminal def

192 reserveDisplay t

193 putStrLn "Line 1"

194 putStrLn "Line 2"

221 { testName = "Verify display bounds are correct test 0: Using spaces."

222 , testID = "displayBoundsTest0"

223 , testAction = do

224− t <- outputForCurrentTerminal

224+ t <- outputForCurrentTerminal def

225 reserveDisplay t

226 (w,h) <- displayBounds t

227 let row0 = replicate (fromEnum w) 'X' ++ "\n"

242 { testName = "Verify display bounds are correct test 0: Using cursor movement."

243 , testID = "displayBoundsTest1"

244 , testAction = do

245− t <- outputForCurrentTerminal

245+ t <- outputForCurrentTerminal def

246 reserveDisplay t

247 (w,h) <- displayBounds t

248 setCursorPos t 0 0

271 { testName = "Verify display bounds are correct test 0: Using Image ops."

272 , testID = "displayBoundsTest2"

273 , testAction = do

274− t <- outputForCurrentTerminal

274+ t <- outputForCurrentTerminal def

275 reserveDisplay t

276 bounds@(w,h) <- displayBounds t

277 let firstRow = horizCat $ replicate (fromEnum w) (char defAttr 'X')

294 { testName = "Verify display bounds are correct test 0: Hide cursor; Set cursor pos."

295 , testID = "displayBoundsTest3"

296 , testAction = do

297− t <- outputForCurrentTerminal

297+ t <- outputForCurrentTerminal def

298 reserveDisplay t

299 (w,h) <- displayBounds t

300 hideCursor t

406 { testName = "Verify terminal can display unicode single-width characters. (Direct UTF-8)"

407 , testID = "unicodeSingleWidth0"

408 , testAction = do

409− t <- outputForCurrentTerminal

409+ t <- outputForCurrentTerminal def

410 reserveDisplay t

411 hideCursor t

412 withArrayLen (concat utf8Txt0) (flip $ hPutBuf stdout)

425 { testName = "Verify terminal can display unicode single-width characters. (Image ops)"

426 , testID = "unicodeSingleWidth1"

427 , testAction = do

428− t <- outputForCurrentTerminal

428+ t <- outputForCurrentTerminal def

429 reserveDisplay t

430 let pic = picForImage image

431 image = line0 <-> line1

488 { testName = "Verify terminal can display unicode double-width characters. (Direct UTF-8)"

489 , testID = "unicodeDoubleWidth0"

490 , testAction = do

491− t <- outputForCurrentTerminal

491+ t <- outputForCurrentTerminal def

492 reserveDisplay t

493 hideCursor t

494 withArrayLen (concat utf8Txt1) (flip $ hPutBuf stdout)

507 { testName = "Verify terminal can display unicode double-width characters. (Image ops)"

508 , testID = "unicodeDoubleWidth1"

509 , testAction = do

510− t <- outputForCurrentTerminal

510+ t <- outputForCurrentTerminal def

511 reserveDisplay t

512 let pic = picForImage image

513 image = line0 <-> line1

561 { testName = "Character attributes: foreground colors."

562 , testID = "attributesTest0"

563 , testAction = do

564− t <- outputForCurrentTerminal

564+ t <- outputForCurrentTerminal def

565 reserveDisplay t

566 let pic = picForImage image

567 image = border <|> column0 <|> border <|> column1 <|> border

607 { testName = "Character attributes: background colors."

608 , testID = "attributesTest1"

609 , testAction = do

610− t <- outputForCurrentTerminal

610+ t <- outputForCurrentTerminal def

611 reserveDisplay t

612 let pic = picForImage image

613 image = border <|> column0 <|> border <|> column1 <|> border

662 { testName = "Character attributes: Vivid foreground colors."

663 , testID = "attributesTest2"

664 , testAction = do

665− t <- outputForCurrentTerminal

665+ t <- outputForCurrentTerminal def

666 reserveDisplay t

667 let pic = picForImage image

668 image = horizCat [border, column0, border, column1, border, column2, border]

721 { testName = "Character attributes: Vivid background colors."

722 , testID = "attributesTest3"

723 , testAction = do

724− t <- outputForCurrentTerminal

724+ t <- outputForCurrentTerminal def

725 reserveDisplay t

726 let pic = picForImage image

727 image = horizCat [border, column0, border, column1, border, column2, border]

799 { testName = "Character attributes: Bold; Blink; Underline."

800 , testID = "attributesTest4"

801 , testAction = do

802− t <- outputForCurrentTerminal

802+ t <- outputForCurrentTerminal def

803 reserveDisplay t

804 let pic = picForImage image

805 image = horizCat [border, column0, border, column1, border]

851 { testName = "Character attributes: 240 color palette"

852 , testID = "attributesTest5"

853 , testAction = do

854− t <- outputForCurrentTerminal

854+ t <- outputForCurrentTerminal def

855 reserveDisplay t

856 let pic = picForImage image

857 image = vertCat $ map horizCat $ splitColorImages colorImages

962

963outputPicAndWait :: Picture -> IO ()

964outputPicAndWait pic = do

965− t <- outputForCurrentTerminal

965+ t <- outputForCurrentTerminal def

966 reserveDisplay t

967 d <- displayBounds t >>= displayContext t

968 outputPicture d pic

1145

1146cheesyAnim0 :: Image -> [Image] -> IO ()

1147cheesyAnim0 i background = do

1148− t <- outputForCurrentTerminal

1148+ t <- outputForCurrentTerminal def

1149 reserveDisplay t

1150 bounds <- displayBounds t

1151 d <- displayContext t bounds