+
+my @slide_titles;
+if ( -e "$media_dir/presentation.txt" ) {
+ my $slides = read_file "$media_dir/presentation.txt";
+ my @s = ( map { [ split(/[\n\r]+/, $_) ] } split(/\f/, $slides) );
+
+ my $slide_line = 0;
+ $slide_line++ if $s[1]->[$slide_line] eq $s[2]->[$slide_line]; # skip header
+
+ foreach my $s ( @s ) {
+ push @slide_titles, $s->[$slide_line];
+ }
+
+ warn "# slides titles ", dump(@slide_titles);
+}
+
+sub annotate_subtitles {
+ return unless @slide_titles;
+ foreach my $s ( @subtitles ) {
+ if ( $s->[2] =~ m{^\[(\d+)\]$} ) {
+ if ( my $title = $slide_titles[ $1 - 1 ] ) {
+ $s->[2] = "[$1] " . substr($title,0,40);
+ warn "annotated [$1] $title\n";
+ }
+ }
+ }
+}
+
+