github-mirror/fish-shell
github-mirror/fish-shell
2
0
Fork 0
mirror of https://github.com/fish-shell/fish-shell.git synced 2025-02-20 23:21:40 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add Perl modules completion.

Browse Source
This commit is contained in:
Konrad Borowski 2013-09-22 20:10:39 +02:00
parent f2a5237802
commit f76a16a727
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
share/completions/perl.fish
View File

@ -1,6 +1,8 @@
begin
set -l unicode 'commandline | sgrep -qe "-[a-zA-Z]*C[a-zA-Z]*\$"'
set -l noopt 'commandline | not sgrep -qe "-[a-zA-Z]*C[a-zA-Z]*\$"'
set -l modules "(find (perl -lE'print for @INC') -name '*.pm' -printf '%P\n' \
| awk '{ gsub(\"/\", \"::\") } !/-/' RS=.pm\n | sort | uniq)"
complete -c perl -s 0 -n $noopt --description 'Specify record separator'
complete -c perl -s a -n $noopt --description 'Turn on autosplit mode'
complete -c perl -s c -n $noopt --description 'Check syntax'
@ -26,8 +28,8 @@ begin
complete -c perl -s i -n $noopt -x --description 'Edit files in-place'
complete -c perl -s I -n $noopt -r --description 'Include path'
complete -c perl -s l -n $noopt --description 'Automatic line ending processing'
complete -c perl -s m -n $noopt -x --description 'Require module'
complete -c perl -s M -n $noopt -x --description 'Use module'
complete -c perl -s m -n $noopt -x --description 'Require module' -a $modules
complete -c perl -s M -n $noopt -x --description 'Use module' -a $modules
complete -c perl -s n -n $noopt --description 'Loop script'
complete -c perl -s p -n $noopt --description 'Loop script, print $_'
complete -c perl -s s -n $noopt --description 'Define custom switches'