Hello community, here is the log from the commit of package ghc-vty for openSUSE:Factory checked in at 2020-11-12 22:45:16 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-vty (Old) and /work/SRC/openSUSE:Factory/.ghc-vty.new.24930 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-vty" Thu Nov 12 22:45:16 2020 rev:5 rq:847879 version:5.32 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-vty/ghc-vty.changes 2020-10-23 15:15:28.754167004 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-vty.new.24930/ghc-vty.changes 2020-11-12 22:45:20.754514718 +0100 @@ -1,0 +2,16 @@ +Mon Nov 9 12:35:51 UTC 2020 - [email protected] + +- Update vty to version 5.32. + 5.32 + ---- + + New features: + * Meta-PageUp and Meta-PageDown are now supported (#193) + * Added `supportsItalics` and `supportsStrikethrough` functions to + check for feature support in terminfo + + Bug fixes: + * Detect utf-8 mode in `LANG` regardless of case (thanks Emeka + Nkurumeh) + +------------------------------------------------------------------- Old: ---- vty-5.31.tar.gz New: ---- vty-5.32.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-vty.spec ++++++ --- /var/tmp/diff_new_pack.hoplHA/_old 2020-11-12 22:45:22.174516201 +0100 +++ /var/tmp/diff_new_pack.hoplHA/_new 2020-11-12 22:45:22.178516205 +0100 @@ -19,7 +19,7 @@ %global pkg_name vty %bcond_with tests Name: ghc-%{pkg_name} -Version: 5.31 +Version: 5.32 Release: 0 Summary: A simple terminal UI library License: BSD-3-Clause ++++++ vty-5.31.tar.gz -> vty-5.32.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/vty-5.31/CHANGELOG.md new/vty-5.32/CHANGELOG.md --- old/vty-5.31/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 +++ new/vty-5.32/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 @@ -1,4 +1,16 @@ +5.32 +---- + +New features: + * Meta-PageUp and Meta-PageDown are now supported (#193) + * Added `supportsItalics` and `supportsStrikethrough` functions to + check for feature support in terminfo + +Bug fixes: + * Detect utf-8 mode in `LANG` regardless of case (thanks Emeka + Nkurumeh) + 5.31 ---- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/vty-5.31/src/Graphics/Vty/Input/Terminfo.hs new/vty-5.32/src/Graphics/Vty/Input/Terminfo.hs --- old/vty-5.31/src/Graphics/Vty/Input/Terminfo.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/vty-5.32/src/Graphics/Vty/Input/Terminfo.hs 2001-09-09 03:46:40.000000000 +0200 @@ -86,8 +86,10 @@ -- | Esc, meta-esc, delete, meta-delete, enter, meta-enter. specialSupportKeys :: ClassifyMap specialSupportKeys = - [ -- special support for ESC - ("\ESC",EvKey KEsc []), ("\ESC\ESC",EvKey KEsc [MMeta]) + [ ("\ESC\ESC[5~",EvKey KPageUp [MMeta]) + , ("\ESC\ESC[6~",EvKey KPageDown [MMeta]) + -- special support for ESC + , ("\ESC",EvKey KEsc []), ("\ESC\ESC",EvKey KEsc [MMeta]) -- Special support for backspace , ("\DEL",EvKey KBS []), ("\ESC\DEL",EvKey KBS [MMeta]) -- Special support for Enter diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/vty-5.31/src/Graphics/Vty/Output/Interface.hs new/vty-5.32/src/Graphics/Vty/Output/Interface.hs --- old/vty-5.31/src/Graphics/Vty/Output/Interface.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/vty-5.32/src/Graphics/Vty/Output/Interface.hs 2001-09-09 03:46:40.000000000 +0200 @@ -101,6 +101,22 @@ , ringTerminalBell :: IO () -- | Returns whether the terminal has an audio bell feature. , supportsBell :: IO Bool + -- | Returns whether the terminal supports italicized text. + -- + -- This is terminal-dependent and should make a best effort to + -- determine whether this feature is supported, but even if the + -- terminal advertises support (e.g. via terminfo) that might not + -- be a reliable indicator of whether the feature will work as + -- desired. + , supportsItalics :: IO Bool + -- | Returns whether the terminal supports strikethrough text. + -- + -- This is terminal-dependent and should make a best effort to + -- determine whether this feature is supported, but even if the + -- terminal advertises support (e.g. via terminfo) that might not + -- be a reliable indicator of whether the feature will work as + -- desired. + , supportsStrikethrough :: IO Bool } displayContext :: Output -> DisplayRegion -> IO DisplayContext diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/vty-5.31/src/Graphics/Vty/Output/Mock.hs new/vty-5.32/src/Graphics/Vty/Output/Mock.hs --- old/vty-5.31/src/Graphics/Vty/Output/Mock.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/vty-5.32/src/Graphics/Vty/Output/Mock.hs 2001-09-09 03:46:40.000000000 +0200 @@ -48,6 +48,8 @@ , releaseDisplay = return () , ringTerminalBell = return () , supportsBell = return False + , supportsItalics = return False + , supportsStrikethrough = return False , setDisplayBounds = const $ return () , displayBounds = return r , outputByteBuffer = \bytes -> do diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/vty-5.31/src/Graphics/Vty/Output/TerminfoBased.hs new/vty-5.32/src/Graphics/Vty/Output/TerminfoBased.hs --- old/vty-5.31/src/Graphics/Vty/Output/TerminfoBased.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/vty-5.32/src/Graphics/Vty/Output/TerminfoBased.hs 2001-09-09 03:46:40.000000000 +0200 @@ -168,6 +168,10 @@ sendCap setDefaultAttr [] maybeSendCap cnorm [] , supportsBell = return $ isJust $ ringBellAudio terminfoCaps + , supportsItalics = return $ (isJust $ enterItalic (displayAttrCaps terminfoCaps)) && + (isJust $ exitItalic (displayAttrCaps terminfoCaps)) + , supportsStrikethrough = return $ (isJust $ enterStrikethrough (displayAttrCaps terminfoCaps)) && + (isJust $ exitStrikethrough (displayAttrCaps terminfoCaps)) , ringTerminalBell = maybeSendCap ringBellAudio [] , reserveDisplay = do -- If there is no support for smcup: Clear the screen diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/vty-5.31/src/Graphics/Vty/Output/XTermColor.hs new/vty-5.32/src/Graphics/Vty/Output/XTermColor.hs --- old/vty-5.31/src/Graphics/Vty/Output/XTermColor.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/vty-5.32/src/Graphics/Vty/Output/XTermColor.hs 2001-09-09 03:46:40.000000000 +0200 @@ -17,6 +17,7 @@ import Control.Monad (void, when) import Control.Monad.Trans +import Data.Char (toLower) import Data.IORef import System.Posix.IO (fdWrite) @@ -92,9 +93,9 @@ utf8Active :: IO Bool utf8Active = do let vars = ["LC_ALL", "LANG", "LC_CTYPE"] - results <- catMaybes <$> mapM getEnv vars - let matches = filter ("UTF8" `isInfixOf`) results <> - filter ("UTF-8" `isInfixOf`) results + results <- map (toLower <$>) . catMaybes <$> mapM getEnv vars + let matches = filter ("utf8" `isInfixOf`) results <> + filter ("utf-8" `isInfixOf`) results return $ not $ null matches -- | Enable bracketed paste mode: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/vty-5.31/vty.cabal new/vty-5.32/vty.cabal --- old/vty-5.31/vty.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/vty-5.32/vty.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,5 +1,5 @@ name: vty -version: 5.31 +version: 5.32 license: BSD3 license-file: LICENSE author: AUTHORS _______________________________________________ openSUSE Commits mailing list -- [email protected] To unsubscribe, email [email protected] List Netiquette: https://en.opensuse.org/openSUSE:Mailing_list_netiquette List Archives: https://lists.opensuse.org/archives/list/[email protected]
