Completion/User/_tilde_files


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

#autoload

# Complete files and expand tilde expansions in it.

if (( $argv[(I)-W*] )); then
  _files "$@"
  return
fi

case "$PREFIX" in
\~/*)
  IPREFIX="${IPREFIX}${HOME}/"
  PREFIX="${PREFIX[3,-1]}"
  _files "$@" -W "${HOME}"
  ;;
\~*/*)
  local user="${PREFIX[2,-1]%%/*}"

  if (( $+userdirs[$user] )); then
    user="$userdirs[$user]"
  elif (( $+nameddirs[$user] )); then
    user="$nameddirs[$user]"
  else
    _message "unknown user \`$user'"
    return 1
  fi
  IPREFIX="${IPREFIX}${user%/}/"
  PREFIX="${PREFIX#*/}"
  _files "$@" -W "$user"
  ;;
\~*)
  compset -P '?'
  _users "$@"
  ;;
*)
  _files "$@"
  ;;
esac