369980bf93
Also move indentation settings to end of files and expand *Emacs ones to local variables block to avoid overflowing 80 char lines.
51 lines
1.4 KiB
Bash
51 lines
1.4 KiB
Bash
# bash completion for cpan2dist
|
|
|
|
have cpan2dist &&
|
|
_cpan2dist()
|
|
{
|
|
local cur prev packagelist cpandirs
|
|
|
|
COMPREPLY=()
|
|
cur=`_get_cword`
|
|
prev=${COMP_WORDS[COMP_CWORD-1]}
|
|
|
|
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 0
|
|
;;
|
|
--@(banlist|ignorelist|modulelist|logfile))
|
|
_filedir
|
|
return 0
|
|
;;
|
|
esac
|
|
|
|
if [[ "$cur" == -* ]]; then
|
|
COMPREPLY=( $( compgen -W '--help --skiptest --force --install \
|
|
--verbose --keepsource --makefile --buildprereq \
|
|
--archive --flushcache --defaults --edit-metafile \
|
|
--format --ban --banlist --ignore --ignorelist \
|
|
--modulelist --logfile --timeout --set-config \
|
|
--set-program --dist-opts --default-banlist \
|
|
--default-ignorelist' -- $cur ) )
|
|
else
|
|
cpandirs=( "$HOME/.cpanplus/" "$HOME/.cpan/source/modules/" )
|
|
for dir in ${cpandirs[@]}; do
|
|
[ -d "$dir" -a -r "$dir/02packages.details.txt.gz" ] && packagelist="$dir/02packages.details.txt.gz"
|
|
done
|
|
COMPREPLY=( $( zgrep "^${cur//-/::}" \
|
|
$packagelist 2>/dev/null \
|
|
| awk '{print $1}' | sed -e 's/::/-/g' ) )
|
|
fi
|
|
} &&
|
|
complete -F _cpan2dist $default cpan2dist
|
|
|
|
# Local variables:
|
|
# mode: shell-script
|
|
# sh-basic-offset: 8
|
|
# sh-indent-comment: t
|
|
# indent-tabs-mode: t
|
|
# End:
|
|
# ex: ts=8 sw=8 noet filetype=sh
|