App-ShellCompleter-emacs
view release on metacpan or search on metacpan
return complete_file(word => $word);
} elsif ($opt eq '--insert') {
return complete_file(word => $word);
} elsif ($opt eq '--directory' || $opt eq '-L') {
return complete_user(word => $word, filter=>'d');
} elsif ($opt eq '--color') {
return complete_array_elem(word => $word, array=>[qw/auto never always ansi8/]);
}
# XXX funcall/f -> list of Lisp functions
# XXX name -> list of window names
# XXX font/fn -> list of font names
# XXX fg/bg/bd/... -> list of colors
# XXX display/d -> list of X display names (:0.0 only as default?)
}
return [];
},
'file|find-file|visit=s' => $noop,
'no-init-file|q' => $noop,
'no-site-file' => $noop,
'no-desktop' => $noop,
'quick|Q' => $noop,
'batch' => $noop,
'script=s' => $noop,
'insert=s' => $noop,
'kill' => $noop,
'directory|L=s' => $noop,
'name=s' => $noop,
'title|T=s' => $noop,
'reverse-video|r' => $noop, '-rv' => $noop,
'font=s' => $noop, '-fn=s' => $noop,
'xrm=s' => $noop,
'color=s' => $noop,
'border-width=i' => $noop, '-bw=i' => $noop,
'internal-border=i' => $noop, '-ib=i' => $noop,
'geometry|g=s' => $noop,
'line-spacing=i' => $noop, '-lsp=i' => $noop,
'vertical-scroll-bars' => $noop, '-vsb' => $noop,
'fullheight' => $noop, '-fh' => $noop,
'fullwidth' => $noop, '-fw' => $noop,
'maximized' => $noop, '-mm' => $noop,
( run in 2.174 seconds using v1.01-cache-2.11-cpan-ceb78f64989 )