diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/efa-m | 20 |
1 files changed, 16 insertions, 4 deletions
@@ -297,17 +297,29 @@ sub display_result { sub show_stopseq { my $trip = $efa->result; - printf( "%s %s → %s\n", - $trip->line, $trip->number // q{}, - $trip->dest_name ); + printf( "%s %s → %s\n", $trip->type, $trip->line // q{}, $trip->dest_name ); + + printf( + "Fahrt %s am %s\n", + $trip->number || $stopseq, + ( $trip->route )[0]->sched_dep->strftime('%d.%m.%Y'), + ); + say q{}; + + my $delay_len = 0; + my $max_delay = max map { abs( $_->delay // 0 ) } $trip->route; + if ($max_delay) { + $delay_len = length( sprintf( '%+d', $max_delay ) ) + 1; + } for my $stop ( $trip->route ) { printf( - "%s → %s %s (%s) %s\n", + "%s → %s%${delay_len}s %s (%s) %s\n", $stop->arr ? $stop->arr->strftime('%H:%M') : q{ }, $stop->dep ? $stop->dep->strftime('%H:%M') : q{ }, + $stop->delay ? sprintf( ' %+d', $stop->delay ) : q{}, $stop->full_name, $stop->niveau, $stop->platform |