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

more string utils

Browse Source
This commit is contained in:
Simon Michael 2008-12-06 07:15:19 +00:00
parent 4ea30b7411
commit 063dce2642
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Ledger/Utils.hs
View File

@ -114,6 +114,18 @@ padright :: Int -> String -> String
padright w "" = concat $ replicate w " " padright w "" = concat $ replicate w " "
padright w s = intercalate "\n" $ map (printf (printf "%%-%ds" w)) $ lines s padright w s = intercalate "\n" $ map (printf (printf "%%-%ds" w)) $ lines s
-- | Clip a multi-line string to the specified width and height from the top left.
cliptopleft :: Int -> Int -> String -> String
cliptopleft w h s = intercalate "\n" $ take h $ map (take w) $ lines s
-- | Clip and pad a multi-line string to fill the specified width and height.
fitto :: Int -> Int -> String -> String
fitto w h s = intercalate "\n" $ take h $ rows ++ repeat blankline
where
rows = map (fit w) $ lines s
fit w s = take w $ s ++ repeat ' '
blankline = replicate w ' '
-- math -- math
difforzero :: (Num a, Ord a) => a -> a -> a difforzero :: (Num a, Ord a) => a -> a -> a