diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/efa-m | 11 |
1 files changed, 7 insertions, 4 deletions
@@ -345,10 +345,12 @@ sub show_stopseq { ); say q{}; - my $delay_len = 0; - my $max_delay = max map { abs( $_->delay // 0 ) } $trip->route; + my $delay_len = 0; + my $inner_delay_len = 0; + my $max_delay = max map { abs( $_->delay // 0 ) } $trip->route; if ($max_delay) { - $delay_len = length( sprintf( '%+d', $max_delay ) ) + 1; + $inner_delay_len = length($max_delay) + 1; + $delay_len = length( sprintf( '(%+d)', $max_delay ) ) + 1; } for my $stop ( $trip->route ) { @@ -358,7 +360,8 @@ sub show_stopseq { : q{ }, $stop->dep ? $stop->dep->strftime('%H:%M') : q{ }, - $stop->delay ? sprintf( ' %+d', $stop->delay ) : q{}, + $stop->delay ? sprintf( " (%+${inner_delay_len}d)", $stop->delay ) + : q{}, $stop->full_name, $stop->niveau, $stop->platform |