[Home] Zsh logo

_first

Zsh Wizard
Download _first Return to Examples
  1. #compdef -first-
  3. # Mail folder shortcuts - any command starting with "+" should be
  4. # a mail folder - complete only those which actually exist.
  6. if [[ "$compstate[context]" = command &&
  7. $CURRENT -eq 1 &&
  8. "$PREFIX" = +* ]]
  9. then
  10. local thisfolder thisentry expl ret=1
  11. local readmail unreadmail
  12. local mailstat
  13. readmail=( )
  14. unreadmail=( )
  15. mailstat=( )
  17. # Find each mailpath file that exists.
  18. for thisentry in "$mailpath[@]"
  19. do
  20. thisfolder="${thisentry%%\?*}"
  21. if [[ -s $thisfolder ]]
  22. then
  23. # Is it unread mail?
  24. # element 10 is mtime, element 9 is atime
  25. stat -A mailstat "$thisfolder"
  26. if [[ $mailstat[10] -gt $mailstat[9] ]]
  27. then
  28. unreadmail=("$unreadmail[@]" "${thisfolder##*/}")
  29. else
  30. readmail=("$readmail[@]" "${thisfolder##*/}")
  31. fi
  32. fi
  33. done
  35. if zsh-version 3.1.7
  36. then
  37. # Proper tag-handling completion.
  38. _tags -C mail-shortcuts unread-mail-folders read-mail-folders
  39. while _tags
  40. do
  41. _requested -J unread-mail-folders expl "unread mail" \
  42. compadd -P '+' -a unreadmail && ret=0
  43. _requested -J read-mail-folders expl "read mail" \
  44. compadd -P '+' -a readmail && ret=0
  45. (( ret )) || break
  46. done
  47. else
  48. # Just do regular compadds.
  49. compadd -P '+' -J "new mail folder" \
  50. -X "These folders contain new mail" \
  51. -- "${unreadmail[@]}"
  52. compadd -P '+' -J "mail folder" \
  53. -X "These folders contain mail" \
  54. -- "${readmail[@]}"
  55. fi
  57. # Skip all remaining completions.
  58. _compskip=all
  60. return 0
  61. fi