Only show pager when terminal is too small

haskell · Aug 12, 2024 · 42ddd48 · 42ddd48
1 parent cebd0c8
commit 42ddd48
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/ghcup.cabal b/ghcup.cabal
@@ -328,6 +328,7 @@ library ghcup-optparse
 
   else
     build-depends:  unix ^>=2.7 || ^>=2.8
+                  , terminal-size ^>=0.3.3
 
 library ghcup-tui
   import:             app-common-depends

diff --git a/lib-opt/GHCup/OptParse/List.hs b/lib-opt/GHCup/OptParse/List.hs
@@ -38,6 +38,7 @@ import           System.Console.Pretty   hiding ( color )
 
 import qualified Data.Text                     as T
 import qualified System.Console.Pretty         as Pretty
+import qualified System.Console.Terminal.Size  as TP
 import Control.Exception.Safe (MonadMask)
 import GHCup.Types.Optics
 import GHCup.Prelude.Logger (logDebug)
@@ -200,8 +201,11 @@ printListResult no_color (PagerConfig pList pCmd) raw lr = do
       padded  = fmap (\xs -> zipWith padTo xs lengths) rows
 
   let text = fmap unwords (if raw then rows else padded)
+  tp <- liftIO TP.size
   if | pList
      , not raw
+     , Just (TP.Window h _) <- tp
+     , length text > h - 2
      , Just cmd <- pCmd -> do
          r <- liftIO $ sendToPager cmd (T.pack <$> text)
          case r of