jakalx/hcat
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Implement getScreenDimensions

Browse source
This commit is contained in:
Alexander Kobjolke 2023-08-29 00:08:02 +02:00
parent 5c113326e7
commit 48f054df37
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/HCat/Internal.hs
View file

@ -4,6 +4,8 @@ module HCat.Internal where
import Data.Text (Text) import Data.Text (Text)
import Data.Text qualified as T import Data.Text qualified as T
import System.Process qualified as P
-- | @parseArgs@ takes a list of strings and returns a single FilePath if there was exactly one element. -- | @parseArgs@ takes a list of strings and returns a single FilePath if there was exactly one element.
-- --
-- >>> parseArgs ["foo"] -- >>> parseArgs ["foo"]
@ -67,3 +69,8 @@ paginate (ScreenDimensions rows cols) =
type Pages = [Page] type Pages = [Page]
type Page = Text type Page = Text
getScreenDimensions :: IO ScreenDimensions
getScreenDimensions = ScreenDimensions <$> tput "lines" <*> tput "cols"
where
tput cmd = read <$> P.readProcess "tput" [cmd] ""