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

fix: lib: fix terminal lightness detection

Browse Source
This commit is contained in:
Simon Michael 2023-01-27 16:51:05 -10:00
parent 79914cbe74
commit 9381b46004
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -272,7 +272,7 @@ getLayerColor' l = do
inemacs <- not.null <$> lookupEnv "INSIDE_EMACS" inemacs <- not.null <$> lookupEnv "INSIDE_EMACS"
interactive <- hIsTerminalDevice stdout interactive <- hIsTerminalDevice stdout
supportscolor <- hSupportsANSIColor stdout supportscolor <- hSupportsANSIColor stdout
if inemacs || interactive || not supportscolor then return Nothing if inemacs || not interactive || not supportscolor then return Nothing
else fmap fractionalRGB <$> getLayerColor l else fmap fractionalRGB <$> getLayerColor l
where where
fractionalRGB :: (Fractional a) => RGB Word16 -> RGB a fractionalRGB :: (Fractional a) => RGB Word16 -> RGB a