diff --git a/bin/efa b/bin/efa index 3f512a229fc43c65a25fb81d21cb871128cdb53e..db89e542b512c61ed4211db859b51b13a6146e81 100755 --- a/bin/efa +++ b/bin/efa @@ -21,6 +21,7 @@ my $cons; my (@from, @to, @via); my ($time, $time_depart, $time_arrive); my $date; +my $maxinter; my $restrict; my $prefer; my $proximity; @@ -120,6 +121,7 @@ GetOptions( 'from=s{2}' => \@from, 'help' => sub {exec('perldoc', $0)}, 'ignore-info=s' => \$ignore_info, + 'max-change=i' => \$maxinter, 'post=s' => \%post, 'prefer=s' => \$prefer, 'proximity' => \$proximity, @@ -163,6 +165,10 @@ if ($date) { @post{'itdDateDay','itdDateMonth','itdDateYear'} = split(/\./, $date); } +if (defined($maxinter)) { + $post{maxChanges} = $maxinter; +} + if ($prefer) { given($prefer) { when('speed') { $post{routeType} = 'LEASTTIME' } @@ -286,6 +292,10 @@ Journey end time (overrides --time/--depart) Journey date +=item B<--max-change> I + +Print connections with at most I interchanges + =item B<--prefer> I Prefer connections of I: diff --git a/provides/zsh/completions/_efa b/provides/zsh/completions/_efa index da1ce0be359127708fce9f8f7f954b690c81db47..92f3bad6b6842c695471fc28d9e3d7f37fa20c19 100644 --- a/provides/zsh/completions/_efa +++ b/provides/zsh/completions/_efa @@ -10,6 +10,7 @@ arguments=( '(--depart --time)--arrive:time' '(--arrive --time)--depart:time' '--date:date' + '--max-change:number' '--prefer:type:(speed nowait nowalk)' '--proximity' '--restrict:type:(local ic ice)'