123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 |
- # This file is in the public domain.
- _arch_compgen() {
- local i r
- COMPREPLY=($(compgen -W '$*' -- "$cur"))
- for ((i=1; i < ${#COMP_WORDS[@]}-1; i++)); do
- for r in ${!COMPREPLY[@]}; do
- if [[ ${COMP_WORDS[i]} = ${COMPREPLY[r]} ]]; then
- unset 'COMPREPLY[r]'; break
- fi
- done
- done
- }
- _arch_ptr2comp() {
- local list= x y
- for x; do
- for y in '0 --' '1 -'; do
- eval 'set -- ${'$x'[${y% *}]}'
- list+=\ ${@/#/${y#* }}
- done
- done
- _arch_compgen $list
- }
- _arch_incomp() {
- local r="\s-(-${1#* }\s|\w*${1% *})"; [[ $COMP_LINE =~ $r ]]
- }
- _pacman_keyids() {
- \pacman-key --list-keys 2>/dev/null | awk '
- $1 == "pub" {
- # key id
- split($2, a, "/"); print a[2]
- }
- $1 == "uid" {
- # email
- if (match($NF, /<[^>]+>/))
- print substr($NF, RSTART + 1, RLENGTH - 2)
- }'
- }
- _pacman_pkg() {
- _arch_compgen "$(
- if [[ $2 ]]; then
- \pacman -$1 2>/dev/null | \cut -d' ' -f1 | \sort -u
- else
- \pacman -$1 2>/dev/null
- fi
- )"
- }
- _pacman() {
- local common core cur database prev query remove sync upgrade o
- COMPREPLY=()
- _get_comp_words_by_ref cur prev
- database=('asdeps asexplicit')
- files=('list machinereadable owns search refresh regex' 'l o s x y')
- query=('changelog check deps explicit file foreign groups info list owns
- search unrequired upgrades' 'c e g i k l m o p s t u')
- remove=('cascade dbonly nodeps assume-installed nosave print recursive unneeded' 'c n p s u')
- sync=('asdeps asexplicit clean dbonly downloadonly force groups ignore ignoregroup
- info list needed nodeps assume-installed print refresh recursive search sysupgrade'
- 'c g i l p s u w y')
- upgrade=('asdeps asexplicit force needed nodeps assume-installed print recursive' 'p')
- common=('arch cachedir color config confirm dbpath debug gpgdir help hookdir logfile
- noconfirm noprogressbar noscriptlet quiet root verbose' 'b d h q r v')
- core=('database files help query remove sync upgrade version' 'D F Q R S U V h')
- for o in 'D database' 'F files' 'Q query' 'R remove' 'S sync' 'U upgrade'; do
- _arch_incomp "$o" && break
- done
- if [[ $? != 0 ]]; then
- _arch_ptr2comp core
- elif [[ ! $prev =~ ^-\w*[Vbhr] &&
- ! $prev = --@(cachedir|color|config|dbpath|help|hookdir|gpgdir|logfile|root|version) ]]
- then
- [[ $cur = -* ]] && _arch_ptr2comp ${o#* } common ||
- case ${o% *} in
- D|R)
- _pacman_pkg Qq;;
- F)
- _arch_incomp 'l list' && _pacman_pkg Slq;
- ;;
- Q)
- { _arch_incomp 'g groups' && _pacman_pkg Qg sort; } ||
- { _arch_incomp 'p file' && _pacman_file; } ||
- _arch_incomp 'o owns' || _arch_incomp 'u upgrades' ||
- _pacman_pkg Qq;;
- S)
- { _arch_incomp 'g groups' && _pacman_pkg Sg; } ||
- { _arch_incomp 'l list' && _pacman_pkg Sl sort; } ||
- _pacman_pkg Slq;;
- U)
- _pacman_file;;
- esac
- fi
- true
- }
- _pacman_file() {
- compopt -o filenames; _filedir 'pkg.tar*'
- }
- complete -F _pacman -o default yay
- # ex:et ts=2 sw=2 ft=sh
|