1 files changed, 105 insertions, 0 deletions
diff --git a/bin/gc b/bin/gc
new file mode 100755
index 0000000..ec6a8f1
--- /dev/null
+++ b/bin/gc
@@ -0,0 +1,105 @@
+#!/bin/sh
+set -eu
+
+usage() {
+	cat <<-'EOF'
+		Usage:
+		  gc
+		  gc -h
+	EOF
+}
+
+help() {
+	cat <<-'EOF'
+
+		Options:
+		  -h, --help    show this message
+	EOF
+}
+
+for flag in "$@"; do
+	case "$flag" in
+		--)
+			break
+			;;
+		--help)
+			usage
+			help
+			exit
+			;;
+		*)
+			;;
+	esac
+done
+
+while getopts 'h' flag; do
+	case "$flag" in
+		h)
+			usage
+			help
+			exit
+			;;
+		*)
+			usage >&2
+			exit 2
+			;;
+	esac
+done
+shift $((OPTIND - 1))
+
+
+disk() {
+	df -h . |
+		awk 'NR == 2 { printf "%s - %s/%s\n", $4, $3, $2 }'
+}
+
+
+gc_guix() {
+	pass show velhinho/0-andreh-password | sudo -S guix system delete-generations
+	guix home delete-generations
+	guix gc -d
+}
+
+gc_nohup() {
+	find ~/ -type f -name 'nohup.out' -exec rm -vf "{}" \;
+}
+
+gc_trash() {
+	yes | trash-empty
+}
+
+gc_tmpdir() {
+	find /tmp/ -type f -atime +10 -exec rm -vf "{}" \; ||:
+}
+
+gc_docker() {
+	if command -v docker; then
+		yes | docker system prune -a
+		docker rmi  "$(docker images -a -q)"              ||:
+		docker rm   "$(docker ps -a -f status=exited -q)" ||:
+		docker stop "$(docker ps -a -q)"                  ||:
+		docker rm   "$(docker ps -a -q)"                  ||:
+		yes | docker volume prune
+		yes | docker container prune
+	fi
+}
+
+gc_email() {
+	notmuch search --output=files --exclude=false tag:killed |
+		xargs -I{} rm -vf "{}"
+}
+
+
+BEFORE="$(disk)"
+gc_guix
+gc_nohup
+gc_trash
+gc_tmpdir
+gc_docker
+gc_email
+wait
+AFTER="$(disk)"
+
+printf 'Disk space:\n'
+printf '  before: %s\n' "$BEFORE"
+printf '  after:  %s\n' "$AFTER"