jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-12-02 01:45:50 +03:00
Code Issues Projects Releases Wiki Activity

Table: naming improvement

Browse Source
This commit is contained in:
Jonathan Daugherty 2021-01-31 20:56:35 -08:00
parent f91c56976d
commit e84f140a82
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Brick/Widgets/Table.hs
View File

@ -173,7 +173,7 @@ renderTable t =
byColumn = transpose cellResults
toW = Widget Fixed Fixed . return
totalHeight = sum rowHeights
maybeAlign align width w =
applyColAlignment align width w =
Widget Fixed Fixed $ do
result <- render w
case align of
@ -189,7 +189,7 @@ renderTable t =
AlignBottom -> vLimit rHeight $ padTop Max $ toW result
mkColumn (hAlign, width, colCells) = do
let paddedCells = flip map (zip3 allRowAligns rowHeights colCells) $ \(vAlign, rHeight, cell) ->
maybeAlign hAlign width $
applyColAlignment hAlign width $
applyRowAlignment rHeight vAlign cell
maybeRowBorders = if drawRowBorders t
then intersperse (hLimit width hBorder)