suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more like zsh

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-04-16 17:23:32 -04:00
parent c4367f536c
commit 9eaa749f5e
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/meta/contrib/completion/racket-completion.bash
View File

@ -9,6 +9,16 @@
# #
# Change $PLTHOME to whatever references your Racket installation # Change $PLTHOME to whatever references your Racket installation
_smart_filedir()
{
COMPREPLY=()
_filedir '@(rkt|ss|scm|scrbl)'
if [[ ${#COMPREPLY[@]} -eq 0 ]]; then
_filedir
fi
return 0
}
_racket() _racket()
{ {
local cur prev singleopts doubleopts local cur prev singleopts doubleopts
@ -24,7 +34,7 @@ _racket()
# if '--' is already given, complete all kind of files, but no options # if '--' is already given, complete all kind of files, but no options
for (( i=0; i < ${#COMP_WORDS[@]}-1; i++ )); do for (( i=0; i < ${#COMP_WORDS[@]}-1; i++ )); do
if [[ ${COMP_WORDS[i]} == -- ]]; then if [[ ${COMP_WORDS[i]} == -- ]]; then
_filedir _smart_filedir
return 0 return 0
fi fi
done done
@ -57,7 +67,7 @@ _racket()
COMPREPLY=( $(compgen -W "${warnlevels}" -- ${cur}) ) COMPREPLY=( $(compgen -W "${warnlevels}" -- ${cur}) )
;; ;;
*) *)
_filedir #'@(rkt|ss|scm|scrbl)' _smart_filedir
;; ;;
esac esac
;; ;;