#autoload

local expl

_tags fonts || return 1

# This *has* to be improved some day...

if (( ! $+_font_cache )); then
  typeset -gU _font_cache

 _font_cache=( "${(@)^${(@f)$(_call_program fonts xlsfonts 2> /dev/null)}%%--*}--" )
fi

_wanted fonts expl font \
    compadd -M 'r:|-=* r:|=*' "$@" -S '' -a - _font_cache