zsh: add pacclean function

[dotfiles.git] / zsh / aliases / pacman.zsh

diff --git a/zsh/aliases/pacman.zsh b/zsh/aliases/pacman.zsh
index d44641b802718bb25feb3c8e122b68f2baeec6ab..c3a71bb48fc4df9687f9a80ba58fa06ff1967886 100644 (file)
--- a/zsh/aliases/pacman.zsh
+++ b/zsh/aliases/pacman.zsh
@@ -24,7 +24,31 @@ alias pacmir='sudo pacman -Syy'                # Force refresh of all package li
 
 # https://bbs.archlinux.org/viewtopic.php?id=93683
 paclist() {
-  pacman -Qei | awk 'BEGIN {FS=": "}/^Name/{printf("\033[1;36m%s\033[0m ",$2)}/^Description/{print $2}'
+  pacman -Qei "$@" | awk 'BEGIN {FS=": "}/^Name/{printf("\033[1;36m%s\033[0m ",$2)}/^Description/{print $2}'
+}
+
+pacclean() {
+    local _pkgs=( $(pacman -Qeq) )
+    for pkg in ${_pkgs[@]}; do
+        # the file has been removed by a previous clean
+        pacman -Qq $pkg 2>&1 1>/dev/null || continue
+
+        pacman -Qi $pkg | awk 'BEGIN {FS=": "}/^Name/{printf("\n\033[1;36m%s\033[0m ",$2)}/^Description/{print $2}/^(Required|Optional For)/'
+
+        local edrq=''
+        while true; do
+            echo -n "Explicit, Dependency, Remove, Quit? [Edrq] "
+            read -sk edrq
+            echo
+            case $edrq in
+                [Qq]) return ;;
+                $'\n') ;&
+                [Ee]) break ;;
+                [Rr]) sudo pacman -Rnscu $pkg; break ;;
+                [Dd]) sudo pacman -D --asdeps $pkg; break ;;
+            esac
+        done
+    done
 }
 # [l]ist [o]orphans
 alias paclo='pacman -Qdt'
@@ -45,6 +69,11 @@ paci() {
 compdef '_pacman_completions_all_packages' paci=pacman
 
 pacstat() {
+  printf "Packages:\n"
+  printf "%7d native\n"  $(LC_ALL=C pacman -Qn | wc -l)
+  printf "%7d foreign\n" $(LC_ALL=C pacman -Qm | wc -l)
+  printf "%7d total\n"   $(LC_ALL=C pacman -Q  | wc -l)
+  printf "Repos:\n"
   LC_ALL=C pacman -Sl | sed -n '/\[installed\]/s/^\([^ ]*\).*/\1/p' | uniq -c
 }