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

lib: Tabular.AsciiWide.renderRs: simplify using flattenHeader

Browse Source
This commit is contained in:
Henning Thielemann 2024-09-18 23:45:15 +02:00 committed by Simon Michael
parent b74815287d
commit 441f46fc06
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hledger-lib/Text/Tabular/AsciiWide.hs
View File

@ -27,7 +27,7 @@ module Text.Tabular.AsciiWide
import Data.Bifunctor (bimap) import Data.Bifunctor (bimap)
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
import Data.Default (Default(..)) import Data.Default (Default(..))
import Data.List (intercalate, intersperse, transpose) import Data.List (intersperse, transpose)
import Data.Semigroup (stimesMonoid) import Data.Semigroup (stimesMonoid)
import Data.Text (Text) import Data.Text (Text)
import qualified Data.Text as T import qualified Data.Text as T
@ -130,9 +130,9 @@ renderTableByRowsB topts@TableOpts{prettyTable=pretty, tableBorders=borders} fc
-- maximum width for each column -- maximum width for each column
sizes = map (fromMaybe 0 . maximumMay . map cellWidth) $ transpose cells2 sizes = map (fromMaybe 0 . maximumMay . map cellWidth) $ transpose cells2
renderRs (Header s) = [s] renderRs =
renderRs (Group p hs) = intercalate sep $ map renderRs hs concatMap (either (renderHLine VM borders pretty sizes ch2) (:[])) .
where sep = renderHLine VM borders pretty sizes ch2 p flattenHeader
-- borders and bars -- borders and bars
addBorders xs = if borders then bar VT SingleLine : xs ++ [bar VB SingleLine] else xs addBorders xs = if borders then bar VT SingleLine : xs ++ [bar VB SingleLine] else xs