Display an outline as a nested table: Difference between revisions

Content added Content deleted
Line 522:
. widthLabelledTree
. (paddedTree [] =<< treeDepth)
. head -- Just the first tree of any forest
. treeFromOutline
. forestFromLineIndents
. indentLevelsFromLines
. lines
 
--------------------------- TEST -------------------------
Line 550 ⟶ 553:
 
------------- TREE STRUCTURE FROM NESTED TEXT ------------
 
treeFromOutline :: String -> Tree String
treeFromOutline =
head
. forestFromLineIndents
. indentLevelsFromLines
. lines
 
forestFromLineIndents :: [(Int, String)] -> [Tree String]