From d6dd3eca49952ab6db50cf16184e81be63c9a634 Mon Sep 17 00:00:00 2001
From: Robin Ramael <robin.ramael@gmail.com>
Date: Mon, 10 Jan 2011 14:19:11 +0100
Subject: [PATCH] Added an option to remove file afterwards.

---
 lib/functions.zsh | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lib/functions.zsh b/lib/functions.zsh
index 4246f8811..0d03e1df2 100644
--- a/lib/functions.zsh
+++ b/lib/functions.zsh
@@ -39,6 +39,12 @@ function take() {
 }
 
 function extract() {
+    unset REMOVE_ARCHIVE
+    
+    if test "$1" = "-r"; then
+        REMOVE=1
+        shift
+    fi
   if [[ -f $1 ]]; then
     case $1 in
       *.tar.bz2) tar xvjf $1;;
@@ -56,6 +62,12 @@ function extract() {
       *.7z) 7z x $1;;
       *) echo "'$1' cannot be extracted via >extract<";;
     esac
+
+    if [[ $REMOVE_ARCHIVE -eq 1 ]]; then
+        echo removing "$1";
+        /bin/rm "$1";
+    fi
+
   else
     echo "'$1' is not a valid file"
   fi