blob: 23a0436954b26a416cdf657e09fca4f32784b846 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
#!/bin/sh
set -eu
usage() {
cat <<-'EOF'
Usage:
gc
gc -h
EOF
}
help() {
cat <<-'EOF'
Options:
-h, --help show this message
Free disk space system-wide.
Examples:
Just run it:
$ gc
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"
|
