vty 3.1.2 → 3.1.4

raw patch · 4 files changed

+19/−6 lines, 4 filesdep ~base

Dependency ranges changed: base

Files

Graphics/Vty/Cursor.hs +6/−2
Graphics/Vty/LLInput.hs +1/−1
Graphics/Vty/Types.hs +11/−2
vty.cabal +1/−1

Graphics/Vty/Cursor.hs view

@@ -82,8 +82,12 @@ -- ANSI specific bits chgatt :: Attr -> IO () chgatt (Attr bf)-      = putStr "\ESC[0;3" >> putShow (bf .&. 0xFF) >> putStr ";4" >> putShow ((bf `shiftR` 8) .&. 0xFF) >> 0x10000 ? ";1" >>-        0x20000 ? ";5" >> 0x40000 ? ";7" >> 0x80000 ? ";2" >> 0x100000 ? ";4" >> putStr "m"+      = putStr "\ESC[0;" >>+        putShow (bf .&. 0xFF) >> +        putStr ";" >> putShow ((bf `shiftR` 8) .&. 0xFF) >> +        0x10000 ? ";1" >>+        0x20000 ? ";5" >> 0x40000 ? ";7" >> 0x80000 ? ";2" >> 0x100000 ? ";4" >> +        putStr "m"     where       {-# INLINE (?) #-}       (?) :: Int -> [Char] -> IO ()

Graphics/Vty/LLInput.hs view

@@ -72,7 +72,7 @@                   setFdOption stdInput NonBlockingRead False                   threadWaitRead stdInput                   setFdOption stdInput NonBlockingRead True-                  try readAll +                  try readAll :: IO (Either IOException ())                   writeChan inputChannel '\xFFFE'                   loop               readAll = do

Graphics/Vty/Types.hs view

@@ -22,12 +22,21 @@  -- | Set the foreground color of an `Attr'. setFG :: Color -> Attr -> Attr-setFG (Color c) (Attr a) = Attr ((a .&. 0xFFFFFF00) .|. c)+setFG (Color c) (Attr a) = Attr ((a .&. 0xFFFFFF00) .|. (30 + c))  -- | Set the background color of an `Attr'. setBG :: Color -> Attr -> Attr-setBG (Color c) (Attr a) = Attr ((a .&. 0xFFFF00FF) .|. (c `shiftL` 8))+setBG (Color c) (Attr a) = Attr ((a .&. 0xFFFF00FF) .|. ((40 + c) `shiftL` 8)) +-- | Set the foreground color of an `Attr'.+setFGVivid :: Color -> Attr -> Attr+setFGVivid (Color c) (Attr a) = Attr ((a .&. 0xFFFFFF00) .|. (90 + c))++-- | Set the background color of an `Attr'.+setBGVivid :: Color -> Attr -> Attr+setBGVivid (Color c) (Attr a) = Attr ((a .&. 0xFFFF00FF) .|. ((100 + c) `shiftL` 8))++   -- | Set bold attribute of an `Attr'. setBold :: Attr -> Attr setBold (Attr a) = Attr (a .|. 0x10000)

vty.cabal view

@@ -1,5 +1,5 @@ Name:                vty-Version:             3.1.2+Version:             3.1.4 License:             BSD3 License-file:        LICENSE Author:              Stefan O'Rear