efa: Added --proximity ("Berücksichtigung von Nachbarhaltestellen bei Start und Ziel")

2 files changed, 11 insertions, 0 deletions

diff --git a/bin/efa b/bin/efa
index ed902df..3f512a2 100755
--- a/bin/efa
+++ b/bin/efa
@@ -23,6 +23,7 @@ my ($time, $time_depart, $time_arrive);
 my $date;
 my $restrict;
 my $prefer;
+my $proximity;
 my $debug = 0;
 my $ignore_info = 'Fahrradmitnahme';
 my ($i, $j, $con, $part);
@@ -121,6 +122,7 @@ GetOptions(
 	'ignore-info=s' => \$ignore_info,
 	'post=s'    => \%post,
 	'prefer=s'  => \$prefer,
+	'proximity' => \$proximity,
 	'restrict=s' => \$restrict,
 	'time=s'    => \$time,
 	'to=s{2}'   => \@to,
@@ -172,6 +174,10 @@ if ($prefer) {
 	}
 }
 
+if ($proximity) {
+	$post{useProxFootSearch} = 1;
+}
+
 if ($restrict) {
 	given ($restrict) {
 		when('local') { $post{lineRestriction} = 403 }
@@ -300,6 +306,10 @@ Prefer connections with less walking (at interchanges)
 
 =back
 
+=item B<--proximity>
+
+Take stops close to the stop/start into account and possibly use them instead
+
 =item B<--restrict> I<type>
 
 Only accept connections using trains of type I<type>, where I<type> may be:
diff --git a/provides/zsh/completions/_efa b/provides/zsh/completions/_efa
index b169ace..da1ce0b 100644
--- a/provides/zsh/completions/_efa
+++ b/provides/zsh/completions/_efa
@@ -11,6 +11,7 @@ arguments=(
 	'(--arrive --time)--depart:time'
 	'--date:date'
 	'--prefer:type:(speed nowait nowalk)'
+	'--proximity'
 	'--restrict:type:(local ic ice)'
 	'--ignore-info:regex'
 	'*--post:POST key=value'