create gbp.conf

2 files changed, 20 insertions, 0 deletions

diff --git a/lib/DhMakeELPA/Command/Packaging.pm b/lib/DhMakeELPA/Command/Packaging.pm
index 0e459e3..104a62c 100644
--- a/lib/DhMakeELPA/Command/Packaging.pm
+++ b/lib/DhMakeELPA/Command/Packaging.pm
@@ -8,6 +8,7 @@ use File::Basename qw{basename};
 use File::Grep qw{fgrep};
 use Array::Utils qw{array_minus};
 use DhMakeELPA::MELPA;
+use File::Copy;
 
 use base 'DhMakePerl::Command::Packaging';
 
@@ -216,4 +217,22 @@ sub extract_version {
     }
 }
 
+sub create_gbp_conf {
+    my $self = shift;
+
+    my $file = $self->debian_file('gbp.conf');
+
+    my $gbpname = "gbp.conf";
+    for my $source (
+        catfile( $self->cfg->home_dir, $gbpname ),
+        catfile( $self->cfg->data_dir, $gbpname )
+    ) {
+        if ( -e $source ) {
+            print "Using gbp-conf: $source\n" if $self->cfg->verbose;
+            copy($source, $file)
+            last;
+        };
+    }
+}
+
 1;
diff --git a/lib/DhMakeELPA/Command/make.pm b/lib/DhMakeELPA/Command/make.pm
index 18651e4..dd9999f 100644
--- a/lib/DhMakeELPA/Command/make.pm
+++ b/lib/DhMakeELPA/Command/make.pm
@@ -32,6 +32,7 @@ sub execute {
     $self->create_rules();
     $self->create_control();
     $self->create_copyright();
+    $self->create_gbp_conf() if $self->cfg->pkg_emacsen;
 
     $self->output_caveat();
 }