From fabeca432bfe4cdc427caec1aa57a91b07b63f3c Mon Sep 17 00:00:00 2001
From: Nathan Wagner <nw@hydaspes.if.org>
Date: Sat, 8 Dec 2018 22:51:57 +0000
Subject: [PATCH] add purge subcommand to repo

---
 zpm-repo | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/zpm-repo b/zpm-repo
index 050e5ae..0477952 100755
--- a/zpm-repo
+++ b/zpm-repo
@@ -157,6 +157,27 @@ download() {
 	done
 }
 
+purge() {
+	repo=$1
+	shift
+	url=$(select "$repo" url)
+	base=${url%/*}
+	for package in "$@"; do
+		pkgid=$(zpm findpkg -f $repodir/$repo.repo $package)
+		if [ -z "$pkgid" ]; then
+			warn "no package found for $package"
+		else
+			mkdir -p "$repodir/$repo"
+			dest="$repodir/$repo/$pkgid.zpm"
+
+			if [ -f "$dest" ]; then
+				rm $dest
+			fi
+			zpm rmpackage -f $repodir/$repo.repo $pkgid
+		fi
+	done
+}
+
 check_for_repo() {
 	rn=$(select "$1" name)
 	if [ -z "$rn" ]; then
@@ -210,6 +231,10 @@ case $action in
 		shift
 		zpm contents -f $repodir/$repo.repo "$@"
 		;;
+	purge)
+		purge "$@"
+		;;
+
 	*)
 		echo unknown action
 		exit 1
-- 
2.40.0