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

"Uncomment the following code if you have not installed
the package for working with fossil"
"Gofer new 
    smalltalkhubUser: 'Offray' project: 'Grafoscopio';
    package: 'Grafoscopio-ExternalTools';
    load."

"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
	connectTo: #parents.
view layout tree.
view.