slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: cli: restore workaround to avoid showing escape codes in emacs

Browse Source
This commit is contained in:
Simon Michael 2023-01-27 10:00:07 -10:00
parent eed8a06906
commit 110711a2a2
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-lib/Hledger/Utils/IO.hs
View File

@ -260,7 +260,11 @@ terminalFgColor = terminalColor Foreground
{-# NOINLINE terminalColor #-} {-# NOINLINE terminalColor #-}
terminalColor :: ConsoleLayer -> Maybe (RGB Float) terminalColor :: ConsoleLayer -> Maybe (RGB Float)
terminalColor layer = unsafePerformIO $ do terminalColor layer = unsafePerformIO $ do
fmap fractionalRGB <$> getLayerColor layer -- safe to run on non-interactive/dumb terminal -- getLayerColor is not safe to run in emacs shell buffers with TERM=xterm-256color eg,
-- it prints escape codes; prevent that for now
inemacs <- not.null <$> lookupEnv "INSIDE_EMACS"
if inemacs then return Nothing
else fmap fractionalRGB <$> getLayerColor layer -- getLayerColor is safe to run in non-interactive terminal
where where
fractionalRGB :: (Fractional a) => RGB Word16 -> RGB a fractionalRGB :: (Fractional a) => RGB Word16 -> RGB a
fractionalRGB (RGB r g b) = RGB (fromIntegral r / 65535) (fromIntegral g / 65535) (fromIntegral b / 65535) -- chatgpt fractionalRGB (RGB r g b) = RGB (fromIntegral r / 65535) (fromIntegral g / 65535) (fromIntegral b / 65535) -- chatgpt