initial support for ELPA_NAME

This should allow non elpa-$foo binary packages. It needs to be documented.

1 files changed, 8 insertions, 3 deletions

diff --git a/dh_elpa.in b/dh_elpa.in
index 69873d1..9ff665e 100755
--- a/dh_elpa.in
+++ b/dh_elpa.in
@@ -182,9 +182,14 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
   my $tmp=tmpdir($package);
   my $file=pkgfile($package,"elpa");
 
-  my $elpapkg=$package;
-  # TODO do this more sanely or at least allow an override
-  $elpapkg =~ s/^elpa-//;
+  my $varname="ELPA_NAME_${package}";
+  my $elpapkg = $ENV{$varname} || $ENV{ELPA_NAME};
+  if (!defined($elpapkg)) {
+    verbose_print("Guessing elpa package name from package name $package");
+
+    $elpapkg = $package;
+    $elpapkg =~ s/^elpa-//;
+  }
   verbose_print("Using elpa package name $elpapkg");
 
   my @files;