"Adapted from: https://vimeo.com/116886609"
| view timeline |

"Extracting data"
timeline := FossilTimeline new.
timeline importFromUrl:  'http://mutabit.com/deltas/repos.fossil/piamed/libro/doc/tip/Libro/timeline-buscador.json'.

"Visualization"
view := RTMondrian new.
view nodes: timeline commits.
view edges
	connectFrom: [#parents first].
view layout tree.
view.
"(timeline commits at: 1) parents first"