summaryrefslogtreecommitdiff
path: root/bin/efa-m
diff options
context:
space:
mode:
Diffstat (limited to 'bin/efa-m')
-rwxr-xr-xbin/efa-m27
1 files changed, 17 insertions, 10 deletions
diff --git a/bin/efa-m b/bin/efa-m
index 2dd4b09..360ea2d 100755
--- a/bin/efa-m
+++ b/bin/efa-m
@@ -215,40 +215,47 @@ sub format_route {
}
my $occupancy
= $stop->occupancy ? format_occupancy( $stop->occupancy ) : q{ };
+ my $delay = q{ };
+ if ( $stop->delay ) {
+ $delay = sprintf( '(%+3d)', $stop->delay );
+ }
if ( defined $stop->arr and defined $stop->dep ) {
if ( $stop->arr->epoch == $stop->dep->epoch ) {
$output .= sprintf(
- " %5s %s %40s %s\n",
+ " %5s %s %s %35s %s\n",
$stop->arr->strftime('%H:%M'),
- $occupancy, $stop->full_name, $stop->platform,
+ $delay, $occupancy, $stop->full_name, $stop->platform,
);
}
else {
$output .= sprintf(
- "%5s → %5s %s %40s %s\n",
+ "%5s → %5s %s %s %35s %s\n",
$stop->arr->strftime('%H:%M'),
$stop->dep->strftime('%H:%M'),
- $occupancy, $stop->full_name, $stop->platform,
+ $delay,
+ $occupancy,
+ $stop->full_name,
+ $stop->platform,
);
}
}
elsif ( defined $stop->arr ) {
$output .= sprintf(
- "%5s %s %40s %s\n",
+ "%5s %s %s %35s %s\n",
$stop->arr->strftime('%H:%M'),
- $occupancy, $stop->full_name, $stop->platform,
+ $delay, $occupancy, $stop->full_name, $stop->platform,
);
}
elsif ( defined $stop->dep ) {
$output .= sprintf(
- " %5s %s %40s %s\n",
+ " %5s %s %s %35s %s\n",
$stop->dep->strftime('%H:%M'),
- $occupancy, $stop->full_name, $stop->platform,
+ $delay, $occupancy, $stop->full_name, $stop->platform,
);
}
elsif ( $stop->full_name ) {
- $output .= sprintf( " %s %40s %s\n",
- $occupancy, $stop->full_name, $stop->platform, );
+ $output .= sprintf( " %s %s %35s %s\n",
+ $delay, $occupancy, $stop->full_name, $stop->platform, );
}
else {
$output .= "?\n";