mirror of
https://github.com/Gator96100/ProxSpace.git
synced 2025-07-29 19:18:36 -07:00
37 lines
1.2 KiB
Bash
37 lines
1.2 KiB
Bash
# bash completion for cpan2dist -*- shell-script -*-
|
|
|
|
_cpan2dist()
|
|
{
|
|
local cur prev words cword
|
|
_init_completion || return
|
|
|
|
case $prev in
|
|
--format)
|
|
# should remove ":" from COMP_WORDBREAKS, but doesn't work (?)
|
|
COMPREPLY=( $(compgen -W '$(perl -MCPANPLUS::Dist -e \
|
|
"print map { \"\$_\n\" } CPANPLUS::Dist->dist_types")' \
|
|
-- "$cur") )
|
|
return
|
|
;;
|
|
--banlist|--ignorelist|--modulelist|--logfile)
|
|
_filedir
|
|
return
|
|
;;
|
|
esac
|
|
|
|
if [[ "$cur" == -* ]]; then
|
|
COMPREPLY=( $(compgen -W '$(_parse_help "$1")' -- "$cur") )
|
|
else
|
|
local cpandirs=( "$HOME/.cpanplus/" "$HOME/.cpan/source/modules/" )
|
|
local packagelist
|
|
for dir in "${cpandirs[@]}"; do
|
|
[[ -d "$dir" && -r "$dir/02packages.details.txt.gz" ]] && \
|
|
packagelist="$dir/02packages.details.txt.gz"
|
|
done
|
|
[[ $packagelist ]] && COMPREPLY=( $(zgrep "^${cur//-/::}" \
|
|
$packagelist 2>/dev/null | awk '{print $1}' | command sed -e 's/::/-/g') )
|
|
fi
|
|
} &&
|
|
complete -F _cpan2dist -o default cpan2dist
|
|
|
|
# ex: filetype=sh
|