Display an outline as a nested table: Difference between revisions
Content deleted Content added
Line 522: | Line 522: | ||
. widthLabelledTree |
. widthLabelledTree |
||
. (paddedTree [] =<< treeDepth) |
. (paddedTree [] =<< treeDepth) |
||
. head -- Just the first tree of any forest |
|||
. treeFromOutline |
|||
⚫ | |||
⚫ | |||
⚫ | |||
--------------------------- TEST ------------------------- |
--------------------------- TEST ------------------------- |
||
Line 550: | Line 553: | ||
------------- TREE STRUCTURE FROM NESTED TEXT ------------ |
------------- TREE STRUCTURE FROM NESTED TEXT ------------ |
||
treeFromOutline :: String -> Tree String |
|||
treeFromOutline = |
|||
head |
|||
⚫ | |||
⚫ | |||
⚫ | |||
forestFromLineIndents :: [(Int, String)] -> [Tree String] |
forestFromLineIndents :: [(Int, String)] -> [Tree String] |