package timeline;
use strict;
use warnings;
use Exporter 'import';

our @EXPORT = qw( content_timeline );

use template_helpers 'to_template';
use icons 'get_icon';
use postbox 'generate_postbox';
use status 'generate_status';
use navigation 'generate_navigation';

sub content_timeline
{
    my ($ssn, $data, $statuses, $title, $show_post_box, $fake_timeline) = @_;

    my %vars = (
        prefix => '',
        ssn => $ssn,
        data => $data,
        statuses => $statuses,
        title => $title,
        fake_timeline => $fake_timeline,
        show_post_box => $show_post_box,
        postbox => \&generate_postbox,
        create_status => sub { generate_status($ssn, $data, shift); },
        # Don't autovivify statuses
        nav => sub { generate_navigation($ssn, $data, $statuses->[0]->{id}, $statuses->[-1]->{id}) },
        );

    to_template(\%vars, \$data->{'timeline.tt'});
}