From 07261afb451ed4420d3dbda87613fa1229130276 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 4 Aug 2014 01:14:26 +0100
Subject: [PATCH] Provide `dgit clean'.  Closes:#736527.

---
 debian/changelog | 1 +
 dgit             | 5 +++++
 dgit.1           | 4 ++++
 3 files changed, 10 insertions(+)

diff --git a/debian/changelog b/debian/changelog
index 8695a5f4..051b1fdb 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -30,6 +30,7 @@ dgit (0.22~experimental1) experimental; urgency=low
   * Provide t-archive-process-incoming and t-archive-query subroutines for
     regression test scripts to use.
   * Print better message for unknown operations.
+  * Provide `dgit clean'.  Closes:#736527.
 
   Major new feature, currently stalled awaiting server infrastructure:
   * dgit-repos-server: New program for receiving signed-tag-based
diff --git a/dgit b/dgit
index 2852e134..5f1ef2e5 100755
--- a/dgit
+++ b/dgit
@@ -1948,6 +1948,11 @@ sub clean_tree () {
     }
 }
 
+sub cmd_clean () {
+    badusage "clean takes no additional arguments" if @ARGV;
+    clean_tree();
+}
+
 sub build_prep () {
     badusage "-p is not allowed when building" if defined $package;
     check_not_dirty();
diff --git a/dgit.1 b/dgit.1
index 1a6945a1..5a00dd77 100644
--- a/dgit.1
+++ b/dgit.1
@@ -106,6 +106,10 @@ and
 
 Tagging, signing and actually uploading should be left to dgit push.
 .TP
+.B dgit clean
+Cleans the current working tree (according to the --clean= option in
+force).
+.TP
 .B dgit help
 Print a usage summary.
 .TP
-- 
2.30.2