blob: c122f48eb56ee3e1b49b421068d232591a2d3c76 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!/usr/bin/perl
use Debian::Debhelper::Dh_Lib;
init();
my $elpadir="/usr/share/emacs/site-lisp/elpa";
foreach my $package (@{$dh{DOPACKAGES}}) {
my $tmp=tmpdir($package);
my $file=pkgfile($package,"elpa");
my @files;
if ($file) {
@files=filearray($file, ".");
}
if (($package eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL})
&& @ARGV) {
push @files, @ARGV;
}
if (scalar(@files) == 1) {
$pkg_file=$files[0];
} else {
die("multifile packages unimplimented");
}
doit(qw{emacs -batch -Q -l package},
'--eval',"(add-to-list 'package-directory-list \"$elpadir\")",
qw{-f package-initialize -l dh-elpa.el},
qw{-f dhelpa-batch-install-file}, "$tmp/$elpadir", $pkg_file);
}
|