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

fix: lib: don't use $PAGER when TERM=dumb

Browse Source
This commit is contained in:
Simon Michael 2023-01-27 06:01:49 -10:00
parent 7a636dd428
commit bb5d473955
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -126,9 +126,11 @@ pprint' = pPrintOpt CheckColorTty prettyopts'
-- "Avoid using pshow, pprint, dbg* in the code below to prevent infinite loops." (?) -- "Avoid using pshow, pprint, dbg* in the code below to prevent infinite loops." (?)
-- | Display the given text on the terminal, using the user's $PAGER if the text is taller -- | Display the given text on the terminal, using the user's $PAGER if the text is taller
-- than the current terminal and stdout is interactive. -- than the current terminal and stdout is interactive and TERM is not "dumb".
pager :: String -> IO () pager :: String -> IO ()
pager s = printOrPage $ pack s pager s = do
dumbterm <- (== Just "dumb") <$> lookupEnv "TERM"
(if dumbterm then putStrLn else printOrPage . pack) s
-- Command line arguments -- Command line arguments
@ -163,6 +165,7 @@ outputFileOption =
-- with an argument other than "-", using unsafePerformIO. -- with an argument other than "-", using unsafePerformIO.
hasOutputFile :: Bool hasOutputFile :: Bool
hasOutputFile = outputFileOption `notElem` [Nothing, Just "-"] hasOutputFile = outputFileOption `notElem` [Nothing, Just "-"]
-- XXX shouldn't we check that stdout is interactive. instead ?
-- ANSI colour -- ANSI colour