Display an outline as a nested table: Difference between revisions

Content added Content deleted
Line 616: Line 616:
( zipWith
( zipWith
(fmap . (,))
(fmap . (,))
(cycle $ colors <> [""])
(cycle colors)
(subForest tree)
(subForest tree)
)
)