efa: Added --max-change (maximum number of interchanges)

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<number>
+
+Print connections with at most I<number> interchanges
+
 =item B<--prefer> I<type>
 
 Prefer connections of I<type>:

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)'