#autoload
# Populate the conventional global reply array with non-archived project
# directories. The exclusion operator and N qualifier are intentional.
workspace_roots() {
  setopt extendedglob nullglob
  local base=${1:A}
  typeset -ga reply
  reply=()
  [[ -d $base ]] || return 0
  reply=( "$base"/^archive-*(N/) )
}
